---

Step * 3 2 of Lemma rat_term_to_ipolys_wf


1. t : rat_term()
2. <1, []> ∈ iMonomial()
3. [<1, []>] ∈ iPolynomial()
4. c : ℤ
5. ¬(c = 0 ∈ ℤ)
⊢ <[<c, []>], [<1, []>]> ∈ iPolynomial() × iPolynomial()
BY
{ ((Assert <c, []> ∈ iMonomial() BY
          (Unfold `iMonomial` 0 THEN Auto THEN MemTypeCD THEN Auto THEN (D 0 THEN Reduce 0) THEN Auto))
   THEN (Assert [<c, []>] ∈ iPolynomial() BY
               (MemTypeCD THEN Auto THEN All Reduce THEN Auto))
   THEN Auto) }

---

Latex:

---

Latex:

1.  t  :  rat\_term()
2.  ə,  []>  \mmember{}  iMonomial()
3.  [ə,  []>]  \mmember{}  iPolynomial()
4.  c  :  \mBbbZ{}
5.  \mneg{}(c  =  0)
\mvdash{}  <[<c,  []>],  [ə,  []>]>  \mmember{}  iPolynomial()  \mtimes{}  iPolynomial()


By

---

Latex:
((Assert  <c,  []>  \mmember{}  iMonomial()  BY
                (Unfold  `iMonomial`  0
                  THEN  Auto
                  THEN  MemTypeCD
                  THEN  Auto
                  THEN  (D  0  THEN  Reduce  0)
                  THEN  Auto))
  THEN  (Assert  [<c,  []>]  \mmember{}  iPolynomial()  BY
                          (MemTypeCD  THEN  Auto  THEN  All  Reduce  THEN  Auto))
  THEN  Auto)

---

Home Index