proposition: Lemma rpo_4_2 : forall ta1 ta2 tb1 tb2 , rpo (Term ord_psi (ta1:: tb1 ::nil)) tb2 -> rpo (Term ord_psi (ta1:: tb1 ::nil)) (Term ord_psi (ta2:: tb2 ::nil)).
proof: Proof. intros; apply rpo_trans with tb2;auto with T2. eapply Subterm. - eright;eleft; reflexivity. - left. Qed.
imports: Coq(Arith List Lia Compare_dec Relations Wellfounded RelationClasses) hydras(Epsilon0) hydras(More_Arith Restriction) hydras(ON_Generic) hydras(rpo.term rpo.rpo) hydras(T2) hydras(Compat815)