Step
*
2
1
1
1
1
1
of Lemma
poly-zero-false
1. n : ℤ
2. [%1] : 0 < n
3. ∀p:polynom(n - 1). (¬↑poly-zero(n - 1;p) 
⇐⇒ ∃l:{l:ℤ List| ||l|| = (n - 1) ∈ ℤ} . (¬(l@p = 0 ∈ ℤ)))
4. u : polynom(n - 1)
5. v : polynom(n - 1) List
6. [%22] : polyform-lead-nonzero(n;[u / v])
7. [u / v] ∈ polynom(n)
8. ¬(n = 0 ∈ ℤ)
9. ¬(n = 0 ∈ ℤ)
10. ¬False
11. l : {l:ℤ List| ||l|| = (n - 1) ∈ ℤ} 
12. ¬(l@u = 0 ∈ ℤ)
13. Σ(|l@v[i]| | i < ||v||) ∈ ℕ
14. b : ℕ
15. Σ(|l@v[i]| | i < ||v||) < b
⊢ ¬(((l@u * b^((||v|| + 1) - 1 - 0)) + Σ(l@[u / v][i + 1] * b^((||v|| + 1) - 1 - i + 1) | i < (||v|| + 1) - 1)) = 0 ∈ ℤ)
BY
{ ((Subst' (||v|| + 1) - 1 ~ ||v|| 0 THENA Auto) THEN (Subst' ||v|| - 0 ~ ||v|| 0 THENA Auto)) }
1
1. n : ℤ
2. [%1] : 0 < n
3. ∀p:polynom(n - 1). (¬↑poly-zero(n - 1;p) 
⇐⇒ ∃l:{l:ℤ List| ||l|| = (n - 1) ∈ ℤ} . (¬(l@p = 0 ∈ ℤ)))
4. u : polynom(n - 1)
5. v : polynom(n - 1) List
6. [%22] : polyform-lead-nonzero(n;[u / v])
7. [u / v] ∈ polynom(n)
8. ¬(n = 0 ∈ ℤ)
9. ¬(n = 0 ∈ ℤ)
10. ¬False
11. l : {l:ℤ List| ||l|| = (n - 1) ∈ ℤ} 
12. ¬(l@u = 0 ∈ ℤ)
13. Σ(|l@v[i]| | i < ||v||) ∈ ℕ
14. b : ℕ
15. Σ(|l@v[i]| | i < ||v||) < b
⊢ ¬(((l@u * b^||v||) + Σ(l@[u / v][i + 1] * b^(||v|| - i + 1) | i < ||v||)) = 0 ∈ ℤ)
Latex:
Latex:
1.  n  :  \mBbbZ{}
2.  [\%1]  :  0  <  n
3.  \mforall{}p:polynom(n  -  1).  (\mneg{}\muparrow{}poly-zero(n  -  1;p)  \mLeftarrow{}{}\mRightarrow{}  \mexists{}l:\{l:\mBbbZ{}  List|  ||l||  =  (n  -  1)\}  .  (\mneg{}(l@p  =  0)))
4.  u  :  polynom(n  -  1)
5.  v  :  polynom(n  -  1)  List
6.  [\%22]  :  polyform-lead-nonzero(n;[u  /  v])
7.  [u  /  v]  \mmember{}  polynom(n)
8.  \mneg{}(n  =  0)
9.  \mneg{}(n  =  0)
10.  \mneg{}False
11.  l  :  \{l:\mBbbZ{}  List|  ||l||  =  (n  -  1)\} 
12.  \mneg{}(l@u  =  0)
13.  \mSigma{}(|l@v[i]|  |  i  <  ||v||)  \mmember{}  \mBbbN{}
14.  b  :  \mBbbN{}
15.  \mSigma{}(|l@v[i]|  |  i  <  ||v||)  <  b
\mvdash{}  \mneg{}(((l@u  *  b\^{}((||v||  +  1)  -  1  -  0))
+  \mSigma{}(l@[u  /  v][i  +  1]  *  b\^{}((||v||  +  1)  -  1  -  i  +  1)  |  i  <  (||v||  +  1)  -  1))
=  0)
By
Latex:
((Subst'  (||v||  +  1)  -  1  \msim{}  ||v||  0  THENA  Auto)  THEN  (Subst'  ||v||  -  0  \msim{}  ||v||  0  THENA  Auto))
Home
Index