proposition: Lemma le_psi_term_le : forall alpha beta, alpha <= beta -> psi_term alpha <= 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: EPSILON0 Arith List Omega Compare_dec Relations Wellfounded Max Tools More_nat AccP not_decreasing EPSILON0 More_nat Gamma0_prelude Gamma0_length term rpo