---

Step * 1 1 2 1 of Lemma Vieta-jumping-example2-corollary

.....assertion..... 
1. k : ℤ
2. a : ℕ
3. ∀a:ℕa. ∀b:ℕ.  (((((a * a) + (b * b)) + 1) = (3 * a * b) ∈ ℤ) ⇒ (a ≤ b) ⇒ (∃n:ℕ. (<a, b> = vexample(n;1;1) ∈ (ℤ × ℤ)\000C)))
4. b : ℕ
5. (((a * a) + (b * b)) + 1) = (3 * a * b) ∈ ℤ
6. a ≤ b
7. (((((3 * a) - b) * ((3 * a) - b)) + (a * a)) + 1) = (3 * ((3 * a) - b) * a) ∈ ℤ
8. ((5 * a * a) - 4) = (((2 * b) - 3 * a) * ((2 * b) - 3 * a)) ∈ ℤ
9. ¬(a = 1 ∈ ℤ)
⊢ 2 * a < b ∧ (b ≤ (3 * a))
BY
{ (Assert b ≤ (3 * a) BY
         (SupposeNot
          THEN (Assert 3 * a < (2 * b) - 3 * a BY
                      Auto)
          THEN (Assert (3 * a)^2 < ((2 * b) - 3 * a)^2 BY
                      EAuto 1)
          THEN (RWO  "exp2" (-1) THENA Auto)
          THEN (Assert 0 ≤ (a * a) BY
                      Auto)
          THEN Auto)) }

1
1. k : ℤ
2. a : ℕ
3. ∀a:ℕa. ∀b:ℕ.  (((((a * a) + (b * b)) + 1) = (3 * a * b) ∈ ℤ) ⇒ (a ≤ b) ⇒ (∃n:ℕ. (<a, b> = vexample(n;1;1) ∈ (ℤ × ℤ)\000C)))
4. b : ℕ
5. (((a * a) + (b * b)) + 1) = (3 * a * b) ∈ ℤ
6. a ≤ b
7. (((((3 * a) - b) * ((3 * a) - b)) + (a * a)) + 1) = (3 * ((3 * a) - b) * a) ∈ ℤ
8. ((5 * a * a) - 4) = (((2 * b) - 3 * a) * ((2 * b) - 3 * a)) ∈ ℤ
9. ¬(a = 1 ∈ ℤ)
10. b ≤ (3 * a)
⊢ 2 * a < b ∧ (b ≤ (3 * a))

---

Latex:

---

Latex:
.....assertion..... 
1.  k  :  \mBbbZ{}
2.  a  :  \mBbbN{}
3.  \mforall{}a:\mBbbN{}a.  \mforall{}b:\mBbbN{}.
          (((((a  *  a)  +  (b  *  b))  +  1)  =  (3  *  a  *  b))  {}\mRightarrow{}  (a  \mleq{}  b)  {}\mRightarrow{}  (\mexists{}n:\mBbbN{}.  (<a,  b>  =  vexample(n;1;1))))
4.  b  :  \mBbbN{}
5.  (((a  *  a)  +  (b  *  b))  +  1)  =  (3  *  a  *  b)
6.  a  \mleq{}  b
7.  (((((3  *  a)  -  b)  *  ((3  *  a)  -  b))  +  (a  *  a))  +  1)  =  (3  *  ((3  *  a)  -  b)  *  a)
8.  ((5  *  a  *  a)  -  4)  =  (((2  *  b)  -  3  *  a)  *  ((2  *  b)  -  3  *  a))
9.  \mneg{}(a  =  1)
\mvdash{}  2  *  a  <  b  \mwedge{}  (b  \mleq{}  (3  *  a))


By

---

Latex:
(Assert  b  \mleq{}  (3  *  a)  BY
              (SupposeNot
                THEN  (Assert  3  *  a  <  (2  *  b)  -  3  *  a  BY
                                        Auto)
                THEN  (Assert  (3  *  a)\^{}2  <  ((2  *  b)  -  3  *  a)\^{}2  BY
                                        EAuto  1)
                THEN  (RWO    "exp2"  (-1)  THENA  Auto)
                THEN  (Assert  0  \mleq{}  (a  *  a)  BY
                                        Auto)
                THEN  Auto))

---

Home Index