fact: Conjecture conjecture2 : forall ε ε₁ ε0 ε₂ q₁ q : Qc, 0 < ε -> 0 < ε₁ -> 0 < ε0 -> 0 < ε₂ -> ε₁ + ε0 + ε₂ <= |q₁| -> forall (q' := 1 / (|q₁| - ε₁ - ε0 / 2)) (bound := Qcmin (ε / (q' * q' + |q'| * ε)) (ε0 / 2)), 0 < q' -> 0 < bound -> bound < |q| -> |1 / q| <= |q'|.
imports: QArith Psatz ClassicalRealizability.Kbase ClassicalRealizability.Rationals ClassicalRealizability.Real_definitions ClassicalRealizability.Real_relations