From fb1d9b7d2c3c8261fc5a2ce3698e6749458b207a Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 26 Jun 2008 21:05:01 +0000 Subject: removed transfer from gf3 --- transfer/lib/vector.tra | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 transfer/lib/vector.tra (limited to 'transfer/lib/vector.tra') 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) -- cgit v1.2.3