---

Step * 2 1 of Lemma minus-polynom_wf2


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))
BY
{ (InstLemma `map-rev-sq-map` [⌜polynom(n - 1)⌝;⌜polynom(n - 1)⌝]⋅ THENA 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)
7. ∀[f:polynom(n - 1) ⟶ polynom(n - 1)]. ∀[as:polynom(n - 1) List].
     map-rev(f;as) ~ map(f;as) supposing value-type(polynom(n - 1))
⊢ polyform-lead-nonzero(n;map-rev(λq.minus-polynom(n - 1;q);p))

---

Latex:

---

Latex:

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


By

---

Latex:
(InstLemma  `map-rev-sq-map`  [\mkleeneopen{}polynom(n  -  1)\mkleeneclose{};\mkleeneopen{}polynom(n  -  1)\mkleeneclose{}]\mcdot{}  THENA  Auto)

---

Home Index