Step
*
2
1
1
1
1
1
2
of Lemma
es-pred-cle
1. es : EO@i'
2. ∀[e,e':es-base-E(es)].  ((e < e') ∈ ℙ)
3. ∀[e,e':es-base-E(es)].  (e = e' ∈ 𝔹)
4. ∀[e:es-base-E(es)]. (pred(e) ∈ es-base-E(es))
5. e : es-base-E(es)@i
6. ¬↑pred1(e) = e
7. ¬↑(es-dom(es) pred1(e))
8. ∀e1:es-base-E(es). ((e1 < e) 
⇒ ((pred(e1) < e1) ∨ (pred(e1) = e1 ∈ es-base-E(es))))
9. (pred1(e) < e)
10. pred(pred1(e)) = pred1(e) ∈ es-base-E(es)
11. pred(pred1(e)) ∈ es-base-E(es)
⊢ (pred(pred1(e)) < e)
BY
{ (HypSubst (-2) 0 THEN Auto) }
Latex:
1.  es  :  EO@i'
2.  \mforall{}[e,e':es-base-E(es)].    ((e  <  e')  \mmember{}  \mBbbP{})
3.  \mforall{}[e,e':es-base-E(es)].    (e  =  e'  \mmember{}  \mBbbB{})
4.  \mforall{}[e:es-base-E(es)].  (pred(e)  \mmember{}  es-base-E(es))
5.  e  :  es-base-E(es)@i
6.  \mneg{}\muparrow{}pred1(e)  =  e
7.  \mneg{}\muparrow{}(es-dom(es)  pred1(e))
8.  \mforall{}e1:es-base-E(es).  ((e1  <  e)  {}\mRightarrow{}  ((pred(e1)  <  e1)  \mvee{}  (pred(e1)  =  e1)))
9.  (pred1(e)  <  e)
10.  pred(pred1(e))  =  pred1(e)
11.  pred(pred1(e))  \mmember{}  es-base-E(es)
\mvdash{}  (pred(pred1(e))  <  e)
By
(HypSubst  (-2)  0  THEN  Auto)
Home
Index