proposition: Lemma Incl_M_M_unfolded_auxiliary_5: forall (a b c d:Q), d - c<>0 -> (d-c)*((d-c)*(0/1-1/1))<=(d-c)*((b-a)*((2+1)/1- 0/1))-> (-1)/3 <= (b - a) / (d - c).
proof: Proof. intros a b c d Hdc; destruct (not_Qeq_inf _ _ Hdc); [ apply Incl_M_M_unfolded_auxiliary_52 | apply Incl_M_M_unfolded_auxiliary_51 ]; assumption. Qed.
imports: digits Raxioms RIneq QArithSternBrocot(R_addenda) Fourier_solvable_ineqs Bounded_M