---

Step * 1 2 1 of Lemma bag-union-is-single


1. T : Type
2. x : T
3. u : T List
4. v : bag(T) List
5. (bag-union(v) = {x} ∈ bag(T))
⇒ (↓∃bbs':bag(bag(T)). ((v = {x}.bbs' ∈ bag(bag(T))) ∧ (bag-union(bbs') = {} ∈ bag(T))))
6. u = {x} ∈ bag(T)
7. bag-union(v) = {} ∈ bag(T)
⊢ ↓∃bbs':bag(bag(T)). (([u / v] = {x}.bbs' ∈ bag(bag(T))) ∧ (bag-union(bbs') = {} ∈ bag(T)))
BY
{ (D 0⋅
   THEN (InstConcl [⌜v⌝]⋅ THENA Auto)
   THEN Auto
   THEN Try (Fold `cons-bag` 0)
   THEN HypSubst' (-2) 0
   THEN Try (Complete (Auto))) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  x  :  T
3.  u  :  T  List
4.  v  :  bag(T)  List
5.  (bag-union(v)  =  \{x\})  {}\mRightarrow{}  (\mdownarrow{}\mexists{}bbs':bag(bag(T)).  ((v  =  \{x\}.bbs')  \mwedge{}  (bag-union(bbs')  =  \{\})))
6.  u  =  \{x\}
7.  bag-union(v)  =  \{\}
\mvdash{}  \mdownarrow{}\mexists{}bbs':bag(bag(T)).  (([u  /  v]  =  \{x\}.bbs')  \mwedge{}  (bag-union(bbs')  =  \{\}))


By

---

Latex:
(D  0\mcdot{}
  THEN  (InstConcl  [\mkleeneopen{}v\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  Auto
  THEN  Try  (Fold  `cons-bag`  0)
  THEN  HypSubst'  (-2)  0
  THEN  Try  (Complete  (Auto)))

---

Home Index