---

Step * 1 2 of Lemma es-prior-fixedpoints-iseg


1. [Info] : Type
2. es : EO+(Info)@i'
3. X : EClass(Top)@i'
4. f : E(X) ─→ E(X)@i
5. ∀x:E(X). f x c≤ x@i
6. e : E(X)@i
7. ∀e1:E(X)
     ((e1 < e) ⇒ (∀e':E(X). ((e' ∈ prior-f-fixedpoints(e1)) ⇒ prior-f-fixedpoints(e') ≤ prior-f-fixedpoints(e1))))
8. e' : E(X)@i
9. (f e) = e ∈ E
10. ¬(e' = e ∈ E)
⊢ (e' ∈ prior-f-fixedpoints(e)) ⇒ prior-f-fixedpoints(e') ≤ prior-f-fixedpoints(e)
BY
{ ((RW (AddrC [1] (RecUnfoldC `es-prior-fixedpoints`)) 0 THEN RW (AddrC [2;3] (RecUnfoldC `es-prior-fixedpoints`)) 0)
   THEN ( SplitOn ⌈f e = e⌉⋅ THENA Auto)
   )⋅ }

1
1. [Info] : Type
2. es : EO+(Info)@i'
3. X : EClass(Top)@i'
4. f : E(X) ─→ E(X)@i
5. ∀x:E(X). f x c≤ x@i
6. e : E(X)@i
7. ∀e1:E(X)
     ((e1 < e) ⇒ (∀e':E(X). ((e' ∈ prior-f-fixedpoints(e1)) ⇒ prior-f-fixedpoints(e') ≤ prior-f-fixedpoints(e1))))
8. e' : E(X)@i
9. (f e) = e ∈ E
10. ¬(e' = e ∈ E)
11. f e = e = tt
12. (f e) = e ∈ E
⊢ (e' ∈ if e ∈b prior(X) then prior-f-fixedpoints(prior(X)(e)) @ [e] else [e] fi )
⇒ prior-f-fixedpoints(e') ≤ if e ∈b prior(X) then prior-f-fixedpoints(prior(X)(e)) @ [e] else [e] fi 

2
1. [Info] : Type
2. es : EO+(Info)@i'
3. X : EClass(Top)@i'
4. f : E(X) ─→ E(X)@i
5. ∀x:E(X). f x c≤ x@i
6. e : E(X)@i
7. ∀e1:E(X)
     ((e1 < e) ⇒ (∀e':E(X). ((e' ∈ prior-f-fixedpoints(e1)) ⇒ prior-f-fixedpoints(e') ≤ prior-f-fixedpoints(e1))))
8. e' : E(X)@i
9. (f e) = e ∈ E
10. ¬(e' = e ∈ E)
11. f e = e = ff
12. ¬((f e) = e ∈ E)
⊢ (e' ∈ prior-f-fixedpoints(f**(e))) ⇒ prior-f-fixedpoints(e') ≤ prior-f-fixedpoints(f**(e))

---

Latex:

---

Latex:

1.  [Info]  :  Type
2.  es  :  EO+(Info)@i'
3.  X  :  EClass(Top)@i'
4.  f  :  E(X)  {}\mrightarrow{}  E(X)@i
5.  \mforall{}x:E(X).  f  x  c\mleq{}  x@i
6.  e  :  E(X)@i
7.  \mforall{}e1:E(X)
          ((e1  <  e)
          {}\mRightarrow{}  (\mforall{}e':E(X)
                      ((e'  \mmember{}  prior-f-fixedpoints(e1))  {}\mRightarrow{}  prior-f-fixedpoints(e')  \mleq{}  prior-f-fixedpoints(e1))))
8.  e'  :  E(X)@i
9.  (f  e)  =  e
10.  \mneg{}(e'  =  e)
\mvdash{}  (e'  \mmember{}  prior-f-fixedpoints(e))  {}\mRightarrow{}  prior-f-fixedpoints(e')  \mleq{}  prior-f-fixedpoints(e)


By

---

Latex:
((RW  (AddrC  [1]  (RecUnfoldC  `es-prior-fixedpoints`))  0
    THEN  RW  (AddrC  [2;3]  (RecUnfoldC  `es-prior-fixedpoints`))  0
    )
  THEN  (  SplitOn  \mkleeneopen{}f  e  =  e\mkleeneclose{}\mcdot{}  THENA  Auto)
  )\mcdot{}

---

Home Index