---

Step * 2 2 2 2 1 of Lemma decidable__proper_divisor


1. n : {2...}
2. ¬(n ≤ 5)
3. m : ℕ
4. m = (iroot(4;n) + 1) ∈ ℕ
5. (m * m) + 1 < n
6. n < (m * m) * m * m
7. ∀b:ℕ. (∃d:ℤ [(d < n ∧ (2 ≤ d) ∧ (d | n))]) ∨ (¬(∃d:ℤ [((2 ≤ d) ∧ (d ≤ (b * m)) ∧ (d | n))])) supposing b ≤ m
8. ¬(∃d:ℤ [((2 ≤ d) ∧ (d ≤ (m * m)) ∧ (d | n))])
9. n1 : ℤ
10. n1 < n
11. 2 ≤ n1
12. n1 | n
⊢ False
BY
{ (D -5 THEN RenameVar `d' (-4) THEN Decide ⌜d < m * m⌝⋅ THEN Auto) }

1
1. n : {2...}
2. ¬(n ≤ 5)
3. m : ℕ
4. m = (iroot(4;n) + 1) ∈ ℕ
5. (m * m) + 1 < n
6. n < (m * m) * m * m
7. ∀b:ℕ. (∃d:ℤ [(d < n ∧ (2 ≤ d) ∧ (d | n))]) ∨ (¬(∃d:ℤ [((2 ≤ d) ∧ (d ≤ (b * m)) ∧ (d | n))])) supposing b ≤ m
8. d : ℤ
9. d < n
10. 2 ≤ d
11. d | n
12. d < m * m
⊢ ∃d:ℤ [((2 ≤ d) ∧ (d ≤ (m * m)) ∧ (d | n))]

2
1. n : {2...}
2. ¬(n ≤ 5)
3. m : ℕ
4. m = (iroot(4;n) + 1) ∈ ℕ
5. (m * m) + 1 < n
6. n < (m * m) * m * m
7. ∀b:ℕ. (∃d:ℤ [(d < n ∧ (2 ≤ d) ∧ (d | n))]) ∨ (¬(∃d:ℤ [((2 ≤ d) ∧ (d ≤ (b * m)) ∧ (d | n))])) supposing b ≤ m
8. d : ℤ
9. d < n
10. 2 ≤ d
11. d | n
12. ¬d < m * m
⊢ ∃d:ℤ [((2 ≤ d) ∧ (d ≤ (m * m)) ∧ (d | n))]

---

Latex:

---

Latex:

1.  n  :  \{2...\}
2.  \mneg{}(n  \mleq{}  5)
3.  m  :  \mBbbN{}
4.  m  =  (iroot(4;n)  +  1)
5.  (m  *  m)  +  1  <  n
6.  n  <  (m  *  m)  *  m  *  m
7.  \mforall{}b:\mBbbN{}
          (\mexists{}d:\mBbbZ{}  [(d  <  n  \mwedge{}  (2  \mleq{}  d)  \mwedge{}  (d  |  n))])  \mvee{}  (\mneg{}(\mexists{}d:\mBbbZ{}  [((2  \mleq{}  d)  \mwedge{}  (d  \mleq{}  (b  *  m))  \mwedge{}  (d  |  n))])) 
          supposing  b  \mleq{}  m
8.  \mneg{}(\mexists{}d:\mBbbZ{}  [((2  \mleq{}  d)  \mwedge{}  (d  \mleq{}  (m  *  m))  \mwedge{}  (d  |  n))])
9.  n1  :  \mBbbZ{}
10.  n1  <  n
11.  2  \mleq{}  n1
12.  n1  |  n
\mvdash{}  False


By

---

Latex:
(D  -5  THEN  RenameVar  `d'  (-4)  THEN  Decide  \mkleeneopen{}d  <  m  *  m\mkleeneclose{}\mcdot{}  THEN  Auto)

---

Home Index