---

Step * 2 1 of Lemma mul-ipoly-ringeq


1. r : CRng
2. u : iMonomial()
3. v : iMonomial() List
4. q : iMonomial() List
5. q = [] ∈ (iMonomial() List)
⊢ ipolynomial-term([]) ≡ ipolynomial-term([u / v]) (*) ipolynomial-term(q)
BY
{ ((DVar `q' THEN Auto)
   THEN (Subst' ipolynomial-term([]) ~ "0" 0 THENA Computation)
   THEN D 0
   THEN Reduce 0
   THEN Auto
   THEN RWO "int-to-ring-zero" 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  r  :  CRng
2.  u  :  iMonomial()
3.  v  :  iMonomial()  List
4.  q  :  iMonomial()  List
5.  q  =  []
\mvdash{}  ipolynomial-term([])  \mequiv{}  ipolynomial-term([u  /  v])  (*)  ipolynomial-term(q)


By

---

Latex:
((DVar  `q'  THEN  Auto)
  THEN  (Subst'  ipolynomial-term([])  \msim{}  "0"  0  THENA  Computation)
  THEN  D  0
  THEN  Reduce  0
  THEN  Auto
  THEN  RWO  "int-to-ring-zero"  0
  THEN  Auto)

---

Home Index