- data Term
- type RepTerm_ = :+: (C Term_Var'_ (Rec String)) (:+: (C Term_Lambda_ (:*: (Rec String) (Rec Term))) (:+: (C Term_App_ (:*: (Rec Term) (Rec Term))) (C Term_If_ (:*: (Rec Term) (:*: (Rec Term) (Rec Term))))))
- data Term_If_
- data Term_App_
- data Term_Lambda_
- data Term_Var'_
- data TermFam a where
- fixFac :: ZipperR Term