---

Step * 2 of Lemma bag-diff-equal-inl


1. T : Type
2. eq : EqDecider(T)
3. as : bag(T)
4. bs : bag(T)
5. y : Unit
6. bag-diff(eq;bs;as) = (inr y ) ∈ (bag(T)?)
7. ∀cs:bag(T). (¬(bs = (as + cs) ∈ bag(T)))
8. cs : bag(T)
9. bs = (as + cs) ∈ bag(T)
⊢ (inr y ) = (inl cs) ∈ (bag(T)?)
BY
{ (InstHyp [⌜cs⌝] (-3)⋅ THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  as  :  bag(T)
4.  bs  :  bag(T)
5.  y  :  Unit
6.  bag-diff(eq;bs;as)  =  (inr  y  )
7.  \mforall{}cs:bag(T).  (\mneg{}(bs  =  (as  +  cs)))
8.  cs  :  bag(T)
9.  bs  =  (as  +  cs)
\mvdash{}  (inr  y  )  =  (inl  cs)


By

---

Latex:
(InstHyp  [\mkleeneopen{}cs\mkleeneclose{}]  (-3)\mcdot{}  THEN  Auto)

---

Home Index