SK
Size: a a a
SK
D
KS
𝛈µ
AG
test : Term U []
test = LetP $ MkStar (Pair $ MkStar TT Nil TT)
Nil
(LetT $ MkStar (Var MkOne)
(ConsR $ ConsL Nil)
(Var MkOne))
test : ()
test =
let (a,b) = (*,*) in
let * = a in b
𝛈µ
test : Term U []
test = LetP $ MkStar (Pair $ MkStar TT Nil TT)
Nil
(LetT $ MkStar (Var MkOne)
(ConsR $ ConsL Nil)
(Var MkOne))
AG
AG
AG
𝛈µ
𝛈µ
AG
KS
KS
𝛈µ
𝛈µ
AS