---

Step * 1 of Lemma integer-sqrt


1. ∀x:ℕ. (∃r:{ℕ| ((r^2 ≤ x) ∧ x < r + 1^2)})
⊢ ∀x:ℕ. (∃r:{ℕ| (((r * r) ≤ x) ∧ x < (r + 1) * (r + 1))})
BY
{ (RepeatFor 2 (ParallelLast)
   THEN NthHypEq (-1)
   THEN RepeatFor 2 ((EqCD THEN Auto))
   THEN RepUR ``exp`` 0
   THEN (RWO "primrec-unroll" 0 THENA Auto)
   THEN Reduce 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  \mforall{}x:\mBbbN{}.  (\mexists{}r:\{\mBbbN{}|  ((r\^{}2  \mleq{}  x)  \mwedge{}  x  <  r  +  1\^{}2)\})
\mvdash{}  \mforall{}x:\mBbbN{}.  (\mexists{}r:\{\mBbbN{}|  (((r  *  r)  \mleq{}  x)  \mwedge{}  x  <  (r  +  1)  *  (r  +  1))\})


By

---

Latex:
(RepeatFor  2  (ParallelLast)
  THEN  NthHypEq  (-1)
  THEN  RepeatFor  2  ((EqCD  THEN  Auto))
  THEN  RepUR  ``exp``  0
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Auto)

---

Home Index