KS
Size: a a a
KS
K
KS
KS
AG
AG
KS
AG
KS
KS
AG
ΛВ
ΙΤ
AG
data Term : Ty -> Pred (List Ty) where
Var : All $ One a :-> Term a
Lam : All $ (a::) `turn` Term b :-> Term (a ~@ b)
App : All $ Term (a ~@ b) ^*^ Term a :-> Term b
TT : eps $ Term U
LetT : All $ Term U ^*^ Term a :-> Term a
Pair : All $ Term a ^*^ Term b :-> Term (Prod a b)
LetP : All $ Term (Prod a b) ^*^ (([b,a]++) `turn` Term c) :-> Term c
AG
ᛒ
ᛒ
ᛒ
ᛒ