---

Step * of Lemma mul-mono-poly-equiv

∀[m:iMonomial()]. ∀[p:iMonomial() List].
  ipolynomial-term(mul-mono-poly(m;p)) ≡ imonomial-term(m) (*) ipolynomial-term(p)
BY
{ (Auto
   THEN ListInd (-1)
   THEN RepUR ``mul-mono-poly`` 0
   THEN Try ((Fold `mul-mono-poly` 0
              THEN (Assert mul-mono-poly(m;v) ∈ iMonomial() List BY
                          Auto)
              THEN RepeatFor 2 ((CallByValueReduce 0 THENA Auto))))) }

1
1. m : iMonomial()
⊢ ipolynomial-term([]) ≡ imonomial-term(m) (*) ipolynomial-term([])

2
1. m : iMonomial()
2. u : iMonomial()
3. v : iMonomial() List
4. ipolynomial-term(mul-mono-poly(m;v)) ≡ imonomial-term(m) (*) ipolynomial-term(v)
5. mul-mono-poly(m;v) ∈ iMonomial() List
⊢ ipolynomial-term([mul-monomials(m;u) / mul-mono-poly(m;v)]) ≡ imonomial-term(m) (*) ipolynomial-term([u / v])

---

Latex:

---

Latex:
\mforall{}[m:iMonomial()].  \mforall{}[p:iMonomial()  List].
    ipolynomial-term(mul-mono-poly(m;p))  \mequiv{}  imonomial-term(m)  (*)  ipolynomial-term(p)


By

---

Latex:
(Auto
  THEN  ListInd  (-1)
  THEN  RepUR  ``mul-mono-poly``  0
  THEN  Try  ((Fold  `mul-mono-poly`  0
                        THEN  (Assert  mul-mono-poly(m;v)  \mmember{}  iMonomial()  List  BY
                                                Auto)
                        THEN  RepeatFor  2  ((CallByValueReduce  0  THENA  Auto)))))

---

Home Index