proposition: Lemma nat_2_term_mono (n n': nat): n < n' -> rpo (nat_2_term n) (nat_2_term n').
proof: Proof. induction 1. - simpl; eapply Subterm with (nat_2_term n). + left; reflexivity. + constructor. - simpl; eapply Subterm with (nat_2_term m). + left; reflexivity. + now constructor. 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)