---

Step * 1 1 1 1 of Lemma es-interface-predecessors-step-sq


1. Info : Type@i'
2. es : EO+(Info)@i'
3. X : EClass(Top)@i'
4. e : E@i
5. ∀e1:E
     ((e1 < e) ⇒ (≤(X)(e1) ~ if e1 ∈b prior(X) then ≤(X)(prior(X)(e1)) else [] fi  @ if e1 ∈b X then [e1] else [] fi ))
6. ↑e ∈b prior(X)
7. ¬↑first(e)
8. ↑pred(e) ∈b X
9. prior(X)(e) ~ pred(e)
⊢ if e ∈b X then ≤(X)(pred(e)) @ [e] else ≤(X)(pred(e)) fi  ~ ≤(X)(pred(e)) @ if e ∈b X then [e] else [] fi 
BY
{ (AutoSplit THEN RWO "append-nil" 0 THEN Auto)⋅ }

---

Latex:

---

Latex:

1.  Info  :  Type@i'
2.  es  :  EO+(Info)@i'
3.  X  :  EClass(Top)@i'
4.  e  :  E@i
5.  \mforall{}e1:E
          ((e1  <  e)
          {}\mRightarrow{}  (\mleq{}(X)(e1)  \msim{}  if  e1  \mmember{}\msubb{}  prior(X)  then  \mleq{}(X)(prior(X)(e1))  else  []  fi 
                @  if  e1  \mmember{}\msubb{}  X  then  [e1]  else  []  fi  ))
6.  \muparrow{}e  \mmember{}\msubb{}  prior(X)
7.  \mneg{}\muparrow{}first(e)
8.  \muparrow{}pred(e)  \mmember{}\msubb{}  X
9.  prior(X)(e)  \msim{}  pred(e)
\mvdash{}  if  e  \mmember{}\msubb{}  X  then  \mleq{}(X)(pred(e))  @  [e]  else  \mleq{}(X)(pred(e))  fi    \msim{}  \mleq{}(X)(pred(e))
@  if  e  \mmember{}\msubb{}  X  then  [e]  else  []  fi 


By

---

Latex:
(AutoSplit  THEN  RWO  "append-nil"  0  THEN  Auto)\mcdot{}

---

Home Index