---

Step * 1 1 1 of Lemma es-pplus-first-since


1. es : EO@i'
2. e1 : E@i
3. e2 : {e:E| loc(e) = loc(e1) ∈ Id} @i
4. [Q] : {e:E| loc(e) = loc(e1) ∈ Id}  ─→ ℙ
5. ∀e:{e:E| loc(e) = loc(e1) ∈ Id} . Dec(Q[e])@i
6. e1 ≤loc e2 @i
7. Q[e2]@i
8. d : ℕ
9. ∀d:ℕd. ∀e,e':E.
     ((loc(e) = loc(e1) ∈ Id) ⇒ (||[e, e']|| ≤ d) ⇒ e ≤loc e'  ⇒ Q[e'] ⇒ [e,e']~([a,b].b = first e ≥ a.Q[e])+)@i
10. e : E@i
11. e' : E@i
12. loc(e) = loc(e1) ∈ Id@i
13. ||[e, e']|| ≤ d@i
14. e ≤loc e' @i
15. Q[e']@i
⊢ [e,e']~([a,b].b = first e ≥ a.Q[e])+
BY
{ (Assert ⌈Dec(∃a∈[e,e').Q[a])⌉⋅
   THENL [(BLemma `decidable__existse-between1` THEN Auto THEN D 0 THEN Auto); (D (-1))]
) }

1
1. es : EO@i'
2. e1 : E@i
3. e2 : {e:E| loc(e) = loc(e1) ∈ Id} @i
4. [Q] : {e:E| loc(e) = loc(e1) ∈ Id}  ─→ ℙ
5. ∀e:{e:E| loc(e) = loc(e1) ∈ Id} . Dec(Q[e])@i
6. e1 ≤loc e2 @i
7. Q[e2]@i
8. d : ℕ
9. ∀d:ℕd. ∀e,e':E.
     ((loc(e) = loc(e1) ∈ Id) ⇒ (||[e, e']|| ≤ d) ⇒ e ≤loc e'  ⇒ Q[e'] ⇒ [e,e']~([a,b].b = first e ≥ a.Q[e])+)@i
10. e : E@i
11. e' : E@i
12. loc(e) = loc(e1) ∈ Id@i
13. ||[e, e']|| ≤ d@i
14. e ≤loc e' @i
15. Q[e']@i
16. ∃a∈[e,e').Q[a]
⊢ [e,e']~([a,b].b = first e ≥ a.Q[e])+

2
1. es : EO@i'
2. e1 : E@i
3. e2 : {e:E| loc(e) = loc(e1) ∈ Id} @i
4. [Q] : {e:E| loc(e) = loc(e1) ∈ Id}  ─→ ℙ
5. ∀e:{e:E| loc(e) = loc(e1) ∈ Id} . Dec(Q[e])@i
6. e1 ≤loc e2 @i
7. Q[e2]@i
8. d : ℕ
9. ∀d:ℕd. ∀e,e':E.
     ((loc(e) = loc(e1) ∈ Id) ⇒ (||[e, e']|| ≤ d) ⇒ e ≤loc e'  ⇒ Q[e'] ⇒ [e,e']~([a,b].b = first e ≥ a.Q[e])+)@i
10. e : E@i
11. e' : E@i
12. loc(e) = loc(e1) ∈ Id@i
13. ||[e, e']|| ≤ d@i
14. e ≤loc e' @i
15. Q[e']@i
16. ¬∃a∈[e,e').Q[a]
⊢ [e,e']~([a,b].b = first e ≥ a.Q[e])+

---

Latex:



1.  es  :  EO@i'
2.  e1  :  E@i
3.  e2  :  \{e:E|  loc(e)  =  loc(e1)\}  @i
4.  [Q]  :  \{e:E|  loc(e)  =  loc(e1)\}    {}\mrightarrow{}  \mBbbP{}
5.  \mforall{}e:\{e:E|  loc(e)  =  loc(e1)\}  .  Dec(Q[e])@i
6.  e1  \mleq{}loc  e2  @i
7.  Q[e2]@i
8.  d  :  \mBbbN{}
9.  \mforall{}d:\mBbbN{}d.  \mforall{}e,e':E.
          ((loc(e)  =  loc(e1))
          {}\mRightarrow{}  (||[e,  e']||  \mleq{}  d)
          {}\mRightarrow{}  e  \mleq{}loc  e' 
          {}\mRightarrow{}  Q[e']
          {}\mRightarrow{}  [e,e']\msim{}([a,b].b  =  first  e  \mgeq{}  a.Q[e])+)@i
10.  e  :  E@i
11.  e'  :  E@i
12.  loc(e)  =  loc(e1)@i
13.  ||[e,  e']||  \mleq{}  d@i
14.  e  \mleq{}loc  e'  @i
15.  Q[e']@i
\mvdash{}  [e,e']\msim{}([a,b].b  =  first  e  \mgeq{}  a.Q[e])+


By

(Assert  \mkleeneopen{}Dec(\mexists{}a\mmember{}[e,e').Q[a])\mkleeneclose{}\mcdot{}
  THENL  [(BLemma  `decidable\_\_existse-between1`  THEN  Auto  THEN  D  0  THEN  Auto);  (D  (-1))]
)

---

Home Index