---

Step * 1 1 of Lemma sub-bags-no-repeats


1. T : Type
2. eq : EqDecider(T)
3. bs : bag(T)
4. valueall-type(T)
5. bb : bag({p:bag(T) × bag(T)| p ↓∈ bag-partitions(eq;bs)} )
6. bag-partitions(eq;bs) = bb ∈ bag({p:bag(T) × bag(T)| p ↓∈ bag-partitions(eq;bs)} )
⊢ bag-no-repeats(bag(T);bag-map(λp.(fst(p));bb))
BY
{ (BLemma `bag-map-no-repeats` THEN Auto) }

1
1. T : Type
2. eq : EqDecider(T)
3. bs : bag(T)
4. valueall-type(T)
5. bb : bag({p:bag(T) × bag(T)| p ↓∈ bag-partitions(eq;bs)} )
6. bag-partitions(eq;bs) = bb ∈ bag({p:bag(T) × bag(T)| p ↓∈ bag-partitions(eq;bs)} )
⊢ Inj({p:bag(T) × bag(T)| p ↓∈ bag-partitions(eq;bs)} ;bag(T);λp.(fst(p)))

2
1. T : Type
2. eq : EqDecider(T)
3. bs : bag(T)
4. valueall-type(T)
5. bb : bag({p:bag(T) × bag(T)| p ↓∈ bag-partitions(eq;bs)} )
6. bag-partitions(eq;bs) = bb ∈ bag({p:bag(T) × bag(T)| p ↓∈ bag-partitions(eq;bs)} )
⊢ bag-no-repeats({p:bag(T) × bag(T)| p ↓∈ bag-partitions(eq;bs)} ;bb)

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  bs  :  bag(T)
4.  valueall-type(T)
5.  bb  :  bag(\{p:bag(T)  \mtimes{}  bag(T)|  p  \mdownarrow{}\mmember{}  bag-partitions(eq;bs)\}  )
6.  bag-partitions(eq;bs)  =  bb
\mvdash{}  bag-no-repeats(bag(T);bag-map(\mlambda{}p.(fst(p));bb))


By

---

Latex:
(BLemma  `bag-map-no-repeats`  THEN  Auto)

---

Home Index