mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 09:32:53 -06:00
Transfer: some TODOs. Lots of minor fixes in type checking algorithm.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user