From eacb437f437bc79650708af472b7796c7fd041e5 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Mon, 20 Mar 2006 14:46:47 +0000
Subject: Expermintation woth a collections framework for transfer.

---
 transfer/lib/array.tra | 9 ---------
 1 file changed, 9 deletions(-)
 delete mode 100644 transfer/lib/array.tra

(limited to 'transfer/lib/array.tra')

diff --git a/transfer/lib/array.tra b/transfer/lib/array.tra
deleted file mode 100644
index e91fe35e7..000000000
--- a/transfer/lib/array.tra
+++ /dev/null
@@ -1,9 +0,0 @@
-import nat
-
-data Array : Type -> Nat -> Type where
-   Empty : (A:Type) -> Array A Zero
-   Cell : (A:Type) -> (n:Nat) -> A -> Array A n -> Array A (Succ n)
-
-mapA : (A:Type) -> (B:Type) -> (n:Nat) -> (A -> B) -> Array A n -> Array B n
-mapA A B _ f (Empty _) = Empty B
-mapA A B (Succ n) f (Cell _ _ x xs) = Cell B n (f x) (mapA A B n f xs)
-- 
cgit v1.2.3