---

Step * 1 of Lemma mul-ipoly-ringeq


1. r : CRng
2. q : iMonomial() List
⊢ ipolynomial-term([]) ≡ ipolynomial-term([]) (*) ipolynomial-term(q)
BY
{ ((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.  q  :  iMonomial()  List
\mvdash{}  ipolynomial-term([])  \mequiv{}  ipolynomial-term([])  (*)  ipolynomial-term(q)


By

---

Latex:
((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