---

Step * 1 1 1 of Lemma bag-member-splits


1. T : Type
2. as : bag(T)
3. bs : bag(T)
4. istype(T List)
5. ∀a1,b1:T List.  istype(permutation(T;a1;b1))
6. ∀a1:T List. permutation(T;a1;a1)
7. a : Base
8. b : Base
9. c : a = b ∈ (as,bs:T List//permutation(T;as;bs))
10. a ∈ T List
11. b ∈ T List
12. permutation(T;a;b)
13. <as, bs> ↓∈ bag-splits(a)
⊢ (as + bs) = a ∈ bag(T)
BY
{ (ThinVar `b' THEN MoveToConcl (-1) THEN (GenConcl ⌜a = cs ∈ (T List)⌝⋅ THENA Auto) THEN Thin (-1) THEN Auto)⋅ }

1
1. T : Type
2. as : bag(T)
3. bs : bag(T)
4. istype(T List)
5. ∀a1,b1:T List.  istype(permutation(T;a1;b1))
6. ∀a1:T List. permutation(T;a1;a1)
7. a : Base
8. a ∈ T List
9. cs : T List
10. <as, bs> ↓∈ bag-splits(cs)
⊢ (as + bs) = cs ∈ bag(T)

---

Latex:

---

Latex:

1.  T  :  Type
2.  as  :  bag(T)
3.  bs  :  bag(T)
4.  istype(T  List)
5.  \mforall{}a1,b1:T  List.    istype(permutation(T;a1;b1))
6.  \mforall{}a1:T  List.  permutation(T;a1;a1)
7.  a  :  Base
8.  b  :  Base
9.  c  :  a  =  b
10.  a  \mmember{}  T  List
11.  b  \mmember{}  T  List
12.  permutation(T;a;b)
13.  <as,  bs>  \mdownarrow{}\mmember{}  bag-splits(a)
\mvdash{}  (as  +  bs)  =  a


By

---

Latex:
(ThinVar  `b'  THEN  MoveToConcl  (-1)  THEN  (GenConcl  \mkleeneopen{}a  =  cs\mkleeneclose{}\mcdot{}  THENA  Auto)  THEN  Thin  (-1)  THEN  Auto)\mcdot{}

---

Home Index