fact: Definition typ f := match f with | Zero => TNat | Succ => TNat ~~> TNat | Rec A => TNat ~~> A ~~> (TNat ~~> A ~~> A) ~~> A end.
imports: CoLoR(LogicUtil OrdUtil LSimple RelUtil) Coq(Structures.Equalities Lia) Coq(Compare_dec) CoLoR(VecUtil) CoLoR(LCompRewrite)