---

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

.....falsecase..... 
1. es : EO@i'
2. WellFnd{i}(E;x,y.(x <loc y))
3. j : E@i
4. ∀k:E
     ((k <loc j)
     ⇒ (∀e:E. ∀i:ℕ.
           (i < ||[e, k]|| ⇒ (firstn(i;[e, k]) = if (i =z 0) then [] else [e, pred([e, k][i])] fi  ∈ (E List)))))@i
5. e : E@i
6. i : ℕ@i
7. i < ||[e, j]||@i
8. ¬(i = 0 ∈ ℤ)
⊢ firstn(i;[e, j]) = [e, pred([e, j][i])] ∈ (E List)
BY
{ (((InstLemma `l_before_select` [⌈E⌉; ⌈[e, j]⌉; ⌈i⌉; ⌈0⌉])⋅ THENA Auto')
   THEN (RWO "l_before-es-interval" (-1))
   THEN Auto
   THEN Assert ⌈e ≤loc j ⌉⋅) }

1
.....assertion..... 
1. es : EO@i'
2. WellFnd{i}(E;x,y.(x <loc y))
3. j : E@i
4. ∀k:E
     ((k <loc j)
     ⇒ (∀e:E. ∀i:ℕ.
           (i < ||[e, k]|| ⇒ (firstn(i;[e, k]) = if (i =z 0) then [] else [e, pred([e, k][i])] fi  ∈ (E List)))))@i
5. e : E@i
6. i : ℕ@i
7. i < ||[e, j]||@i
8. ¬(i = 0 ∈ ℤ)
9. ([e, j][0] <loc [e, j][i])
10. e ≤loc [e, j][0] 
11. [e, j][i] ≤loc j 
⊢ e ≤loc j 

2
1. es : EO@i'
2. WellFnd{i}(E;x,y.(x <loc y))
3. j : E@i
4. ∀k:E
     ((k <loc j)
     ⇒ (∀e:E. ∀i:ℕ.
           (i < ||[e, k]|| ⇒ (firstn(i;[e, k]) = if (i =z 0) then [] else [e, pred([e, k][i])] fi  ∈ (E List)))))@i
5. e : E@i
6. i : ℕ@i
7. i < ||[e, j]||@i
8. ¬(i = 0 ∈ ℤ)
9. ([e, j][0] <loc [e, j][i])
10. e ≤loc [e, j][0] 
11. [e, j][i] ≤loc j 
12. e ≤loc j 
⊢ firstn(i;[e, j]) = [e, pred([e, j][i])] ∈ (E List)

---

Latex:


.....falsecase..... 
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:E.  \mforall{}i:\mBbbN{}.
                      (i  <  ||[e,  k]||
                      {}\mRightarrow{}  (firstn(i;[e,  k])  =  if  (i  =\msubz{}  0)  then  []  else  [e,  pred([e,  k][i])]  fi  ))))@i
5.  e  :  E@i
6.  i  :  \mBbbN{}@i
7.  i  <  ||[e,  j]||@i
8.  \mneg{}(i  =  0)
\mvdash{}  firstn(i;[e,  j])  =  [e,  pred([e,  j][i])]


By

(((InstLemma  `l\_before\_select`  [\mkleeneopen{}E\mkleeneclose{};  \mkleeneopen{}[e,  j]\mkleeneclose{};  \mkleeneopen{}i\mkleeneclose{};  \mkleeneopen{}0\mkleeneclose{}])\mcdot{}  THENA  Auto')
  THEN  (RWO  "l\_before-es-interval"  (-1))
  THEN  Auto
  THEN  Assert  \mkleeneopen{}e  \mleq{}loc  j  \mkleeneclose{}\mcdot{})

---

Home Index