---

Step * 1 1 of Lemma add-ipoly-wf1


1. ∀u,u':ℤ × (ℤ List).  (imonomial-le(u;u') ∈ 𝔹)
⊢ ∀q:(ℤ × (ℤ List)) List. (add-ipoly([];q) ∈ (ℤ × (ℤ List)) List)
BY
{ (Intro
   THEN RecUnfold `add-ipoly` 0
   THEN (CallByValueReduceOn ⌜[]⌝ 0⋅ THENA Auto)
   THEN Reduce 0
   THEN CallByValueReduceOn ⌜q⌝ 0⋅
   THEN Auto) }

---

Latex:

---

Latex:

1.  \mforall{}u,u':\mBbbZ{}  \mtimes{}  (\mBbbZ{}  List).    (imonomial-le(u;u')  \mmember{}  \mBbbB{})
\mvdash{}  \mforall{}q:(\mBbbZ{}  \mtimes{}  (\mBbbZ{}  List))  List.  (add-ipoly([];q)  \mmember{}  (\mBbbZ{}  \mtimes{}  (\mBbbZ{}  List))  List)


By

---

Latex:
(Intro
  THEN  RecUnfold  `add-ipoly`  0
  THEN  (CallByValueReduceOn  \mkleeneopen{}[]\mkleeneclose{}  0\mcdot{}  THENA  Auto)
  THEN  Reduce  0
  THEN  CallByValueReduceOn  \mkleeneopen{}q\mkleeneclose{}  0\mcdot{}
  THEN  Auto)

---

Home Index