fact: Fixpoint cons_term (t : term) n (v : terms n) : term := match v with | Vnil => t | Vcons t' v' => Fun (Cons Sig) (Vcast (Vcons t (Vcons (cons_term t' v') Vnil)) cons_arity) end.
imports: CoLoR(ATrs VecUtil ListUtil LogicUtil NatUtil RelUtil)