proposition: Lemma cons_term_cons : forall t t' n (v : terms n), cons_term t (Vcons t' v) = Fun (Cons Sig) (Vcast (Vcons t (Vcons (cons_term t' v) Vnil)) cons_arity).
proof: Proof. intros. auto. Qed.
imports: CoLoR(ATrs VecUtil ListUtil LogicUtil NatUtil RelUtil)