proposition: Lemma nat_lt_cons : forall (n:nat) t p c , rpo (nat_2_term n) (Term ord_cons (t::p::c::nil)).
proof: Proof. induction n;simpl. constructor 2. simpl; trivial. destruct 1. constructor 2. simpl; trivial. inversion_clear 1. subst s';apply IHn. case H0. 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