From 02c23401a7a3e54d48084fc2796a485de36383f1 Mon Sep 17 00:00:00 2001 From: bringert Date: Mon, 28 Nov 2005 21:45:22 +0000 Subject: Changed all example programs to use layout syntax. --- transfer/examples/array.tr | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'transfer/examples/array.tr') diff --git a/transfer/examples/array.tr b/transfer/examples/array.tr index 7dcf6d443..e91fe35e7 100644 --- a/transfer/examples/array.tr +++ b/transfer/examples/array.tr @@ -1,10 +1,9 @@ -import nat ; +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) ; - } ; +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) ; +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