---

Step * 4 of Lemma rat_term_to_ipolys_wf

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

---

Latex:

---

Latex:
.....subterm.....  T:t
3:n
1.  t  :  rat\_term()
2.  ə,  []>  \mmember{}  iMonomial()
3.  [ə,  []>]  \mmember{}  iPolynomial()
4.  v  :  \mBbbZ{}
\mvdash{}  <[ə,  [v]>],  [ə,  []>]>  \mmember{}  iPolynomial()  \mtimes{}  iPolynomial()


By

---

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

---

Home Index