---

Step * 1 1 1 1 1 2 1 1 of Lemma es-interval-open-interval


1. es : EO@i'
2. e' : E@i
3. a : E@i
4. ∀a1:E
     ((a1 < a)
     ⇒ e' ≤loc a1 
     ⇒ (filter(λev.e' ≤loc ev;before(a1) @ [a1]) = [e' / filter(λev.e' <loc ev;before(a1) @ [a1])] ∈ (E List)))
5. e' ≤loc a @i
6. ¬↑first(a)
7. e' ≤loc a 
8. ¬(e' <loc a)
9. x : E@i
10. (x ∈ before(pred(a)) @ [pred(a)])@i
⊢ ¬↑e' ≤loc x
BY
{ ((RWW "member_append member-es-before member_singleton" (-1) THENA Auto)
   THEN RWO "assert-es-bless assert-es-ble" 0
   THEN Auto) }

1
1. es : EO@i'
2. e' : E@i
3. a : E@i
4. ∀a1:E
     ((a1 < a)
     ⇒ e' ≤loc a1 
     ⇒ (filter(λev.e' ≤loc ev;before(a1) @ [a1]) = [e' / filter(λev.e' <loc ev;before(a1) @ [a1])] ∈ (E List)))
5. e' ≤loc a @i
6. ¬↑first(a)
7. e' ≤loc a 
8. ¬(e' <loc a)
9. x : E@i
10. (x <loc pred(a)) ∨ (x = pred(a) ∈ E)@i
⊢ ¬e' ≤loc x 

---

Latex:



1.  es  :  EO@i'
2.  e'  :  E@i
3.  a  :  E@i
4.  \mforall{}a1:E
          ((a1  <  a)
          {}\mRightarrow{}  e'  \mleq{}loc  a1 
          {}\mRightarrow{}  (filter(\mlambda{}ev.e'  \mleq{}loc  ev;before(a1)  @  [a1])
                =  [e'  /  filter(\mlambda{}ev.e'  <loc  ev;before(a1)  @  [a1])]))
5.  e'  \mleq{}loc  a  @i
6.  \mneg{}\muparrow{}first(a)
7.  e'  \mleq{}loc  a 
8.  \mneg{}(e'  <loc  a)
9.  x  :  E@i
10.  (x  \mmember{}  before(pred(a))  @  [pred(a)])@i
\mvdash{}  \mneg{}\muparrow{}e'  \mleq{}loc  x


By

((RWW  "member\_append  member-es-before  member\_singleton"  (-1)  THENA  Auto)
  THEN  RWO  "assert-es-bless  assert-es-ble"  0
  THEN  Auto)

---

Home Index