---

Step * 3 of Lemma es-cut-add-at


1. Info : Type
2. es : EO+(Info)
3. X : EClass(Top)
4. f : sys-antecedent(es;X)
5. c : Cut(X;f)
6. e : E(X)
7. (¬((f e) = e ∈ E(X))) ⇒ f e ∈ c
8. (↑e ∈b prior(X)) ⇒ prior(X)(e) ∈ c
9. ¬e ∈ c
10. c+e ∈ Cut(X;f)
11. c+e ∈ fset(E)
12. c+e(loc(e)) = (c(loc(e)) @ [e]) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
13. c+e(loc(e)) = ≤(X)(e) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
14. i : Id
15. ¬(i = loc(e) ∈ Id)
⊢ c+e(i) = c(i) ∈ ({e:E(X)| loc(e) = i ∈ Id}  List)
BY
{ (Using [`R',⌈λx,y. x ≤loc y ⌉] (BLemma `sorted-by-unique` )⋅
   THEN Auto
   THEN Try ((BLemma `no_repeats-settype` THEN UsingVars[`f'] Auto⋅)⋅)
   THEN Try ((UsingVars [`f'] (BLemma `es-cut-at-property1`) THEN Auto)⋅))⋅ }

1
1. Info : Type
2. es : EO+(Info)
3. X : EClass(Top)
4. f : sys-antecedent(es;X)
5. c : Cut(X;f)
6. e : E(X)
7. (¬((f e) = e ∈ E(X))) ⇒ f e ∈ c
8. (↑e ∈b prior(X)) ⇒ prior(X)(e) ∈ c
9. ¬e ∈ c
10. c+e ∈ Cut(X;f)
11. c+e ∈ fset(E)
12. c+e(loc(e)) = (c(loc(e)) @ [e]) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
13. c+e(loc(e)) = ≤(X)(e) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
14. i : Id
15. ¬(i = loc(e) ∈ Id)
⊢ Trans({e:E(X)| loc(e) = i ∈ Id} ;a,b.(λx,y. x ≤loc y ) a b)

2
1. Info : Type
2. es : EO+(Info)
3. X : EClass(Top)
4. f : sys-antecedent(es;X)
5. c : Cut(X;f)
6. e : E(X)
7. (¬((f e) = e ∈ E(X))) ⇒ f e ∈ c
8. (↑e ∈b prior(X)) ⇒ prior(X)(e) ∈ c
9. ¬e ∈ c
10. c+e ∈ Cut(X;f)
11. c+e ∈ fset(E)
12. c+e(loc(e)) = (c(loc(e)) @ [e]) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
13. c+e(loc(e)) = ≤(X)(e) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
14. i : Id
15. ¬(i = loc(e) ∈ Id)
⊢ AntiSym({e:E(X)| loc(e) = i ∈ Id} ;a,b.(λx,y. x ≤loc y ) a b)

3
.....wf..... 
1. Info : Type
2. es : EO+(Info)
3. X : EClass(Top)
4. f : sys-antecedent(es;X)
5. c : Cut(X;f)
6. e : E(X)
7. (¬((f e) = e ∈ E(X))) ⇒ f e ∈ c
8. (↑e ∈b prior(X)) ⇒ prior(X)(e) ∈ c
9. ¬e ∈ c
10. c+e ∈ Cut(X;f)
11. c+e ∈ fset(E)
12. c+e(loc(e)) = (c(loc(e)) @ [e]) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
13. c+e(loc(e)) = ≤(X)(e) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
14. i : Id
15. ¬(i = loc(e) ∈ Id)
⊢ c+e(i) ∈ {e:E(X)| loc(e) = i ∈ Id}  List

4
1. Info : Type
2. es : EO+(Info)
3. X : EClass(Top)
4. f : sys-antecedent(es;X)
5. c : Cut(X;f)
6. e : E(X)
7. (¬((f e) = e ∈ E(X))) ⇒ f e ∈ c
8. (↑e ∈b prior(X)) ⇒ prior(X)(e) ∈ c
9. ¬e ∈ c
10. c+e ∈ Cut(X;f)
11. c+e ∈ fset(E)
12. c+e(loc(e)) = (c(loc(e)) @ [e]) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
13. c+e(loc(e)) = ≤(X)(e) ∈ ({e':E(X)| loc(e') = loc(e) ∈ Id}  List)
14. i : Id
15. ¬(i = loc(e) ∈ Id)
⊢ set-equal({e:E(X)| loc(e) = i ∈ Id} ;c+e(i);c(i))

---

Latex:

---

Latex:

1.  Info  :  Type
2.  es  :  EO+(Info)
3.  X  :  EClass(Top)
4.  f  :  sys-antecedent(es;X)
5.  c  :  Cut(X;f)
6.  e  :  E(X)
7.  (\mneg{}((f  e)  =  e))  {}\mRightarrow{}  f  e  \mmember{}  c
8.  (\muparrow{}e  \mmember{}\msubb{}  prior(X))  {}\mRightarrow{}  prior(X)(e)  \mmember{}  c
9.  \mneg{}e  \mmember{}  c
10.  c+e  \mmember{}  Cut(X;f)
11.  c+e  \mmember{}  fset(E)
12.  c+e(loc(e))  =  (c(loc(e))  @  [e])
13.  c+e(loc(e))  =  \mleq{}(X)(e)
14.  i  :  Id
15.  \mneg{}(i  =  loc(e))
\mvdash{}  c+e(i)  =  c(i)


By

---

Latex:
(Using  [`R',\mkleeneopen{}\mlambda{}x,y.  x  \mleq{}loc  y  \mkleeneclose{}]  (BLemma  `sorted-by-unique`  )\mcdot{}
  THEN  Auto
  THEN  Try  ((BLemma  `no\_repeats-settype`  THEN  UsingVars[`f']  Auto\mcdot{})\mcdot{})
  THEN  Try  ((UsingVars  [`f']  (BLemma  `es-cut-at-property1`)  THEN  Auto)\mcdot{}))\mcdot{}

---

Home Index