---

Step * 2 2 1 1 2 1 1 1 2 of Lemma mul-ipoly-equiv


1. u : iMonomial()
2. v : iMonomial() List
3. ∀p,q:iMonomial() List.
     ipolynomial-term(accumulate (with value sofar and list item m):
                       add-ipoly(sofar;mul-mono-poly(m;q))
                      over list:
                        v
                      with starting value:
                       p)) ≡ ipolynomial-term(p) (+) (ipolynomial-term(v) (*) ipolynomial-term(q))
4. p : iMonomial() List
5. q : iMonomial() List
⊢ ipolynomial-term(accumulate (with value sofar and list item m):
                    add-ipoly(sofar;mul-mono-poly(m;q))
                   over list:
                     v
                   with starting value:
                    add-ipoly(p;mul-mono-poly(u;q)))) ≡ ipolynomial-term(p)
  (+) (ipolynomial-term([u / v]) (*) ipolynomial-term(q))
BY
{ (RWW "3 add-ipoly-equiv mul-mono-poly-equiv ipolynomial-term-cons" 0 THEN Auto) }

1
1. u : iMonomial()
2. v : iMonomial() List
3. ∀p,q:iMonomial() List.
     ipolynomial-term(accumulate (with value sofar and list item m):
                       add-ipoly(sofar;mul-mono-poly(m;q))
                      over list:
                        v
                      with starting value:
                       p)) ≡ ipolynomial-term(p) (+) (ipolynomial-term(v) (*) ipolynomial-term(q))
4. p : iMonomial() List
5. q : iMonomial() List
⊢ (ipolynomial-term(p) (+) (imonomial-term(u) (*) ipolynomial-term(q)))
  (+) (ipolynomial-term(v) (*) ipolynomial-term(q)) ≡ ipolynomial-term(p)
  (+) ((imonomial-term(u) (+) ipolynomial-term(v)) (*) ipolynomial-term(q))

---

Latex:

---

Latex:

1.  u  :  iMonomial()
2.  v  :  iMonomial()  List
3.  \mforall{}p,q:iMonomial()  List.
          ipolynomial-term(accumulate  (with  value  sofar  and  list  item  m):
                                              add-ipoly(sofar;mul-mono-poly(m;q))
                                            over  list:
                                                v
                                            with  starting  value:
                                              p))  \mequiv{}  ipolynomial-term(p)  (+)  (ipolynomial-term(v)  (*)  ipolynomial-term(q))
4.  p  :  iMonomial()  List
5.  q  :  iMonomial()  List
\mvdash{}  ipolynomial-term(accumulate  (with  value  sofar  and  list  item  m):
                                        add-ipoly(sofar;mul-mono-poly(m;q))
                                      over  list:
                                          v
                                      with  starting  value:
                                        add-ipoly(p;mul-mono-poly(u;q))))  \mequiv{}  ipolynomial-term(p)
    (+)  (ipolynomial-term([u  /  v])  (*)  ipolynomial-term(q))


By

---

Latex:
(RWW  "3  add-ipoly-equiv  mul-mono-poly-equiv  ipolynomial-term-cons"  0  THEN  Auto)

---

Home Index