YE
Size: a a a
YE
D
YE
D
YE
D
AG
> parseCheckTerm "(\\x.<x []> : * -> *)"
Right (Imp A A ** Lam (Var Here [])) : Either Error (a : Ty ** TermJ [] a)
> parseCheckTerm "(\\x.<x []> : (*->*)->(*->*)) [`\\x.<x []>]"
Right (Imp A A ** Cut (Lam (Var Here [])) (Cons (Lam (Var Here [])) [])) : Either Error (a : Ty ** TermJ [] a)
> parseCheckTerm "((\\x.<x []> : ((*->*)->(*->*))->((*->*)->(*->*))) [`\\x.<x []>] : (*->*)->(*->*)) [`\\x.<x []>]"
Right (Imp A A ** Cut (Cut (Lam (Var Here [])) (Cons (Lam (Var Here [])) [])) (Cons (Lam (Var Here [])) [])) : Either Error (a : Ty ** TermJ [] a)
> parseCheckTerm "(\\x.<x []> : (*->*)->(*->*)) [`(\\x.<x []> : (*->*)->(*->*)) [`\\x.<x []>]]"
Right (Imp A A ** Cut (Lam (Var Here [])) (Cons (Cut (Lam (Var Here [])) (Cons (Lam (Var Here [])) [])) [])) : Either Error (a : Ty ** TermJ [] a)
AG
AG
(
(
GP
(
GP
GP