---

Step * of Lemma bag-union-is-single-if

∀[T:Type]. ∀[x:T].  ∀bbs:bag(bag(T)). bag-union(bbs) = {x} ∈ bag(T) supposing bbs = {{x}} ∈ bag(bag(T))
BY
{ ((UnivCD THENA Auto)
   THEN (HypSubst' (-1) 0 THENA Auto)
   THEN RWO "bag-union-single" 0
   THEN Auto
   THEN Unfold `single-bag` 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[x:T].    \mforall{}bbs:bag(bag(T)).  bag-union(bbs)  =  \{x\}  supposing  bbs  =  \{\{x\}\}


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  (HypSubst'  (-1)  0  THENA  Auto)
  THEN  RWO  "bag-union-single"  0
  THEN  Auto
  THEN  Unfold  `single-bag`  0
  THEN  Auto)

---

Home Index