Step
*
2
1
1
of Lemma
two-squares-iff
1. x : ℕ
2. v : ℕ
3. isqrt(x) = v ∈ ℕ
4. (v * v) ≤ x
5. x < (v + 1) * (v + 1)
6. y : ℕv + 1
7. (isqrt(x - y * y) * isqrt(x - y * y)) = (x - y * y) ∈ ℤ
8. (y * y) ≤ x
⊢ ∃y,z:ℕ. (((y * y) + (z * z)) = x ∈ ℤ)
BY
{ (InstConcl [⌜y⌝;⌜isqrt(x - y * y)⌝]⋅ THEN Auto) }
Latex:
Latex:
1.  x  :  \mBbbN{}
2.  v  :  \mBbbN{}
3.  isqrt(x)  =  v
4.  (v  *  v)  \mleq{}  x
5.  x  <  (v  +  1)  *  (v  +  1)
6.  y  :  \mBbbN{}v  +  1
7.  (isqrt(x  -  y  *  y)  *  isqrt(x  -  y  *  y))  =  (x  -  y  *  y)
8.  (y  *  y)  \mleq{}  x
\mvdash{}  \mexists{}y,z:\mBbbN{}.  (((y  *  y)  +  (z  *  z))  =  x)
By
Latex:
(InstConcl  [\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}isqrt(x  -  y  *  y)\mkleeneclose{}]\mcdot{}  THEN  Auto)
Home
Index