---

Step * 2 1 of Lemma rm-zeros_wf

.....falsecase..... 
1. n : ℕ+
2. ¬(n = 0 ∈ ℤ)
3. u : polynom(n - 1)
4. v : polynom(n - 1) List
5. rm-zeros(n - 1;v) ∈ {p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} 
6. ¬↑poly-zero(n - 1;u)
⊢ [u / v] ∈ {p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} 
BY
{ (MemTypeCD THEN Auto) }

1
.....set predicate..... 
1. n : ℕ+
2. ¬(n = 0 ∈ ℤ)
3. u : polynom(n - 1)
4. v : polynom(n - 1) List
5. rm-zeros(n - 1;v) ∈ {p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} 
6. ¬↑poly-zero(n - 1;u)
⊢ polyform-lead-nonzero(n;[u / v])

2
1. n : ℕ+
2. ¬(n = 0 ∈ ℤ)
3. u : polynom(n - 1)
4. v : polynom(n - 1) List
5. rm-zeros(n - 1;v) ∈ {p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} 
6. ¬↑poly-zero(n - 1;u)
7. p : polynom(n - 1) List
⊢ p ∈ polyform(n)

---

Latex:

---

Latex:
.....falsecase..... 
1.  n  :  \mBbbN{}\msupplus{}
2.  \mneg{}(n  =  0)
3.  u  :  polynom(n  -  1)
4.  v  :  polynom(n  -  1)  List
5.  rm-zeros(n  -  1;v)  \mmember{}  \{p:polynom(n  -  1)  List|  polyform-lead-nonzero(n;p)\} 
6.  \mneg{}\muparrow{}poly-zero(n  -  1;u)
\mvdash{}  [u  /  v]  \mmember{}  \{p:polynom(n  -  1)  List|  polyform-lead-nonzero(n;p)\} 


By

---

Latex:
(MemTypeCD  THEN  Auto)

---

Home Index