---

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

.....equality..... 
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. e : E(X)@i
16. e ∈ c@i
17. ∀e':E(X). (e' ∈ c ⇒ (e = (X-pred e') ∈ E(X)) ⇒ (e' = e ∈ E(X)))@i
18. ∀e':E(X). (e' ∈ c ⇒ (e = (f e') ∈ E(X)) ⇒ (e' = e ∈ E(X)))@i
19. ↑e ∈b prior(X)
⊢ prior(X)(e) ~ X-pred e
BY
{ (Unfold `es-interface-pred` 0 THEN Reduce 0 THEN SplitOnConclITE THEN Auto) }

---

Latex:

---

Latex:
.....equality..... 
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.  \mneg{}(c  =  \{\})
15.  e  :  E(X)@i
16.  e  \mmember{}  c@i
17.  \mforall{}e':E(X).  (e'  \mmember{}  c  {}\mRightarrow{}  (e  =  (X-pred  e'))  {}\mRightarrow{}  (e'  =  e))@i
18.  \mforall{}e':E(X).  (e'  \mmember{}  c  {}\mRightarrow{}  (e  =  (f  e'))  {}\mRightarrow{}  (e'  =  e))@i
19.  \muparrow{}e  \mmember{}\msubb{}  prior(X)
\mvdash{}  prior(X)(e)  \msim{}  X-pred  e


By

---

Latex:
(Unfold  `es-interface-pred`  0  THEN  Reduce  0  THEN  SplitOnConclITE  THEN  Auto)

---

Home Index