Step
*
1
1
1
2
1
2
1
1
of Lemma
iroot-lemma2
1. n : ℕ+
2. a : ℕ
3. k : ℕ+
4. y : ℕ+
5. b : ℕ+
6. M : ℕ+
7. a + k ∈ ℕ+
8. a + k < M^n
9. (n * b * M^(n - 1)) ≤ (k * y)
10. (a + k) * y^n ∈ ℕ+
11. iroot(n;(a + k) * y^n) < M * y
12. iroot(n;(a + k) * y^n)^n ≤ ((a + k) * y^n)
13. (a + k) * y^n < (iroot(n;(a + k) * y^n) + 1)^n
14. (iroot(n;(a + k) * y^n) + 1)^n ≤ (((iroot(n;(a + k) * y^n) ÷ b) * b)^n + (n * b * (M * y)^(n - 1)))
⊢ (n * b * M^(n - 1) * y^(n - 1)) ≤ (k * y^n)
BY
{ (InstLemma `mul_preserves_le` [⌜n * b * M^(n - 1)⌝;⌜k * y⌝;⌜y^(n - 1)⌝]⋅ THEN Auto) }
1
1. n : ℕ+
2. a : ℕ
3. k : ℕ+
4. y : ℕ+
5. b : ℕ+
6. M : ℕ+
7. a + k ∈ ℕ+
8. a + k < M^n
9. (n * b * M^(n - 1)) ≤ (k * y)
10. (a + k) * y^n ∈ ℕ+
11. iroot(n;(a + k) * y^n) < M * y
12. iroot(n;(a + k) * y^n)^n ≤ ((a + k) * y^n)
13. (a + k) * y^n < (iroot(n;(a + k) * y^n) + 1)^n
14. (iroot(n;(a + k) * y^n) + 1)^n ≤ (((iroot(n;(a + k) * y^n) ÷ b) * b)^n + (n * b * (M * y)^(n - 1)))
15. (y^(n - 1) * n * b * M^(n - 1)) ≤ (y^(n - 1) * k * y)
⊢ (n * b * M^(n - 1) * y^(n - 1)) ≤ (k * y^n)
Latex:
Latex:
1.  n  :  \mBbbN{}\msupplus{}
2.  a  :  \mBbbN{}
3.  k  :  \mBbbN{}\msupplus{}
4.  y  :  \mBbbN{}\msupplus{}
5.  b  :  \mBbbN{}\msupplus{}
6.  M  :  \mBbbN{}\msupplus{}
7.  a  +  k  \mmember{}  \mBbbN{}\msupplus{}
8.  a  +  k  <  M\^{}n
9.  (n  *  b  *  M\^{}(n  -  1))  \mleq{}  (k  *  y)
10.  (a  +  k)  *  y\^{}n  \mmember{}  \mBbbN{}\msupplus{}
11.  iroot(n;(a  +  k)  *  y\^{}n)  <  M  *  y
12.  iroot(n;(a  +  k)  *  y\^{}n)\^{}n  \mleq{}  ((a  +  k)  *  y\^{}n)
13.  (a  +  k)  *  y\^{}n  <  (iroot(n;(a  +  k)  *  y\^{}n)  +  1)\^{}n
14.  (iroot(n;(a  +  k)  *  y\^{}n)  +  1)\^{}n  \mleq{}  (((iroot(n;(a  +  k)  *  y\^{}n)  \mdiv{}  b)  *  b)\^{}n
        +  (n  *  b  *  (M  *  y)\^{}(n  -  1)))
\mvdash{}  (n  *  b  *  M\^{}(n  -  1)  *  y\^{}(n  -  1))  \mleq{}  (k  *  y\^{}n)
By
Latex:
(InstLemma  `mul\_preserves\_le`  [\mkleeneopen{}n  *  b  *  M\^{}(n  -  1)\mkleeneclose{};\mkleeneopen{}k  *  y\mkleeneclose{};\mkleeneopen{}y\^{}(n  -  1)\mkleeneclose{}]\mcdot{}  THEN  Auto)
Home
Index