---

Step * of Lemma mul-list-merge

∀[ns2,ns1:ℤ List].  (Π(merge-int(ns1;ns2))  = (Π(ns1)  * Π(ns2) ) ∈ ℤ)
BY
{ xxx(InductionOnList
      THEN Unfold `merge-int` 0
      THEN Reduce 0
      THEN Auto
      THEN Fold `merge-int` 0
      THEN RWW "mul-list-insert-int 4" 0
      THEN Auto
      THEN Unfold `mul-list` 0
      THEN Reduce 0
      THEN Fold `mul-list` 0
      THEN Auto)xxx }

---

Latex:

---

Latex:
\mforall{}[ns2,ns1:\mBbbZ{}  List].    (\mPi{}(merge-int(ns1;ns2))    =  (\mPi{}(ns1)    *  \mPi{}(ns2)  ))


By

---

Latex:
xxx(InductionOnList
        THEN  Unfold  `merge-int`  0
        THEN  Reduce  0
        THEN  Auto
        THEN  Fold  `merge-int`  0
        THEN  RWW  "mul-list-insert-int  4"  0
        THEN  Auto
        THEN  Unfold  `mul-list`  0
        THEN  Reduce  0
        THEN  Fold  `mul-list`  0
        THEN  Auto)xxx

---

Home Index