---

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


1. T : Type
2. eq : EqDecider(T)
3. u : T
4. v : T List
5. ∀bs:bag(T). (bag-no-repeats(T;bs) ⇒ bag-no-repeats(T;bag-subtract(eq;bs;v)))
6. bs : bag(T)
7. bag-no-repeats(T;bs)
8. bs = ({u} + bag-drop(eq;bs;u)) ∈ bag(T)
⊢ bag-no-repeats(T;bag-drop(eq;bs;u))
BY
{ (RWO "-1" (-2) THENA Auto) }

1
1. T : Type
2. eq : EqDecider(T)
3. u : T
4. v : T List
5. ∀bs:bag(T). (bag-no-repeats(T;bs) ⇒ bag-no-repeats(T;bag-subtract(eq;bs;v)))
6. bs : bag(T)
7. bag-no-repeats(T;{u} + bag-drop(eq;bs;u))
8. bs = ({u} + bag-drop(eq;bs;u)) ∈ bag(T)
⊢ bag-no-repeats(T;bag-drop(eq;bs;u))

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  u  :  T
4.  v  :  T  List
5.  \mforall{}bs:bag(T).  (bag-no-repeats(T;bs)  {}\mRightarrow{}  bag-no-repeats(T;bag-subtract(eq;bs;v)))
6.  bs  :  bag(T)
7.  bag-no-repeats(T;bs)
8.  bs  =  (\{u\}  +  bag-drop(eq;bs;u))
\mvdash{}  bag-no-repeats(T;bag-drop(eq;bs;u))


By

---

Latex:
(RWO  "-1"  (-2)  THENA  Auto)

---

Home Index