---

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


1. r : CRng
2. v : int_term()
3. v1 : int_term()
⊢ v ≡ v (+) (ipolynomial-term([]) (*) v1)
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
   THEN RW  RngNormC 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  r  :  CRng
2.  v  :  int\_term()
3.  v1  :  int\_term()
\mvdash{}  v  \mequiv{}  v  (+)  (ipolynomial-term([])  (*)  v1)


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
  THEN  RW    RngNormC  0
  THEN  Auto)

---

Home Index