---

Step * 1 1 2 1 2 of Lemma cut-of-singleton


1. Info : Type@i'
2. es : EO+(Info)@i'
3. X : EClass(Top)@i'
4. f : sys-antecedent(es;X)@i
5. e : E(X)@i
6. ∀[s:fset(E(X))]. (s ⊆ cut(X;f;s) ∧ (∀[c':Cut(X;f)]. cut(X;f;s) ⊆ c' supposing s ⊆ c'))
7. {f e} ⊆ cut(X;f;{f e})
8. ∀[c':Cut(X;f)]. cut(X;f;{f e}) ⊆ c' supposing {f e} ⊆ c'
9. {e} ⊆ cut(X;f;{e})
10. ∀[c':Cut(X;f)]. cut(X;f;{e}) ⊆ c' supposing {e} ⊆ c'
11. ↑e ∈b prior(X)
12. ¬((f e) = e ∈ E)
13. {prior(X)(e)} ⊆ cut(X;f;{prior(X)(e)})
14. ∀[c':Cut(X;f)]. cut(X;f;{prior(X)(e)}) ⊆ c' supposing {prior(X)(e)} ⊆ c'
⊢ {e} ∪ cut(X;f;{f e}) ∪ cut(X;f;{prior(X)(e)}) ⊆ cut(X;f;{e})
BY
{ RepeatFor 2 ((BLemma `f-union-subset` THEN Auto)) }

---

Latex:

---

Latex:

1.  Info  :  Type@i'
2.  es  :  EO+(Info)@i'
3.  X  :  EClass(Top)@i'
4.  f  :  sys-antecedent(es;X)@i
5.  e  :  E(X)@i
6.  \mforall{}[s:fset(E(X))].  (s  \msubseteq{}  cut(X;f;s)  \mwedge{}  (\mforall{}[c':Cut(X;f)].  cut(X;f;s)  \msubseteq{}  c'  supposing  s  \msubseteq{}  c'))
7.  \{f  e\}  \msubseteq{}  cut(X;f;\{f  e\})
8.  \mforall{}[c':Cut(X;f)].  cut(X;f;\{f  e\})  \msubseteq{}  c'  supposing  \{f  e\}  \msubseteq{}  c'
9.  \{e\}  \msubseteq{}  cut(X;f;\{e\})
10.  \mforall{}[c':Cut(X;f)].  cut(X;f;\{e\})  \msubseteq{}  c'  supposing  \{e\}  \msubseteq{}  c'
11.  \muparrow{}e  \mmember{}\msubb{}  prior(X)
12.  \mneg{}((f  e)  =  e)
13.  \{prior(X)(e)\}  \msubseteq{}  cut(X;f;\{prior(X)(e)\})
14.  \mforall{}[c':Cut(X;f)].  cut(X;f;\{prior(X)(e)\})  \msubseteq{}  c'  supposing  \{prior(X)(e)\}  \msubseteq{}  c'
\mvdash{}  \{e\}  \mcup{}  cut(X;f;\{f  e\})  \mcup{}  cut(X;f;\{prior(X)(e)\})  \msubseteq{}  cut(X;f;\{e\})


By

---

Latex:
RepeatFor  2  ((BLemma  `f-union-subset`  THEN  Auto))

---

Home Index