---

Step * 2 of Lemma minus-polynom-val


1. n : ℤ
2. 0 < n
3. ∀[p:polyform(n - 1)]. ∀[l:{l:ℤ List| ||l|| = (n - 1) ∈ ℤ} ].  (l@minus-polynom(n - 1;p) = (-l@p) ∈ ℤ)
⊢ ∀[p:if (n =z 0) then ℤ else polyform(n - 1) List fi ]. ∀[l:{l:ℤ List| ||l|| = n ∈ ℤ} ].
    (l@if n=0  then -p  else map-rev(λq.minus-polynom(n - 1;q);p) = (-l@p) ∈ ℤ)
BY
{ (AutoSplit THEN Auto THEN RWO "map-rev-sq-map" 0 THEN Auto) }

1
1. n : ℤ
2. n ≠ 0
3. 0 < n
4. ∀[p:polyform(n - 1)]. ∀[l:{l:ℤ List| ||l|| = (n - 1) ∈ ℤ} ].  (l@minus-polynom(n - 1;p) = (-l@p) ∈ ℤ)
5. p : polyform(n - 1) List
6. l : {l:ℤ List| ||l|| = n ∈ ℤ} 
⊢ l@map(λq.minus-polynom(n - 1;q);p) = (-l@p) ∈ ℤ

---

Latex:

---

Latex:

1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}[p:polyform(n  -  1)].  \mforall{}[l:\{l:\mBbbZ{}  List|  ||l||  =  (n  -  1)\}  ].    (l@minus-polynom(n  -  1;p)  =  (-l@p))
\mvdash{}  \mforall{}[p:if  (n  =\msubz{}  0)  then  \mBbbZ{}  else  polyform(n  -  1)  List  fi  ].  \mforall{}[l:\{l:\mBbbZ{}  List|  ||l||  =  n\}  ].
        (l@if  n=0    then  -p    else  map-rev(\mlambda{}q.minus-polynom(n  -  1;q);p)  =  (-l@p))


By

---

Latex:
(AutoSplit  THEN  Auto  THEN  RWO  "map-rev-sq-map"  0  THEN  Auto)

---

Home Index