---

Step * 2 of Lemma rm-zeros_wf


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)} 
⊢ if poly-zero(n - 1;u) then rm-zeros(n - 1;v) else [u / v] fi  ∈ {p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} 
BY
{ ((SplitOnConclITE THENA Auto) THEN Try (Trivial)) }

1
.....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)} 

---

Latex:

---

Latex:

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)\} 
\mvdash{}  if  poly-zero(n  -  1;u)  then  rm-zeros(n  -  1;v)  else  [u  /  v]  fi    \mmember{}  \{p:polynom(n  -  1)  List| 
                                                                                                                                      polyform-lead-nonzero(n;p)\} 


By

---

Latex:
((SplitOnConclITE  THENA  Auto)  THEN  Try  (Trivial))

---

Home Index