---

Step * 1 1 of Lemma bag-union_wf

.....assertion..... 
1. T : Type
2. as : bag(T) List
3. bs : bag(T) List
4. permutation(bag(T);as;bs)
⊢ ∀L:bag(T) List. (concat(L) ∈ bag(T))
BY
{ (InductionOnList
   THEN Unfold `concat` 0
   THEN Reduce 0
   THEN (Try (Fold `concat` 0) THEN Folds ``bag-append empty-bag`` 0)
   THEN Auto) }

---

Latex:

---

Latex:
.....assertion..... 
1.  T  :  Type
2.  as  :  bag(T)  List
3.  bs  :  bag(T)  List
4.  permutation(bag(T);as;bs)
\mvdash{}  \mforall{}L:bag(T)  List.  (concat(L)  \mmember{}  bag(T))


By

---

Latex:
(InductionOnList
  THEN  Unfold  `concat`  0
  THEN  Reduce  0
  THEN  (Try  (Fold  `concat`  0)  THEN  Folds  ``bag-append  empty-bag``  0)
  THEN  Auto)

---

Home Index