---

Step * 1 2 2 1 of Lemma bag-union_wf


1. T : Type
2. as : bag(T) List
3. bs : bag(T) List
4. permutation(bag(T);as;bs)
5. ∀L:bag(T) List. (concat(L) ∈ bag(T))
6. as@0 : bag(T) List
7. a1 : bag(T)
8. a2 : bag(T)
9. concat([a1; [a2 / as@0]]) = concat(as) ∈ bag(T)
⊢ (a1 + a2 + concat(as@0)) = (a2 + a1 + concat(as@0)) ∈ bag(T)
BY
{ ((RWO "bag-append-assoc<" 0 THEN Auto) THEN EqCD THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  as  :  bag(T)  List
3.  bs  :  bag(T)  List
4.  permutation(bag(T);as;bs)
5.  \mforall{}L:bag(T)  List.  (concat(L)  \mmember{}  bag(T))
6.  as@0  :  bag(T)  List
7.  a1  :  bag(T)
8.  a2  :  bag(T)
9.  concat([a1;  [a2  /  as@0]])  =  concat(as)
\mvdash{}  (a1  +  a2  +  concat(as@0))  =  (a2  +  a1  +  concat(as@0))


By

---

Latex:
((RWO  "bag-append-assoc<"  0  THEN  Auto)  THEN  EqCD  THEN  Auto)

---

Home Index