Transfer: some TODOs. Lots of minor fixes in type checking algorithm.

2006-03-20 18:23:55 +00:00
parent 8d1543684a
commit 0419860b4e
3 changed files with 40 additions and 25 deletions
--- a/transfer/examples/tricky-type-checking.tra
+++ b/transfer/examples/tricky-type-checking.tra
@@ -8,6 +8,12 @@ data Tree : Type -> Type where
  EInt : Integer -> Tree Integer
  EFoo : (A:Type) -> A -> Tree A

+eval : (B : Type) -> Tree B -> Tree B
+eval _ t = case t of
+		EAdd x y -> EInt (x+y)
+		EInt i -> EInt i
+		EFoo T x -> EFoo T x
+
 strip : (B : Type) -> Tree B -> B
 strip _ t = case t of
 		EAdd x y -> x+y