---

Step * 2 1 1 2 2 of Lemma decidable__proper_divisor


1. n : {2...}
2. ¬(n ≤ 5)
3. m : ℕ
4. m = (iroot(4;n) + 1) ∈ ℕ
5. iroot(4;n)^4 ≤ n
6. n < (iroot(4;n) + 1)^4
7. ¬(m * m) + 1 < n
8. iroot(4;n)^4 ≤ (((iroot(4;n) + 1) * (iroot(4;n) + 1)) + 1)
9. iroot(4;n) < 2
⊢ (m * m) + 1 < n
BY
{ TACTIC:(TACTIC:(Assert m ≤ 2 BY Auto') THEN InstLemma `mul_preserves_le` [⌜m⌝;⌜2⌝;⌜m⌝]⋅ THEN Auto') }

---

Latex:

---

Latex:

1.  n  :  \{2...\}
2.  \mneg{}(n  \mleq{}  5)
3.  m  :  \mBbbN{}
4.  m  =  (iroot(4;n)  +  1)
5.  iroot(4;n)\^{}4  \mleq{}  n
6.  n  <  (iroot(4;n)  +  1)\^{}4
7.  \mneg{}(m  *  m)  +  1  <  n
8.  iroot(4;n)\^{}4  \mleq{}  (((iroot(4;n)  +  1)  *  (iroot(4;n)  +  1))  +  1)
9.  iroot(4;n)  <  2
\mvdash{}  (m  *  m)  +  1  <  n


By

---

Latex:
TACTIC:(TACTIC:(Assert  m  \mleq{}  2  BY  Auto')  THEN  InstLemma  `mul\_preserves\_le`  [\mkleeneopen{}m\mkleeneclose{};\mkleeneopen{}2\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{}]\mcdot{}  THEN  Auto')

---

Home Index