---

Step * 2 of Lemma minus-polynom_wf2


1. n : ℤ
2. 0 < n
3. ∀[p:polynom(n - 1)]. (minus-polynom(n - 1;p) ∈ polynom(n - 1))
4. p : polynom(n - 1) List
5. polyform-lead-nonzero(n;p)
⊢ if n=0 then -p else map-rev(λq.minus-polynom(n - 1;q);p) ∈ {p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} 
BY
{ ((MemTypeCD THEN Try (AutoSplit)) THENW Auto) }

1
1. n : ℤ
2. n ≠ 0
3. 0 < n
4. ∀[p:polynom(n - 1)]. (minus-polynom(n - 1;p) ∈ polynom(n - 1))
5. p : polynom(n - 1) List
6. polyform-lead-nonzero(n;p)
⊢ polyform-lead-nonzero(n;map-rev(λq.minus-polynom(n - 1;q);p))

2
1. n : ℤ
2. 0 < n
3. ∀[p:polynom(n - 1)]. (minus-polynom(n - 1;p) ∈ polynom(n - 1))
4. p : polynom(n - 1) List
5. polyform-lead-nonzero(n;p)
6. p1 : polynom(n - 1) List
⊢ p1 ∈ polyform(n)

---

Latex:

---

Latex:

1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}[p:polynom(n  -  1)].  (minus-polynom(n  -  1;p)  \mmember{}  polynom(n  -  1))
4.  p  :  polynom(n  -  1)  List
5.  polyform-lead-nonzero(n;p)
\mvdash{}  if  n=0  then  -p  else  map-rev(\mlambda{}q.minus-polynom(n  -  1;q);p)  \mmember{}  \{p:polynom(n  -  1)  List| 
                                                                                                                            polyform-lead-nonzero(n;p)\} 


By

---

Latex:
((MemTypeCD  THEN  Try  (AutoSplit))  THENW  Auto)

---

Home Index