---

Step * 1 2 1 1 1 of Lemma es-fset-at-loc


1. es : EO@i'
2. i : Id@i
3. s : fset(E)@i
4. ∀s:fset({e:E| loc(e) = i ∈ Id} ). ∃L:{e:E| loc(e) = i ∈ Id}  List. ∀x:{e:E| loc(e) = i ∈ Id} . (x ∈ s ⇐⇒ (x ∈ L))
5. ∀L:{e:E| loc(e) = i ∈ Id}  List
     ∃L':{e:E| loc(e) = i ∈ Id}  List. (sorted-by(λe,e'. e ≤loc e' ;L') ∧ no_repeats({e:E| loc(e) = i ∈ Id} ;L') ∧ L ⊆ L\000C' ∧ L' ⊆ L)
6. L : {e:E| loc(e) = i ∈ Id}  List
7. ∀x:{e:E| loc(e) = i ∈ Id} . (x ∈ {e ∈ s | loc(e) = i} ⇐⇒ (x ∈ L))
8. L' : {e:E| loc(e) = i ∈ Id}  List
9. sorted-by(λe,e'. e ≤loc e' ;L')
10. no_repeats({e:E| loc(e) = i ∈ Id} ;L')
11. L ⊆ L'
12. L' ⊆ L
13. e : E@i
14. e ∈ s@i
15. loc(e) = i ∈ Id@i
16. (e ∈ L)
⊢ (e ∈ L')
BY
{ (∀h:hyp. (UnfoldTop `l_contains` h THEN (RWO "l_all_iff" h THENA Auto))  THEN Assert ⌜(e ∈ L')⌝⋅ THEN Auto) }

---

Latex:

---

Latex:

1.  es  :  EO@i'
2.  i  :  Id@i
3.  s  :  fset(E)@i
4.  \mforall{}s:fset(\{e:E|  loc(e)  =  i\}  ).  \mexists{}L:\{e:E|  loc(e)  =  i\}    List.  \mforall{}x:\{e:E|  loc(e)  =  i\}  .  (x  \mmember{}  s  \mLeftarrow{}{}\mRightarrow{}  (x  \mmember{}  L\000C))
5.  \mforall{}L:\{e:E|  loc(e)  =  i\}    List
          \mexists{}L':\{e:E|  loc(e)  =  i\}    List
            (sorted-by(\mlambda{}e,e'.  e  \mleq{}loc  e'  ;L')  \mwedge{}  no\_repeats(\{e:E|  loc(e)  =  i\}  ;L')  \mwedge{}  L  \msubseteq{}  L'  \mwedge{}  L'  \msubseteq{}  L)
6.  L  :  \{e:E|  loc(e)  =  i\}    List
7.  \mforall{}x:\{e:E|  loc(e)  =  i\}  .  (x  \mmember{}  \{e  \mmember{}  s  |  loc(e)  =  i\}  \mLeftarrow{}{}\mRightarrow{}  (x  \mmember{}  L))
8.  L'  :  \{e:E|  loc(e)  =  i\}    List
9.  sorted-by(\mlambda{}e,e'.  e  \mleq{}loc  e'  ;L')
10.  no\_repeats(\{e:E|  loc(e)  =  i\}  ;L')
11.  L  \msubseteq{}  L'
12.  L'  \msubseteq{}  L
13.  e  :  E@i
14.  e  \mmember{}  s@i
15.  loc(e)  =  i@i
16.  (e  \mmember{}  L)
\mvdash{}  (e  \mmember{}  L')


By

---

Latex:
(\mforall{}h:hyp.  (UnfoldTop  `l\_contains`  h  THEN  (RWO  "l\_all\_iff"  h  THENA  Auto)) 
  THEN  Assert  \mkleeneopen{}(e  \mmember{}  L')\mkleeneclose{}\mcdot{}
  THEN  Auto)

---

Home Index