---

Step * 1 1 1 of Lemma bag-induction


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))
BY
{ (RepUR ``bag-union bag-map`` 0 THEN All Thin) }

1
1. L : Top List
⊢ L ~ concat(map(λx.[x];L))

---

Latex:

---

Latex:

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)
6.  L  :  Top  List
7.  b  =  L
\mvdash{}  L  \msim{}  bag-union(bag-map(\mlambda{}x.[x];L))


By

---

Latex:
(RepUR  ``bag-union  bag-map``  0  THEN  All  Thin)

---

Home Index