∀[x:ℝ]. ∀[M:ℕ+].  1-approx(x;M;x M)
{ (Auto THEN Unfold `ireal-approx` 0) }
1. x : ℝ
2. M : ℕ+
⊢ |x - (r(x M)/r(2 * M))| ≤ (r1/r(M))