fact: Conjecture conjecture1 : forall (x : Re) (ε ε₁ ε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 -> forall t t0 t1 t3 t5 : Λ, t ⊩ (∀₁ ε∈ℚ+*, ∃₁ q ∈ ℚ, x ε q) -> t0 ⊩ Cauchy x -> t3 ⊩ x ε₁ q₁ -> t5 ⊩ x bound q -> t1 ⊩ x ≠ (embed_ℚ_ℝ 0) -> bound < |q|.
imports: QArith Psatz ClassicalRealizability.Kbase ClassicalRealizability.Rationals ClassicalRealizability.Real_definitions ClassicalRealizability.Real_relations