Split widesnake example. Changed examples to use rec and sig keywords.

This commit is contained in:
bringert
2005-11-29 18:15:15 +00:00
parent f6159d4bff
commit 5b9249a422
4 changed files with 24 additions and 21 deletions

View File

@@ -1,15 +1,15 @@
Additive : Type -> Type
Additive A = { zero : A; plus : A -> A -> A }
Additive A = sig { zero : A; plus : A -> A -> A }
additive_Integer : Additive Integer
additive_Integer = { zero = 0; plus = prim_add_Int }
additive_Integer = rec { zero = 0; plus = prim_add_Int }
sum : (A:Type) -> Additive A -> List A -> A
sum _ d (Nil _) = d.zero
sum A d (Cons _ x xs) = d.plus x (sum A d xs)
Showable : Type -> Type
Showable A = { show : A -> String }
Showable A = sig { show : A -> String }
--Compositional : Type -> Type