---

Step * 1 1 of Lemma bag-induction

.....equality..... 
1. T : Type
2. P : bag(T) ⟶ ℙ
3. ∀x:T. P[[x]]
4. ∀bs:bag({b:bag(T)| P[b]} ). P[bag-union(bs)]
5. b : bag(T)
⊢ b ~ bag-union(bag-map(λx.[x];b))
BY
{ (GenConcl ⌜b = L ∈ (Top List)⌝⋅ THEN Auto) }

1
1. T : Type
2. P : bag(T) ⟶ ℙ
3. ∀x:T. P[[x]]
4. ∀bs:bag({b:bag(T)| P[b]} ). P[bag-union(bs)]
5. b : bag(T)
6. L : Top List
7. b = L ∈ (Top List)
⊢ L ~ bag-union(bag-map(λx.[x];L))

---

Latex:

---

Latex:
.....equality..... 
1.  T  :  Type
2.  P  :  bag(T)  {}\mrightarrow{}  \mBbbP{}
3.  \mforall{}x:T.  P[[x]]
4.  \mforall{}bs:bag(\{b:bag(T)|  P[b]\}  ).  P[bag-union(bs)]
5.  b  :  bag(T)
\mvdash{}  b  \msim{}  bag-union(bag-map(\mlambda{}x.[x];b))


By

---

Latex:
(GenConcl  \mkleeneopen{}b  =  L\mkleeneclose{}\mcdot{}  THEN  Auto)

---

Home Index