---

Step * 1 1 1 1 of Lemma es-first-at-since-iff


1. es : EO@i'
2. i : Id@i
3. e : E@i
4. [P] : {e:E| loc(e) = i ∈ Id}  ─→ ℙ
5. [R] : {e:E| loc(e) = i ∈ Id}  ─→ ℙ
6. ∀e:E. Dec(R[e]) supposing loc(e) = i ∈ Id@i
7. loc(e) = i ∈ Id@i
8. P[e]@i
9. ∀e':E. ((e' <loc e) ⇒ P[e'] ⇒ (∃e'':E. (e' ≤loc e''  ∧ (e'' <loc e) ∧ R[e''])))@i
10. e'' : E@i
11. (e'' <loc e)@i
12. P[e'']@i
13. e''@0 : E
14. e'' ≤loc e''@0 
15. (e''@0 <loc e)
16. R[e''@0]
17. e' : E
18. e' = e ∈ E
19. R[e']
20. ∀e'':E. ((e' <loc e'') ⇒ e'' ≤loc e  ⇒ (¬R[e'']))
⊢ R[e]
BY
{ AutoThenComplete 1000 Auto'⋅ }

---

Latex:



1.  es  :  EO@i'
2.  i  :  Id@i
3.  e  :  E@i
4.  [P]  :  \{e:E|  loc(e)  =  i\}    {}\mrightarrow{}  \mBbbP{}
5.  [R]  :  \{e:E|  loc(e)  =  i\}    {}\mrightarrow{}  \mBbbP{}
6.  \mforall{}e:E.  Dec(R[e])  supposing  loc(e)  =  i@i
7.  loc(e)  =  i@i
8.  P[e]@i
9.  \mforall{}e':E.  ((e'  <loc  e)  {}\mRightarrow{}  P[e']  {}\mRightarrow{}  (\mexists{}e'':E.  (e'  \mleq{}loc  e''    \mwedge{}  (e''  <loc  e)  \mwedge{}  R[e''])))@i
10.  e''  :  E@i
11.  (e''  <loc  e)@i
12.  P[e'']@i
13.  e''@0  :  E
14.  e''  \mleq{}loc  e''@0 
15.  (e''@0  <loc  e)
16.  R[e''@0]
17.  e'  :  E
18.  e'  =  e
19.  R[e']
20.  \mforall{}e'':E.  ((e'  <loc  e'')  {}\mRightarrow{}  e''  \mleq{}loc  e    {}\mRightarrow{}  (\mneg{}R[e'']))
\mvdash{}  R[e]


By

AutoThenComplete  1000  Auto'\mcdot{}

---

Home Index