---

Step * 1 1 1 1 of Lemma es-interval-partition


1. es : EO@i'
2. WellFnd{i}(E;x,y.(x <loc y))
3. j : E@i
4. ∀k:E. ((k <loc j) ⇒ (∀e,a:E.  (((e <loc a) ∧ a ≤loc k ) ⇒ ([e, k] = ([e, pred(a)] @ [a, k]) ∈ (E List)))))@i
5. e : E@i
6. a : E@i
7. (e <loc a)@i
8. a ≤loc j @i
9. [e, j] = ([e, pred(j)] @ [j]) ∈ (E List)
10. ¬↑first(j)
11. a ≤loc pred(j) 
12. (e <loc j)
13. [e, pred(j)] = ([e, pred(a)] @ [a, pred(j)]) ∈ (E List)
⊢ (([e, pred(a)] @ [a, pred(j)]) @ [j]) = ([e, pred(a)] @ [a, j]) ∈ (E List)
BY
{ (RWO "append_assoc" 0 THEN Auto THEN EqCD 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{}e,a:E.    (((e  <loc  a)  \mwedge{}  a  \mleq{}loc  k  )  {}\mRightarrow{}  ([e,  k]  =  ([e,  pred(a)]  @  [a,  k])))))@i
5.  e  :  E@i
6.  a  :  E@i
7.  (e  <loc  a)@i
8.  a  \mleq{}loc  j  @i
9.  [e,  j]  =  ([e,  pred(j)]  @  [j])
10.  \mneg{}\muparrow{}first(j)
11.  a  \mleq{}loc  pred(j) 
12.  (e  <loc  j)
13.  [e,  pred(j)]  =  ([e,  pred(a)]  @  [a,  pred(j)])
\mvdash{}  (([e,  pred(a)]  @  [a,  pred(j)])  @  [j])  =  ([e,  pred(a)]  @  [a,  j])


By

(RWO  "append\_assoc"  0  THEN  Auto  THEN  EqCD  THEN  Auto)

---

Home Index