Step
*
2
2
1
of Lemma
mul-ipoly-equiv
1. u : iMonomial()
2. v : iMonomial() List
3. q : iMonomial() List
⊢ ipolynomial-term(eager-accum(sofar,m.add-ipoly(sofar;mul-mono-poly(m;q));mul-mono-poly(u;q);v)) 
  ≡ ipolynomial-term([u / v]) (*) ipolynomial-term(q)
BY
{ (RWO "ipolynomial-term-cons" 0 THENA Auto) }
1
1. u : iMonomial()
2. v : iMonomial() List
3. q : iMonomial() List
⊢ ipolynomial-term(eager-accum(sofar,m.add-ipoly(sofar;mul-mono-poly(m;q));mul-mono-poly(u;q);v)) ≡ (imonomial-term(u)
  (+) ipolynomial-term(v))
  (*) ipolynomial-term(q)
Latex:
Latex:
1.  u  :  iMonomial()
2.  v  :  iMonomial()  List
3.  q  :  iMonomial()  List
\mvdash{}  ipolynomial-term(eager-accum(sofar,m.add-ipoly(sofar;mul-mono-poly(m;q));mul-mono-poly(u;q);v)) 
    \mequiv{}  ipolynomial-term([u  /  v])  (*)  ipolynomial-term(q)
By
Latex:
(RWO  "ipolynomial-term-cons"  0  THENA  Auto)
Home
Index