Step
*
1
1
of Lemma
es-last-event_wf
1. es : EO
2. e : E@i
3. ∀e1:E
     ((e1 < e)
     
⇒ (∀P:{e':E| e' ≤loc e1 }  ─→ 𝔹
           (es-last-event(es;P;e1) ∈ (∃e':{E| (e' ≤loc e1 
                                              ∧ (↑(P e'))
                                              ∧ (∀e'':E. ((e' <loc e'') 
⇒ e'' ≤loc e1  
⇒ (¬↑(P e'')))))})
            ∨ (¬(∃e':{E| (e' ≤loc e1  ∧ (↑(P e')))})))))
4. P : {e':E| e' ≤loc e }  ─→ 𝔹@i
5. ¬↑(P e)
6. ↑first(e)
⊢ inr (λx.⋅)  ∈ (∃e':{E| (e' ≤loc e  ∧ (↑(P e')) ∧ (∀e'':E. ((e' <loc e'') 
⇒ e'' ≤loc e  
⇒ (¬↑(P e'')))))})
  ∨ (¬(∃e':{E| (e' ≤loc e  ∧ (↑(P e')))}))
BY
{ ((MemCD THENA Auto) THEN RepUR ``not implies`` 0 THEN (MemCD THENA Auto) THEN RepeatFor 2 (D (-1)) THEN Auto) }
Latex:
1.  es  :  EO
2.  e  :  E@i
3.  \mforall{}e1:E
          ((e1  <  e)
          {}\mRightarrow{}  (\mforall{}P:\{e':E|  e'  \mleq{}loc  e1  \}    {}\mrightarrow{}  \mBbbB{}
                      (es-last-event(es;P;e1)  \mmember{}  (\mexists{}e':\{E|  (e'  \mleq{}loc  e1 
                                                                                            \mwedge{}  (\muparrow{}(P  e'))
                                                                                            \mwedge{}  (\mforall{}e'':E
                                                                                                      ((e'  <loc  e'')
                                                                                                      {}\mRightarrow{}  e''  \mleq{}loc  e1 
                                                                                                      {}\mRightarrow{}  (\mneg{}\muparrow{}(P  e'')))))\})
                        \mvee{}  (\mneg{}(\mexists{}e':\{E|  (e'  \mleq{}loc  e1    \mwedge{}  (\muparrow{}(P  e')))\})))))
4.  P  :  \{e':E|  e'  \mleq{}loc  e  \}    {}\mrightarrow{}  \mBbbB{}@i
5.  \mneg{}\muparrow{}(P  e)
6.  \muparrow{}first(e)
\mvdash{}  inr  (\mlambda{}x.\mcdot{})    \mmember{}  (\mexists{}e':\{E|  (e'  \mleq{}loc  e 
                                                  \mwedge{}  (\muparrow{}(P  e'))
                                                  \mwedge{}  (\mforall{}e'':E.  ((e'  <loc  e'')  {}\mRightarrow{}  e''  \mleq{}loc  e    {}\mRightarrow{}  (\mneg{}\muparrow{}(P  e'')))))\})
    \mvee{}  (\mneg{}(\mexists{}e':\{E|  (e'  \mleq{}loc  e    \mwedge{}  (\muparrow{}(P  e')))\}))
By
((MemCD  THENA  Auto)
  THEN  RepUR  ``not  implies``  0
  THEN  (MemCD  THENA  Auto)
  THEN  RepeatFor  2  (D  (-1))
  THEN  Auto)
Home
Index