---

Step * 2 1 of Lemma bag-product-no-repeats


1. A : Type
2. B : Type
3. u : A
4. v : A List
5. bag-no-repeats(A;v) ⇒ (∀bs:bag(B). (bag-no-repeats(B;bs) ⇒ bag-no-repeats(A × B;v × bs)))
6. bag-no-repeats(A;[u / v])
7. bs : bag(B)
8. bag-no-repeats(B;bs)
⊢ bag-no-repeats(A × B;{u} × bs)
BY
{ ((RWO "bag-product-single" 0 THEN Auto) THEN BLemma `bag-map-no-repeats` THEN Auto) }

1
1. A : Type
2. B : Type
3. u : A
4. v : A List
5. bag-no-repeats(A;v) ⇒ (∀bs:bag(B). (bag-no-repeats(B;bs) ⇒ bag-no-repeats(A × B;v × bs)))
6. bag-no-repeats(A;[u / v])
7. bs : bag(B)
8. bag-no-repeats(B;bs)
⊢ Inj(B;A × B;λx.<u, x>)

---

Latex:

---

Latex:

1.  A  :  Type
2.  B  :  Type
3.  u  :  A
4.  v  :  A  List
5.  bag-no-repeats(A;v)  {}\mRightarrow{}  (\mforall{}bs:bag(B).  (bag-no-repeats(B;bs)  {}\mRightarrow{}  bag-no-repeats(A  \mtimes{}  B;v  \mtimes{}  bs)))
6.  bag-no-repeats(A;[u  /  v])
7.  bs  :  bag(B)
8.  bag-no-repeats(B;bs)
\mvdash{}  bag-no-repeats(A  \mtimes{}  B;\{u\}  \mtimes{}  bs)


By

---

Latex:
((RWO  "bag-product-single"  0  THEN  Auto)  THEN  BLemma  `bag-map-no-repeats`  THEN  Auto)

---

Home Index