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

This commit is contained in:
bringert
2006-03-20 18:23:55 +00:00
parent 8d1543684a
commit 0419860b4e
3 changed files with 40 additions and 25 deletions

View File

@@ -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