proposition: Lemma nat_lt_psi : forall (n:nat) a b, rpo (nat_2_term n) (Term ord_psi (a::b::nil)).
proof: Proof. induction n;simpl. - constructor 2. + simpl; trivial. + destruct 1. - constructor 2. + simpl; trivial. + inversion_clear 1. * subst s';apply IHn. * destruct H0. 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)