---

Step * of Lemma sub-bag-singleton-left

∀[T:Type]. ∀[b:bag(T)]. ∀[x:T].  x ↓∈ b supposing sub-bag(T;{x};b)
BY
{ ((UnivCD THENA Auto)
   THEN Unfold `sub-bag` (-1)
   THEN ExRepD
   THEN (HypSubst' (-1) 0 THENA Auto)
   THEN BagMemberD 0
   THEN (D 0 THEN Auto)
   THEN (OrLeft THENA Auto)
   THEN BagMemberD 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[b:bag(T)].  \mforall{}[x:T].    x  \mdownarrow{}\mmember{}  b  supposing  sub-bag(T;\{x\};b)


By

---

Latex:
((UnivCD  THENA  Auto)
  THEN  Unfold  `sub-bag`  (-1)
  THEN  ExRepD
  THEN  (HypSubst'  (-1)  0  THENA  Auto)
  THEN  BagMemberD  0
  THEN  (D  0  THEN  Auto)
  THEN  (OrLeft  THENA  Auto)
  THEN  BagMemberD  0
  THEN  Auto)

---

Home Index