---

Step * 1 2 2 1 1 2 of Lemma decidable__exists-pred-iterated-classrel-between3-sv


1. [Info] : Type
2. [T] : Type
3. [S] : Type
4. init : Id ─→ bag(S)@i
5. f : T ─→ S ─→ S@i
6. X : EClass(T)@i'
7. es : EO+(Info)@i'
8. P : T ─→ S ─→ ℙ@i'
9. e1 : E@i
10. single-valued-classrel(es;X;T)@i
11. single-valued-bag(init loc(e1);S)@i
12. ∀v:T. ∀s:S.  Dec(P[v;s])@i
13. e2 : E@i
14. ∀e':E
      ((e' < e2)
      ⇒ Dec(∃e:E
              ∃s:S
               ((e1 <loc e) ∧ e ≤loc e'  ∧ iterated-classrel(es;S;T;f;init;X;pred(e);s) ∧ (∃v:T. (v ∈ X(e) ∧ P[v;s])))))
15. loc(e1) = loc(e2) ∈ Id
16. v1 : T
17. v1 ∈ X(e2)
18. ¬↑first(e2)
19. ¬(∃e:E
       ∃s:S
        ((e1 <loc e) ∧ e ≤loc pred(e2)  ∧ iterated-classrel(es;S;T;f;init;X;pred(e);s) ∧ (∃v:T. (v ∈ X(e) ∧ P[v;s]))))
20. v : S
21. iterated-classrel(es;S;T;f;init;X;pred(e2);v)
22. ¬P[v1;v]
⊢ Dec(∃e:E
       ∃s:S. ((e1 <loc e) ∧ e ≤loc e2  ∧ iterated-classrel(es;S;T;f;init;X;pred(e);s) ∧ (∃v:T. (v ∈ X(e) ∧ P[v;s]))))
BY
{ ((OrRight THENA Auto)
   THEN (D 0 THENA Auto)
   THEN ExRepD
   THEN D (-5)
   THEN Try (Complete ((D (-12) THEN InstConcl [⌈e⌉;⌈s⌉]⋅ THEN Auto)))
   THEN (RWO "-5" (-4) THENA Auto)
   THEN (RWO "-5" (-2) THENA Auto)
   THEN UseSingleVal (-14) (-2)
   THEN (Assert ⌈v = s ∈ S⌉⋅ THENM Auto)
   THEN InstLemma `iterated-classrel-single-val` [⌈Info⌉;⌈T⌉;⌈S⌉;⌈init⌉;⌈f⌉;⌈X⌉;⌈es⌉;⌈pred(e2)⌉;⌈v⌉;⌈s⌉]⋅
   THEN Auto) }

---

Latex:



1.  [Info]  :  Type
2.  [T]  :  Type
3.  [S]  :  Type
4.  init  :  Id  {}\mrightarrow{}  bag(S)@i
5.  f  :  T  {}\mrightarrow{}  S  {}\mrightarrow{}  S@i
6.  X  :  EClass(T)@i'
7.  es  :  EO+(Info)@i'
8.  P  :  T  {}\mrightarrow{}  S  {}\mrightarrow{}  \mBbbP{}@i'
9.  e1  :  E@i
10.  single-valued-classrel(es;X;T)@i
11.  single-valued-bag(init  loc(e1);S)@i
12.  \mforall{}v:T.  \mforall{}s:S.    Dec(P[v;s])@i
13.  e2  :  E@i
14.  \mforall{}e':E
            ((e'  <  e2)
            {}\mRightarrow{}  Dec(\mexists{}e:E
                            \mexists{}s:S
                              ((e1  <loc  e)
                              \mwedge{}  e  \mleq{}loc  e' 
                              \mwedge{}  iterated-classrel(es;S;T;f;init;X;pred(e);s)
                              \mwedge{}  (\mexists{}v:T.  (v  \mmember{}  X(e)  \mwedge{}  P[v;s])))))
15.  loc(e1)  =  loc(e2)
16.  v1  :  T
17.  v1  \mmember{}  X(e2)
18.  \mneg{}\muparrow{}first(e2)
19.  \mneg{}(\mexists{}e:E
              \mexists{}s:S
                ((e1  <loc  e)
                \mwedge{}  e  \mleq{}loc  pred(e2) 
                \mwedge{}  iterated-classrel(es;S;T;f;init;X;pred(e);s)
                \mwedge{}  (\mexists{}v:T.  (v  \mmember{}  X(e)  \mwedge{}  P[v;s]))))
20.  v  :  S
21.  iterated-classrel(es;S;T;f;init;X;pred(e2);v)
22.  \mneg{}P[v1;v]
\mvdash{}  Dec(\mexists{}e:E
              \mexists{}s:S
                ((e1  <loc  e)
                \mwedge{}  e  \mleq{}loc  e2 
                \mwedge{}  iterated-classrel(es;S;T;f;init;X;pred(e);s)
                \mwedge{}  (\mexists{}v:T.  (v  \mmember{}  X(e)  \mwedge{}  P[v;s]))))


By

((OrRight  THENA  Auto)
  THEN  (D  0  THENA  Auto)
  THEN  ExRepD
  THEN  D  (-5)
  THEN  Try  (Complete  ((D  (-12)  THEN  InstConcl  [\mkleeneopen{}e\mkleeneclose{};\mkleeneopen{}s\mkleeneclose{}]\mcdot{}  THEN  Auto)))
  THEN  (RWO  "-5"  (-4)  THENA  Auto)
  THEN  (RWO  "-5"  (-2)  THENA  Auto)
  THEN  UseSingleVal  (-14)  (-2)
  THEN  (Assert  \mkleeneopen{}v  =  s\mkleeneclose{}\mcdot{}  THENM  Auto)
  THEN  InstLemma  `iterated-classrel-single-val`  [\mkleeneopen{}Info\mkleeneclose{};\mkleeneopen{}T\mkleeneclose{};\mkleeneopen{}S\mkleeneclose{};\mkleeneopen{}init\mkleeneclose{};\mkleeneopen{}f\mkleeneclose{};\mkleeneopen{}X\mkleeneclose{};\mkleeneopen{}es\mkleeneclose{};\mkleeneopen{}pred(e2)\mkleeneclose{};\mkleeneopen{}v\mkleeneclose{};
  \mkleeneopen{}s\mkleeneclose{}]\mcdot{}
  THEN  Auto)

---

Home Index