---

Step * 1 1 of Lemma bag-restrict-disjoint


1. T : Type
2. eq : EqDecider(T)
3. x : T
4. b : T List
5. ¬(x ∈ b)
⊢ (∀x1∈b.¬↑((λz.(eq x z)) x1))
BY
{ (RepUR ``so_apply`` 0
   THEN BLemma `l_all_iff`
   THEN Auto
   THEN Reduce 0
   THEN (RW assert_pushdownC 0 THENA Auto)
   THEN ParallelOp -3
   THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  x  :  T
4.  b  :  T  List
5.  \mneg{}(x  \mmember{}  b)
\mvdash{}  (\mforall{}x1\mmember{}b.\mneg{}\muparrow{}((\mlambda{}z.(eq  x  z))  x1))


By

---

Latex:
(RepUR  ``so\_apply``  0
  THEN  BLemma  `l\_all\_iff`
  THEN  Auto
  THEN  Reduce  0
  THEN  (RW  assert\_pushdownC  0  THENA  Auto)
  THEN  ParallelOp  -3
  THEN  Auto)

---

Home Index