---

Step * 1 of Lemma integer-sqrt-xover


1. x : ℕ@i
⊢ exact-xover(λr.x <z r * r;0) ∈ ∃r:ℕ [(((r * r) ≤ x) ∧ x < (r + 1) * (r + 1))]
BY
{ TACTIC:(DoSubsume THEN RepeatFor 2 ((Reduce 0 THEN Auto))) }

1
1. x : ℕ@i
⊢ ∃m:{0...}. ((∀k:ℕm. x <z k * k = ff) ∧ (∀k:{m...}. x <z k * k = tt))

2
1. x : ℕ@i
2. exact-xover(λr.x <z r * r;0)
= exact-xover(λr.x <z r * r;0)
∈ {x1:ℤ| (0 ≤ x1) ∧ (λr.x <z r * r) x1 = ff ∧ (λr.x <z r * r) (x1 + 1) = tt} 
⊢ {x1:ℤ| (0 ≤ x1) ∧ x <z x1 * x1 = ff ∧ x <z (x1 + 1) * (x1 + 1) = tt}  ⊆r (∃r:ℕ [(((r * r) ≤ x)
                                                                                  ∧ x < (r + 1) * (r + 1))])

---

Latex:

---

Latex:

1.  x  :  \mBbbN{}@i
\mvdash{}  exact-xover(\mlambda{}r.x  <z  r  *  r;0)  \mmember{}  \mexists{}r:\mBbbN{}  [(((r  *  r)  \mleq{}  x)  \mwedge{}  x  <  (r  +  1)  *  (r  +  1))]


By

---

Latex:
TACTIC:(DoSubsume  THEN  RepeatFor  2  ((Reduce  0  THEN  Auto)))

---

Home Index