proposition: Lemma nat_2_term_mono : forall n n', (n < n')%nat -> rpo (nat_2_term n) (nat_2_term n').
proof: Proof. induction 1. simpl. eapply Subterm. eleft. esplit. constructor. simpl. eapply Subterm. eleft. esplit. constructor. auto with T2. Qed.
imports: EPSILON0 Arith List Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat Gamma0_prelude Gamma0_length term rpo