summaryrefslogtreecommitdiff
path: root/transfer/lib/vector.tra
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-26 21:05:01 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-26 21:05:01 +0000
commitfb1d9b7d2c3c8261fc5a2ce3698e6749458b207a (patch)
tree466adc81f2c6ac803d20804863927c076e2b243a /transfer/lib/vector.tra
parent33eb6d899fef48f2d38a92bc0fab66ff585be553 (diff)
removed transfer from gf3
Diffstat (limited to 'transfer/lib/vector.tra')
-rw-r--r--transfer/lib/vector.tra15
1 files changed, 0 insertions, 15 deletions
diff --git a/transfer/lib/vector.tra b/transfer/lib/vector.tra
deleted file mode 100644
index 2eda35167..000000000
--- a/transfer/lib/vector.tra
+++ /dev/null
@@ -1,15 +0,0 @@
--- NOTE: this is unfinished and untested
-
-import nat
-
-data Vector : Type -> Nat -> Type where
- Empty : (A:Type) -> Vector A Zero
- Cell : (A:Type) -> (n:Nat) -> A -> Vector A n -> Vector A (Succ n)
-
-mapV : (A:Type) -> (B:Type) -> (n:Nat) -> (A -> B) -> Vector A n -> Vector B n
-mapV A B _ f (Empty _) = Empty B
-mapV A B (Succ n) f (Cell _ _ x xs) = Cell B n (f x) (mapV A B n f xs)
-
-appendV : (A:Type) -> (n:Nat) -> (m:Nat) -> Vector A n -> Vector A m -> Vector A (plusNat n m)
-appendV A _ _ (Empty _) ys = ys
-appendV A (Succ n) m (Cell _ _ x xs) ys = appendV A n (Succ m) xs (Cell A m x ys)