proposition: Lemma cc_equiv_aterm : context_closed equiv_aterm.
proof: Proof. intros t u c h. unfold equiv_aterm, Rof. rewrite term_of_aterm_fill with (u := AVar 0) (t:=t), term_of_aterm_fill with (u := AVar 0) (t:=u). apply equiv_add_context. hyp. apply is_a_pos_context. Qed.
imports: CoLoR(LogicUtil ATerm VecUtil) CoLoR(term_spec EqUtil) CoLoR(NatUtil) Coq(List Relations) CoLoR(term SN ASubstitution) CoLoR(rpo rpo_extension) CoLoR(ARedPair ARelation RelUtil BoolUtil)