---

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


1. [Info] : Type
2. es : EO+(Info)@i'
3. e1 : E@i
4. WellFnd{i}(E;x,y.(x <loc y))
5. j : E@i
6. L : Info List@i
7. loc(e1) = loc(j) ∈ Id
8. ¬(L = [] ∈ (Info List))
9. L ≤ es-hist(es;e1;j)@i
10. ¬↑first(j)
11. e1 ≤loc pred(j) 
12. es-hist(es;e1;j) = (es-hist(es;e1;pred(j)) @ [info(j)]) ∈ (Info List)
⊢ L ≤ es-hist(es;e1;pred(j)) ∨ (L = es-hist(es;e1;j) ∈ (Info List))
BY
{ AllHyps h.(((((HypSubst (-1) h) THENA Auto) THEN RWO "iseg_append_single" h) THENM ParallelOp h)
             THEN (Using [`i',⌈i⌉] Auto)⋅
             )  }

---

Latex:



1.  [Info]  :  Type
2.  es  :  EO+(Info)@i'
3.  e1  :  E@i
4.  WellFnd\{i\}(E;x,y.(x  <loc  y))
5.  j  :  E@i
6.  L  :  Info  List@i
7.  loc(e1)  =  loc(j)
8.  \mneg{}(L  =  [])
9.  L  \mleq{}  es-hist(es;e1;j)@i
10.  \mneg{}\muparrow{}first(j)
11.  e1  \mleq{}loc  pred(j) 
12.  es-hist(es;e1;j)  =  (es-hist(es;e1;pred(j))  @  [info(j)])
\mvdash{}  L  \mleq{}  es-hist(es;e1;pred(j))  \mvee{}  (L  =  es-hist(es;e1;j))


By

AllHyps  h.(((((HypSubst  (-1)  h)  THENA  Auto)  THEN  RWO  "iseg\_append\_single"  h)  THENM  ParallelOp  h)
                      THEN  (Using  [`i',\mkleeneopen{}i\mkleeneclose{}]  Auto)\mcdot{}
                      ) 

---

Home Index