---

Step * 1 1 of Lemma assert-bag-null


1. T : Type
2. T List ∈ Type
3. ∀as,b1:T List.  (permutation(T;as;b1) ∈ Type)
4. ∀as:T List. permutation(T;as;as)
5. a : Base
6. b : Base
7. c : a = b ∈ pertype(λas,bs. ((as ∈ T List) ∧ (bs ∈ T List) ∧ permutation(T;as;bs)))
8. a ∈ T List
9. b ∈ T List
10. permutation(T;a;b)
11. ↑bag-null(a)
⊢ a = {} ∈ bag(T)
BY
{ (RepUR ``bag-null`` -1⋅
   THEN RW assert_pushdownC (-1)
   THEN Auto
   THEN HypSubst' (-1) 0
   THEN Fold `empty-bag` 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  T  List  \mmember{}  Type
3.  \mforall{}as,b1:T  List.    (permutation(T;as;b1)  \mmember{}  Type)
4.  \mforall{}as:T  List.  permutation(T;as;as)
5.  a  :  Base
6.  b  :  Base
7.  c  :  a  =  b
8.  a  \mmember{}  T  List
9.  b  \mmember{}  T  List
10.  permutation(T;a;b)
11.  \muparrow{}bag-null(a)
\mvdash{}  a  =  \{\}


By

---

Latex:
(RepUR  ``bag-null``  -1\mcdot{}
  THEN  RW  assert\_pushdownC  (-1)
  THEN  Auto
  THEN  HypSubst'  (-1)  0
  THEN  Fold  `empty-bag`  0
  THEN  Auto)

---

Home Index