w
Size: a a a
ZM
YE
YE
ZM
ZM
ZM
ᛒ
ZM
ᛒ
ᛒ
YE
YE
AG
l123 : Term g (LIST NAT)
l123 = cons (App succ zero) $
cons (App succ $ App succ zero) $
cons (App succ $ App succ $ App succ zero) $
nil
> stepIter (App head l123)
Inr (In (Inr (In (Inl TT))))
> stepIter (App head (Case (App tail l123) (nil {t=NAT}) (Var Here)))
Inr (In (Inr (In (Inr (In (Inl TT))))))
AG
AG
> stepIter (App head nil)
Inl TT
Oℕ
AG
Cata : {f : Ty 1} -> Term g (subst1T f a ~> a) -> Term g (Mu f) -> Term g a