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: 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)