---

Step * 1 2 1 1 of Lemma empty-bag-union

.....subterm..... T:t
2:n
1. T : Type
2. bag(T) List ∈ Type
3. ∀as,b1:bag(T) List.  (permutation(bag(T);as;b1) ∈ Type)
4. ∀as:bag(T) List. permutation(bag(T);as;as)
5. a : Base
6. b : Base
7. c : a = b ∈ pertype(λas,bs. ((as ∈ bag(T) List) ∧ (bs ∈ bag(T) List) ∧ permutation(bag(T);as;bs)))
8. a ∈ bag(T) List
9. b ∈ bag(T) List
10. permutation(bag(T);a;b)
11. bag-union(a) = {} ∈ bag(T)
⊢ a = b ∈ (Top List List)
BY
{ ((FLemma `permutation-length` [-2] THENA Auto) THEN BLemma `list_extensionality` THEN Auto)⋅ }

1
1. T : Type
2. bag(T) List ∈ Type
3. ∀as,b1:bag(T) List.  (permutation(bag(T);as;b1) ∈ Type)
4. ∀as:bag(T) List. permutation(bag(T);as;as)
5. a : Base
6. b : Base
7. c : a = b ∈ pertype(λas,bs. ((as ∈ bag(T) List) ∧ (bs ∈ bag(T) List) ∧ permutation(bag(T);as;bs)))
8. a ∈ bag(T) List
9. b ∈ bag(T) List
10. permutation(bag(T);a;b)
11. bag-union(a) = {} ∈ bag(T)
12. ||a|| = ||b|| ∈ ℤ
13. i : ℕ
14. i < ||a||
⊢ a[i] = b[i] ∈ (Top List)

---

Latex:

---

Latex:
.....subterm.....  T:t
2:n
1.  T  :  Type
2.  bag(T)  List  \mmember{}  Type
3.  \mforall{}as,b1:bag(T)  List.    (permutation(bag(T);as;b1)  \mmember{}  Type)
4.  \mforall{}as:bag(T)  List.  permutation(bag(T);as;as)
5.  a  :  Base
6.  b  :  Base
7.  c  :  a  =  b
8.  a  \mmember{}  bag(T)  List
9.  b  \mmember{}  bag(T)  List
10.  permutation(bag(T);a;b)
11.  bag-union(a)  =  \{\}
\mvdash{}  a  =  b


By

---

Latex:
((FLemma  `permutation-length`  [-2]  THENA  Auto)  THEN  BLemma  `list\_extensionality`  THEN  Auto)\mcdot{}

---

Home Index