---

Step * 1 of Lemma rat_term_polynomial


1. const : ℤ
⊢ "const" ≡ ipolynomial-term(if const=0 then [] else [<const, []>])/ipolynomial-term([<1, []>])
BY
{ (CaseNat 0 `const'
   THEN Reduce 0
   THEN RepUR ``ipolynomial-term imonomial-term req_rat_term`` 0
   THEN Auto
   THEN nRMul ⌜r1⌝ 0⋅
   THEN Auto) }

---

Latex:

---

Latex:

1.  const  :  \mBbbZ{}
\mvdash{}  "const"  \mequiv{}  ipolynomial-term(if  const=0  then  []  else  [<const,  []>])/ipolynomial-term([ə,  []>])


By

---

Latex:
(CaseNat  0  `const'
  THEN  Reduce  0
  THEN  RepUR  ``ipolynomial-term  imonomial-term  req\_rat\_term``  0
  THEN  Auto
  THEN  nRMul  \mkleeneopen{}r1\mkleeneclose{}  0\mcdot{}
  THEN  Auto)

---

Home Index