---

Step * 1 1 1 1 1 1 of Lemma es-cut-induction-sq-stable

.....set predicate..... 
1. Info : Type
2. es : EO+(Info)@i'
3. X : EClass(Top)@i'
4. f : sys-antecedent(es;X)@i
5. P : Cut(X;f) ─→ ℙ
6. ∀c:Cut(X;f). SqStable(P[c])@i
7. P[{}]@i
8. ∀c:Cut(X;f). ∀e:E(X).
     (P[c] ⇒ (P[c+e]) supposing (prior(X)(e) ∈ c supposing ↑e ∈b prior(X) and f e ∈ c supposing ¬((f e) = e ∈ E(X))))@i
9. es-eq(es) ∈ EqDecider(E(X))
10. n : ℕ
11. ∀n:ℕn. ∀c:Cut(X;f).  ((||c|| ≤ n) ⇒ P[c])@i
12. c : Cut(X;f)@i
13. ||c|| ≤ n@i
14. c = {} ∈ fset(E(X))
15. z : fset(E(X))
16. z = {} ∈ fset(E(X))
⊢ (z closed under [f; X-pred])
BY
{ (HypSubst (-1) 0 THEN Auto) }

---

Latex:

---

Latex:
.....set  predicate..... 
1.  Info  :  Type
2.  es  :  EO+(Info)@i'
3.  X  :  EClass(Top)@i'
4.  f  :  sys-antecedent(es;X)@i
5.  P  :  Cut(X;f)  {}\mrightarrow{}  \mBbbP{}
6.  \mforall{}c:Cut(X;f).  SqStable(P[c])@i
7.  P[\{\}]@i
8.  \mforall{}c:Cut(X;f).  \mforall{}e:E(X).
          (P[c]
          {}\mRightarrow{}  (P[c+e])  supposing 
                      (prior(X)(e)  \mmember{}  c  supposing  \muparrow{}e  \mmember{}\msubb{}  prior(X)  and 
                      f  e  \mmember{}  c  supposing  \mneg{}((f  e)  =  e)))@i
9.  es-eq(es)  \mmember{}  EqDecider(E(X))
10.  n  :  \mBbbN{}
11.  \mforall{}n:\mBbbN{}n.  \mforall{}c:Cut(X;f).    ((||c||  \mleq{}  n)  {}\mRightarrow{}  P[c])@i
12.  c  :  Cut(X;f)@i
13.  ||c||  \mleq{}  n@i
14.  c  =  \{\}
15.  z  :  fset(E(X))
16.  z  =  \{\}
\mvdash{}  (z  closed  under  [f;  X-pred])


By

---

Latex:
(HypSubst  (-1)  0  THEN  Auto)

---

Home Index