proposition: Lemma R_inc_rpo (o o':T1) : R o o' -> rpo (T1_2_term o) (T1_2_term o').
proof: Proof. intros (H,(H1,H2)); eapply lt_inc_rpo_0;auto. Qed.
imports: Coq(Arith Lia Compare_dec Relations Wellfounded Wf_nat List Bool Eqdep_dec Ensembles ArithRing Logic) hydras(More_Arith Restriction DecPreOrder rpo.term rpo.rpo Epsilon0.T1)