proposition: Lemma le_psi_term_le alpha beta: alpha t2<= beta -> psi_term alpha t2<= psi_term beta.
proof: Proof. destruct 1. - subst beta;auto with T2. - generalize H;case alpha;simpl. + auto with T2. + case beta. * intros;lt_clean. * simpl;inversion_clear 1; auto with T2. 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)