---

Step * 1 of Lemma es-locl-iff


1. the_es : EO@i'
2. Trans(E;e,e'.(e <loc e'))
3. SWellFounded((e <loc e'))
4. ∀e,e':E.  (loc(e) = loc(e') ∈ Id ⇐⇒ (e <loc e') ∨ (e = e' ∈ E) ∨ (e' <loc e))
5. ∀e:E. (↑first(e) ⇐⇒ ∀e':E. (¬(e' <loc e)))
6. ∀e:E. (pred(e) <loc e) ∧ (∀e':E. (¬((pred(e) <loc e') ∧ (e' <loc e)))) supposing ¬↑first(e)
7. Trans(E;e,e'.(e < e'))
8. SWellFounded((e < e'))
9. ∀e,e':E.  ((e <loc e') ⇒ (e < e'))
⊢ ∀e,e':E.  ((e <loc e') ⇐⇒ (¬↑first(e')) ∧ ((e = pred(e') ∈ E) ∨ (e <loc pred(e'))))
BY
{ (((((Unfold `and` 0 THEN Fold `cand` 0 THEN D 0) THENM D 0) THENM D 0) THENM D 0) THENA Auto) }

1
1. the_es : EO@i'
2. Trans(E;e,e'.(e <loc e'))
3. SWellFounded((e <loc e'))
4. ∀e,e':E.  (loc(e) = loc(e') ∈ Id ⇐⇒ (e <loc e') ∨ (e = e' ∈ E) ∨ (e' <loc e))
5. ∀e:E. (↑first(e) ⇐⇒ ∀e':E. (¬(e' <loc e)))
6. ∀e:E. (pred(e) <loc e) ∧ (∀e':E. (¬((pred(e) <loc e') ∧ (e' <loc e)))) supposing ¬↑first(e)
7. Trans(E;e,e'.(e < e'))
8. SWellFounded((e < e'))
9. ∀e,e':E.  ((e <loc e') ⇒ (e < e'))
10. e : E@i
11. e' : E@i
12. (e <loc e')@i
⊢ (¬↑first(e')) c∧ ((e = pred(e') ∈ E) ∨ (e <loc pred(e')))

2
1. the_es : EO@i'
2. Trans(E;e,e'.(e <loc e'))
3. SWellFounded((e <loc e'))
4. ∀e,e':E.  (loc(e) = loc(e') ∈ Id ⇐⇒ (e <loc e') ∨ (e = e' ∈ E) ∨ (e' <loc e))
5. ∀e:E. (↑first(e) ⇐⇒ ∀e':E. (¬(e' <loc e)))
6. ∀e:E. (pred(e) <loc e) ∧ (∀e':E. (¬((pred(e) <loc e') ∧ (e' <loc e)))) supposing ¬↑first(e)
7. Trans(E;e,e'.(e < e'))
8. SWellFounded((e < e'))
9. ∀e,e':E.  ((e <loc e') ⇒ (e < e'))
10. e : E@i
11. e' : E@i
12. (¬↑first(e')) c∧ ((e = pred(e') ∈ E) ∨ (e <loc pred(e')))@i
⊢ (e <loc e')

---

Latex:



1.  the$_{es}$  :  EO@i'
2.  Trans(E;e,e'.(e  <loc  e'))
3.  SWellFounded((e  <loc  e'))
4.  \mforall{}e,e':E.    (loc(e)  =  loc(e')  \mLeftarrow{}{}\mRightarrow{}  (e  <loc  e')  \mvee{}  (e  =  e')  \mvee{}  (e'  <loc  e))
5.  \mforall{}e:E.  (\muparrow{}first(e)  \mLeftarrow{}{}\mRightarrow{}  \mforall{}e':E.  (\mneg{}(e'  <loc  e)))
6.  \mforall{}e:E.  (pred(e)  <loc  e)  \mwedge{}  (\mforall{}e':E.  (\mneg{}((pred(e)  <loc  e')  \mwedge{}  (e'  <loc  e))))  supposing  \mneg{}\muparrow{}first(e)
7.  Trans(E;e,e'.(e  <  e'))
8.  SWellFounded((e  <  e'))
9.  \mforall{}e,e':E.    ((e  <loc  e')  {}\mRightarrow{}  (e  <  e'))
\mvdash{}  \mforall{}e,e':E.    ((e  <loc  e')  \mLeftarrow{}{}\mRightarrow{}  (\mneg{}\muparrow{}first(e'))  \mwedge{}  ((e  =  pred(e'))  \mvee{}  (e  <loc  pred(e'))))


By

(((((Unfold  `and`  0  THEN  Fold  `cand`  0  THEN  D  0)  THENM  D  0)  THENM  D  0)  THENM  D  0)  THENA  Auto)

---

Home Index