proposition: Lemma ml_1 : forall beta0 beta n, moser_lepper beta0 beta n -> nf beta -> nf beta0 -> [alpha, beta] = phi alpha (succ beta).
proof: Proof. intros;eapply phi_psi;eauto. case H. intros;eassumption. case H;intros. auto. 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