---

Step * of Lemma add-polynom_wf1

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

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

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

---

Latex:

---

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


By

---

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

---

Home Index