---

Step * of Lemma es-interface-union-right

∀[Info,A:Type]. ∀[X:EClass(A)]. ∀[Y:EClass(Top)].
  (right(Y+X) = X ∈ EClass(A)) supposing (X ∩ Y = 0 and Singlevalued(X))
BY
{ (Auto
   THEN Unfold `eclass` 0
   THEN RepeatFor 2 ((Ext ⋅ THEN Reduce 0 THEN Auto))
   THEN (RepUR ``eclass es-interface-union es-interface-right eclass-compose2 
                 eclass-val in-eclass eclass-compose1`` 0⋅
         THEN Fold `in-eclass` 0
         THEN Repeat (AutoSplit))) }

1
1. Info : Type
2. A : Type
3. X : EClass(A)
4. Y : EClass(Top)
5. Singlevalued(X)
6. X ∩ Y = 0
7. x : EO+(Info)
8. x1 : E
9. ↑x1 ∈b Y
⊢ (snd(bag-separate({inl only(Y x x1)}))) = (X x x1) ∈ bag(A)

2
1. Info : Type
2. A : Type
3. X : EClass(A)
4. Y : EClass(Top)
5. Singlevalued(X)
6. X ∩ Y = 0
7. x : EO+(Info)
8. x1 : E
9. ¬↑x1 ∈b Y
10. ↑x1 ∈b X
⊢ (snd(bag-separate({inr only(X x x1) }))) = (X x x1) ∈ bag(A)

3
1. Info : Type
2. A : Type
3. X : EClass(A)
4. Y : EClass(Top)
5. Singlevalued(X)
6. X ∩ Y = 0
7. x : EO+(Info)
8. x1 : E
9. ¬↑x1 ∈b X
10. ¬↑x1 ∈b Y
⊢ {} = (X x x1) ∈ bag(A)

---

Latex:

---

Latex:
\mforall{}[Info,A:Type].  \mforall{}[X:EClass(A)].  \mforall{}[Y:EClass(Top)].
    (right(Y+X)  =  X)  supposing  (X  \mcap{}  Y  =  0  and  Singlevalued(X))


By

---

Latex:
(Auto
  THEN  Unfold  `eclass`  0
  THEN  RepeatFor  2  ((Ext  \mcdot{}  THEN  Reduce  0  THEN  Auto))
  THEN  (RepUR  ``eclass  es-interface-union  es-interface-right  eclass-compose2 
                              eclass-val  in-eclass  eclass-compose1``  0\mcdot{}
              THEN  Fold  `in-eclass`  0
              THEN  Repeat  (AutoSplit)))

---

Home Index