---

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


1. es : EO@i'
2. WellFnd{i}(E;x,y.(x <loc y))
3. j : E@i
4. ∀k:E. ((k <loc j) ⇒ (∀e2,e1:E.  (e1 ≤loc e2  ⇒ e1 ≤loc k  ⇒ ([e1, e2] ≤ [e1, k] ⇐⇒ e2 ≤loc k ))))@i
5. e2 : E@i
6. e1 : E@i
7. e1 ≤loc e2 @i
8. e1 = j ∈ E
9. e2 ≤loc e1  ⇒ (e2 = e1 ∈ E)
10. e2 ≤loc e1  ⇐ e2 = e1 ∈ E
11. e2 = e1 ∈ E@i
⊢ [e1, e2] ≤ [e1]
BY
{ (((HypSubst (-1) 0) THENM RWO "es-interval-eq" 0) THEN Auto) }

---

Latex:



1.  es  :  EO@i'
2.  WellFnd\{i\}(E;x,y.(x  <loc  y))
3.  j  :  E@i
4.  \mforall{}k:E
          ((k  <loc  j)
          {}\mRightarrow{}  (\mforall{}e2,e1:E.    (e1  \mleq{}loc  e2    {}\mRightarrow{}  e1  \mleq{}loc  k    {}\mRightarrow{}  ([e1,  e2]  \mleq{}  [e1,  k]  \mLeftarrow{}{}\mRightarrow{}  e2  \mleq{}loc  k  ))))@i
5.  e2  :  E@i
6.  e1  :  E@i
7.  e1  \mleq{}loc  e2  @i
8.  e1  =  j
9.  e2  \mleq{}loc  e1    {}\mRightarrow{}  (e2  =  e1)
10.  e2  \mleq{}loc  e1    \mLeftarrow{}{}  e2  =  e1
11.  e2  =  e1@i
\mvdash{}  [e1,  e2]  \mleq{}  [e1]


By

(((HypSubst  (-1)  0)  THENM  RWO  "es-interval-eq"  0)  THEN  Auto)

---

Home Index