---

Step * of Lemma add-polynom_wf

∀[n:ℕ]. ∀[p,q:polynom(n)].  (add-polynom(n;tt;p;q) ∈ polynom(n))
BY
{ (CompleteInductionOnNat THEN RecUnfold `polynom` 0 THEN AutoSplit) }

1
1. n : ℕ
2. ∀n:ℕn. ∀[p,q:polynom(n)].  (add-polynom(n;tt;p;q) ∈ polynom(n))
3. n = 0 ∈ ℤ
⊢ ∀[p,q:ℤ].  (add-polynom(n;tt;p;q) ∈ ℤ)

2
1. n : {1...}
2. ∀n:ℕn. ∀[p,q:polynom(n)].  (add-polynom(n;tt;p;q) ∈ polynom(n))
⊢ ∀[p,q:{p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} ].
    (add-polynom(n;tt;p;q) ∈ {p:polynom(n - 1) List| polyform-lead-nonzero(n;p)} )

---

Latex:

---

Latex:
\mforall{}[n:\mBbbN{}].  \mforall{}[p,q:polynom(n)].    (add-polynom(n;tt;p;q)  \mmember{}  polynom(n))


By

---

Latex:
(CompleteInductionOnNat  THEN  RecUnfold  `polynom`  0  THEN  AutoSplit)

---

Home Index