---

Step * 2 1 of Lemma add-polynom_wf


1. n : {1...}
2. ∀[p,q:polynom(n - 1)].  (add-polynom(n - 1;tt;p;q) ∈ polynom(n - 1))
⊢ ∀[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)} )
BY
{ Assert ⌜∀[p,q:polynom(n - 1) List]. ∀[rmz:𝔹].  (add-polynom(n;rmz;p;q) ∈ polynom(n - 1) List)⌝⋅ }

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

2
1. n : {1...}
2. ∀[p,q:polynom(n - 1)].  (add-polynom(n - 1;tt;p;q) ∈ polynom(n - 1))
3. ∀[p,q:polynom(n - 1) List]. ∀[rmz:𝔹].  (add-polynom(n;rmz;p;q) ∈ polynom(n - 1) List)
⊢ ∀[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:

1.  n  :  \{1...\}
2.  \mforall{}[p,q:polynom(n  -  1)].    (add-polynom(n  -  1;tt;p;q)  \mmember{}  polynom(n  -  1))
\mvdash{}  \mforall{}[p,q:\{p:polynom(n  -  1)  List|  polyform-lead-nonzero(n;p)\}  ].
        (add-polynom(n;tt;p;q)  \mmember{}  \{p:polynom(n  -  1)  List|  polyform-lead-nonzero(n;p)\}  )


By

---

Latex:
Assert  \mkleeneopen{}\mforall{}[p,q:polynom(n  -  1)  List].  \mforall{}[rmz:\mBbbB{}].    (add-polynom(n;rmz;p;q)  \mmember{}  polynom(n  -  1)  List)\mkleeneclose{}\mcdot{}

---

Home Index