---

Step * 1 2 of Lemma assert-nonneg-monomial


1. m1 : ℤ-o
2. m2 : {vs:ℤ List| sorted(vs)} 
3. 0 ≤ m1
4. ↑even-int-list(m2)
5. ∃u:{vs:ℤ List| sorted(vs)} . (m2 = merge-int-accum(u;u) ∈ (ℤ List))
⊢ ∃m':iMonomial(). ∃k:ℕ+. (mul-monomials(m';m') = mul-monomials(<m1, m2>;<k, []>) ∈ iMonomial())
BY
{ ((ExRepD THEN InstConcl [⌜<m1, u>⌝; ⌜m1⌝]⋅) THEN Auto) }

1
1. m1 : ℤ-o
2. m2 : {vs:ℤ List| sorted(vs)} 
3. 0 ≤ m1
4. ↑even-int-list(m2)
5. u : {vs:ℤ List| sorted(vs)} 
6. m2 = merge-int-accum(u;u) ∈ (ℤ List)
⊢ mul-monomials(<m1, u>;<m1, u>) = mul-monomials(<m1, m2>;<m1, []>) ∈ iMonomial()

---

Latex:

---

Latex:

1.  m1  :  \mBbbZ{}\msupminus{}\msupzero{}
2.  m2  :  \{vs:\mBbbZ{}  List|  sorted(vs)\} 
3.  0  \mleq{}  m1
4.  \muparrow{}even-int-list(m2)
5.  \mexists{}u:\{vs:\mBbbZ{}  List|  sorted(vs)\}  .  (m2  =  merge-int-accum(u;u))
\mvdash{}  \mexists{}m':iMonomial().  \mexists{}k:\mBbbN{}\msupplus{}.  (mul-monomials(m';m')  =  mul-monomials(<m1,  m2><k,  []>))


By

---

Latex:
((ExRepD  THEN  InstConcl  [\mkleeneopen{}<m1,  u>\mkleeneclose{};  \mkleeneopen{}m1\mkleeneclose{}]\mcdot{})  THEN  Auto)

---

Home Index