---

Step * 1 of Lemma bag-parts'_wf2


1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. x : T
5. bs : bag(T)
⊢ bag-parts'(eq;bs;x) ∈ bag({L:bag(T) List+| ¬x ↓∈ hd(L)} )
BY
{ SubsumeC ⌜bag({L:bag(T) List+| L ↓∈ bag-parts'(eq;bs;x)} )⌝⋅ }

1
1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. x : T
5. bs : bag(T)
⊢ bag-parts'(eq;bs;x) ∈ bag({L:bag(T) List+| L ↓∈ bag-parts'(eq;bs;x)} )

2
1. T : Type
2. valueall-type(T)
3. eq : EqDecider(T)
4. x : T
5. bs : bag(T)
6. bag-parts'(eq;bs;x) = bag-parts'(eq;bs;x) ∈ bag({L:bag(T) List+| L ↓∈ bag-parts'(eq;bs;x)} )
⊢ bag({L:bag(T) List+| L ↓∈ bag-parts'(eq;bs;x)} ) ⊆r bag({L:bag(T) List+| ¬x ↓∈ hd(L)} )

---

Latex:

---

Latex:

1.  T  :  Type
2.  valueall-type(T)
3.  eq  :  EqDecider(T)
4.  x  :  T
5.  bs  :  bag(T)
\mvdash{}  bag-parts'(eq;bs;x)  \mmember{}  bag(\{L:bag(T)  List\msupplus{}|  \mneg{}x  \mdownarrow{}\mmember{}  hd(L)\}  )


By

---

Latex:
SubsumeC  \mkleeneopen{}bag(\{L:bag(T)  List\msupplus{}|  L  \mdownarrow{}\mmember{}  bag-parts'(eq;bs;x)\}  )\mkleeneclose{}\mcdot{}

---

Home Index