---

Step * 1 of Lemma es-interface-union-left


1. Info : Type
2. A : Type
3. X : EClass(A)
4. Y : EClass(Top)
5. Singlevalued(X)
6. x : EO+(Info)
7. x1 : E
8. ↑x1 ∈b X
⊢ (fst(bag-separate({inl only(X x x1)}))) = (X x x1) ∈ bag(A)
BY
{ (RepUR ``in-eclass`` (-1)
   THEN (RW assert_pushdownC (-1) THENA Auto)
   THEN (ElimBagSizeOne THEN Try ((BLemma `single-valued-bag-if-le1` THEN Auto)))
   THEN Try ((All Thin
              THEN RepUR ``bag-separate single-bag bag-mapfilter bag-filter bag-map bag-only`` 0⋅
              THEN Auto))) }

---

Latex:

---

Latex:

1.  Info  :  Type
2.  A  :  Type
3.  X  :  EClass(A)
4.  Y  :  EClass(Top)
5.  Singlevalued(X)
6.  x  :  EO+(Info)
7.  x1  :  E
8.  \muparrow{}x1  \mmember{}\msubb{}  X
\mvdash{}  (fst(bag-separate(\{inl  only(X  x  x1)\})))  =  (X  x  x1)


By

---

Latex:
(RepUR  ``in-eclass``  (-1)
  THEN  (RW  assert\_pushdownC  (-1)  THENA  Auto)
  THEN  (ElimBagSizeOne  THEN  Try  ((BLemma  `single-valued-bag-if-le1`  THEN  Auto)))
  THEN  Try  ((All  Thin
                        THEN  RepUR  ``bag-separate  single-bag  bag-mapfilter  bag-filter  bag-map  bag-only``  0\mcdot{}
                        THEN  Auto)))

---

Home Index