Step
*
of Lemma
mul-monomials_wf
∀[m1,m2:iMonomial()].  (mul-monomials(m1;m2) ∈ iMonomial())
BY
{ ((UnivCD THENA Auto)
   THEN D 2
   THEN D 1
   THEN RepUR ``mul-monomials`` 0
   THEN RepeatFor 2 ((CallByValueReduce 0 THENA Auto))
   THEN (RWO "merge-int-accum-sq" 0 THENA Auto)) }
1
1. m5 : ℤ-o
2. m6 : {vs:ℤ List| sorted(vs)} 
3. m3 : ℤ-o
4. m4 : {vs:ℤ List| sorted(vs)} 
⊢ <m5 * m3, merge-int(m6;m4)> ∈ iMonomial()
Latex:
Latex:
\mforall{}[m1,m2:iMonomial()].    (mul-monomials(m1;m2)  \mmember{}  iMonomial())
By
Latex:
((UnivCD  THENA  Auto)
  THEN  D  2
  THEN  D  1
  THEN  RepUR  ``mul-monomials``  0
  THEN  RepeatFor  2  ((CallByValueReduce  0  THENA  Auto))
  THEN  (RWO  "merge-int-accum-sq"  0  THENA  Auto))
Home
Index