---

Step * 2 of Lemma eo-strict-forward-pred?


1. Info : Type
2. eo : EO+(Info)
3. e : E
4. e1 : E@i
5. E ⊆r E
6. x : {e':E| (e' <loc e1) ∧ (e' = pred(e1) ∈ E)} @i
7. es-pred?(eo>e;e1) = (inl x) ∈ ({e':E| (e' <loc e1) ∧ (e' = pred(e1) ∈ E)} ?)@i
8. y : Unit@i
9. es-pred?(eo;e1) = (inr y ) ∈ ({e':E| (e' <loc e1) ∧ (e' = pred(e1) ∈ E)} ?)@i
10. loc(x) = loc(e1) ∈ Id@i
11. (x < e1)@i
12. ∀e':E. (e' < e1) ⇒ ((e' = x ∈ E) ∨ (e' < x)) supposing loc(e') = loc(e1) ∈ Id@i
13. ∀e':E. ¬(e' < e1) supposing loc(e') = loc(e1) ∈ Id@i
⊢ (inl x) = if loc(e) = loc(e1) ∧b (es-eq(eo) pred(e1) e) then inr ⋅  else inr y  fi  ∈ (E?)
BY
{ (InstHyp [⌜x⌝] (-1)⋅ THEN Auto)⋅ }

---

Latex:

---

Latex:

1.  Info  :  Type
2.  eo  :  EO+(Info)
3.  e  :  E
4.  e1  :  E@i
5.  E  \msubseteq{}r  E
6.  x  :  \{e':E|  (e'  <loc  e1)  \mwedge{}  (e'  =  pred(e1))\}  @i
7.  es-pred?(eo>e;e1)  =  (inl  x)@i
8.  y  :  Unit@i
9.  es-pred?(eo;e1)  =  (inr  y  )@i
10.  loc(x)  =  loc(e1)@i
11.  (x  <  e1)@i
12.  \mforall{}e':E.  (e'  <  e1)  {}\mRightarrow{}  ((e'  =  x)  \mvee{}  (e'  <  x))  supposing  loc(e')  =  loc(e1)@i
13.  \mforall{}e':E.  \mneg{}(e'  <  e1)  supposing  loc(e')  =  loc(e1)@i
\mvdash{}  (inl  x)  =  if  loc(e)  =  loc(e1)  \mwedge{}\msubb{}  (es-eq(eo)  pred(e1)  e)  then  inr  \mcdot{}    else  inr  y    fi 


By

---

Latex:
(InstHyp  [\mkleeneopen{}x\mkleeneclose{}]  (-1)\mcdot{}  THEN  Auto)\mcdot{}

---

Home Index