proposition: Lemma term_of_aterm_fun : forall f ts, term_of_aterm (Fun f ts) = Term f (terms_of_aterms ts).
proof: Proof. intros. simpl. rewrite terms_of_aterms_eq. refl. Qed.
imports: CoLoR(LogicUtil ATerm VecUtil) CoLoR(term_spec EqUtil) CoLoR(NatUtil) Coq(List Relations) CoLoR(term SN ASubstitution)