---

Step * of Lemma bag-product-single

∀[bs:Top List]. ∀[a:Top].  ({a} × bs ~ bag-map(λx.<a, x>;bs))
BY
{ (RepUR ``bag-product single-bag bag-append empty-bag bag-map`` 0 THEN Auto THEN RWO "append-nil" 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[bs:Top  List].  \mforall{}[a:Top].    (\{a\}  \mtimes{}  bs  \msim{}  bag-map(\mlambda{}x.<a,  x>bs))


By

---

Latex:
(RepUR  ``bag-product  single-bag  bag-append  empty-bag  bag-map``  0
  THEN  Auto
  THEN  RWO  "append-nil"  0
  THEN  Auto)

---

Home Index