proposition: Lemma phi_mono_RR : forall a b c, nf a -> nf b -> nf c -> phi a b < phi a c -> b < c.
proof: Proof. intros;tricho b c T;auto. subst c. case (lt_irr H2). case (lt_not_gt H2). apply phi_mono_r;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