---

Step * 1 1 1 2 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. ↑pred(e) ∈b prior(X)
10. prior(X)(e) ~ prior(X)(pred(e))
⊢ if e ∈b X
then (if pred(e) ∈b prior(X) then ≤(X)(prior(X)(pred(e))) else [] fi  @ if pred(e) ∈b X then [pred(e)] else [] fi )
     @ [e]
else if pred(e) ∈b prior(X) then ≤(X)(prior(X)(pred(e))) else [] fi  @ if pred(e) ∈b X then [pred(e)] else [] fi 
fi  ~ ≤(X)(prior(X)(pred(e))) @ if e ∈b X then [e] else [] fi 
BY
{ (AutoBoolCase ⌈pred(e) ∈b X⌉⋅
   THEN AutoBoolCase ⌈pred(e) ∈b prior(X)⌉⋅
   THEN Try ((AutoBoolCase ⌈e ∈b X⌉⋅ 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.  \mneg{}\muparrow{}pred(e)  \mmember{}\msubb{}  X
9.  \muparrow{}pred(e)  \mmember{}\msubb{}  prior(X)
10.  prior(X)(e)  \msim{}  prior(X)(pred(e))
\mvdash{}  if  e  \mmember{}\msubb{}  X
then  (if  pred(e)  \mmember{}\msubb{}  prior(X)  then  \mleq{}(X)(prior(X)(pred(e)))  else  []  fi 
          @  if  pred(e)  \mmember{}\msubb{}  X  then  [pred(e)]  else  []  fi  )
          @  [e]
else  if  pred(e)  \mmember{}\msubb{}  prior(X)  then  \mleq{}(X)(prior(X)(pred(e)))  else  []  fi 
          @  if  pred(e)  \mmember{}\msubb{}  X  then  [pred(e)]  else  []  fi 
fi    \msim{}  \mleq{}(X)(prior(X)(pred(e)))  @  if  e  \mmember{}\msubb{}  X  then  [e]  else  []  fi 


By

---

Latex:
(AutoBoolCase  \mkleeneopen{}pred(e)  \mmember{}\msubb{}  X\mkleeneclose{}\mcdot{}
  THEN  AutoBoolCase  \mkleeneopen{}pred(e)  \mmember{}\msubb{}  prior(X)\mkleeneclose{}\mcdot{}
  THEN  Try  ((AutoBoolCase  \mkleeneopen{}e  \mmember{}\msubb{}  X\mkleeneclose{}\mcdot{}  THEN  RWO  "append-nil"  0))
  THEN  Auto)\mcdot{}

---

Home Index