---

Step * 4 1 1 1 of Lemma prior-as-rec-bind-class-in-property


1. Info : Type
2. A : Type
3. X : EClass(A)
4. y1 : Unit
5. a : bag(A) + (bag(A)?)
6. es : EO+(Info)
7. e : E
8. x : bag(A)?
9. x1 : bag(A)
10. x1 ∈ Lift(X)(e)
11. x = (inl x1) ∈ (bag(A)?)
12. a = (inr x ) ∈ (bag(A) + (bag(A)?))
13. w : bag(A) + (bag(A)?)
14. e ∈ E
15. w ↓∈ ∪x∈(Skip(send-class({x1})) until Skip(X)) es.e e.{inl x}
16. v : EClass(bag(A))@i'
17. (Skip(send-class({x1})) until Skip(X)) = v ∈ EClass(bag(A))@i'
⊢ v es.e e ∈ bag(bag(A))
BY
{ (Unfold `eclass` (-2) THEN Auto) }

---

Latex:

---

Latex:

1.  Info  :  Type
2.  A  :  Type
3.  X  :  EClass(A)
4.  y1  :  Unit
5.  a  :  bag(A)  +  (bag(A)?)
6.  es  :  EO+(Info)
7.  e  :  E
8.  x  :  bag(A)?
9.  x1  :  bag(A)
10.  x1  \mmember{}  Lift(X)(e)
11.  x  =  (inl  x1)
12.  a  =  (inr  x  )
13.  w  :  bag(A)  +  (bag(A)?)
14.  e  \mmember{}  E
15.  w  \mdownarrow{}\mmember{}  \mcup{}x\mmember{}(Skip(send-class(\{x1\}))  until  Skip(X))  es.e  e.\{inl  x\}
16.  v  :  EClass(bag(A))@i'
17.  (Skip(send-class(\{x1\}))  until  Skip(X))  =  v@i'
\mvdash{}  v  es.e  e  \mmember{}  bag(bag(A))


By

---

Latex:
(Unfold  `eclass`  (-2)  THEN  Auto)

---

Home Index