---

Step * 2 1 1 of Lemma es-prior-interface-cases-sq


1. [Info] : Type
2. X : EClass(Top)@i'
3. es : EO+(Info)@i'
4. e : E@i
5. ↑e ∈b prior(X)
6. ¬↑first(e)
7. ¬↑first(e)
8. ¬↑pred(e) ∈b X
⊢ ↑pred(e) ∈b prior(X)
BY
{ (MoveToConcl (-4)
   THEN (RepUR ``es-prior-interface local-pred-class in-eclass`` 0
         THEN RW (AddrC [1] (RecUnfoldC `es-local-pred`)) 0
         THEN Reduce 0
         THEN RepeatFor 2 (OldAutoSplit))⋅
   ) }

1
1. [Info] : Type
2. X : EClass(Top)@i'
3. es : EO+(Info)@i'
4. e : E@i
5. ¬↑first(e)
6. ¬↑first(e)
7. ¬↑pred(e) ∈b X
8. ¬↑first(e)
9. #(X es pred(e)) = 1 ∈ ℤ
⊢ True ⇒ (↑(#(case last(λe.(#(X es e) =z 1)) pred(e) of inl(e') => {e'} | inr(x) => {}) =z 1))

---

Latex:

---

Latex:

1.  [Info]  :  Type
2.  X  :  EClass(Top)@i'
3.  es  :  EO+(Info)@i'
4.  e  :  E@i
5.  \muparrow{}e  \mmember{}\msubb{}  prior(X)
6.  \mneg{}\muparrow{}first(e)
7.  \mneg{}\muparrow{}first(e)
8.  \mneg{}\muparrow{}pred(e)  \mmember{}\msubb{}  X
\mvdash{}  \muparrow{}pred(e)  \mmember{}\msubb{}  prior(X)


By

---

Latex:
(MoveToConcl  (-4)
  THEN  (RepUR  ``es-prior-interface  local-pred-class  in-eclass``  0
              THEN  RW  (AddrC  [1]  (RecUnfoldC  `es-local-pred`))  0
              THEN  Reduce  0
              THEN  RepeatFor  2  (OldAutoSplit))\mcdot{}
  )

---

Home Index