Step
*
1
2
2
1
of Lemma
decidable__wellfound-bounded-exists
1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. [P] : T ⟶ ℙ
4. ∀x,y:T.  Dec(R x y)@i
5. ∀x:T. Dec(P[x])@i
6. ∀y:T. ∃L:T List. ∀x:T. ((R x y) 
⇒ (x ∈ L))@i
7. ∀[P:T ⟶ ℙ]. ((∀j:T. ((∀k:T. ((R k j) 
⇒ P[k])) 
⇒ P[j])) 
⇒ {∀n:T. P[n]})@i'
8. z : T@i
9. ∀k:T. ((R k z) 
⇒ Dec(∃x:T. ((R+ x k) ∧ P[x])))@i
10. L : T List
11. ∀x:T. ((R x z) 
⇒ (x ∈ L))
12. (∃y∈L. (R y z) ∧ (∃x:T. ((R+ x y) ∧ P[x])))
13. ¬(∃y∈L. (R y z) ∧ P[y])
⊢ ∃x:T. ((R+ x z) ∧ P[x])
BY
{ (D (-2)
   THEN Auto
   THEN ParallelOp -2
   THEN Auto
   THEN (InstLemma `rel_plus_trans` [⌜T⌝; ⌜R⌝])⋅
   THEN Auto
   THEN UseTrans ⌜L[i]⌝⋅
   THEN BLemma `rel-rel-plus`
   THEN Auto) }
Latex:
Latex:
1.  [T]  :  Type
2.  [R]  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  [P]  :  T  {}\mrightarrow{}  \mBbbP{}
4.  \mforall{}x,y:T.    Dec(R  x  y)@i
5.  \mforall{}x:T.  Dec(P[x])@i
6.  \mforall{}y:T.  \mexists{}L:T  List.  \mforall{}x:T.  ((R  x  y)  {}\mRightarrow{}  (x  \mmember{}  L))@i
7.  \mforall{}[P:T  {}\mrightarrow{}  \mBbbP{}].  ((\mforall{}j:T.  ((\mforall{}k:T.  ((R  k  j)  {}\mRightarrow{}  P[k]))  {}\mRightarrow{}  P[j]))  {}\mRightarrow{}  \{\mforall{}n:T.  P[n]\})@i'
8.  z  :  T@i
9.  \mforall{}k:T.  ((R  k  z)  {}\mRightarrow{}  Dec(\mexists{}x:T.  ((R\msupplus{}  x  k)  \mwedge{}  P[x])))@i
10.  L  :  T  List
11.  \mforall{}x:T.  ((R  x  z)  {}\mRightarrow{}  (x  \mmember{}  L))
12.  (\mexists{}y\mmember{}L.  (R  y  z)  \mwedge{}  (\mexists{}x:T.  ((R\msupplus{}  x  y)  \mwedge{}  P[x])))
13.  \mneg{}(\mexists{}y\mmember{}L.  (R  y  z)  \mwedge{}  P[y])
\mvdash{}  \mexists{}x:T.  ((R\msupplus{}  x  z)  \mwedge{}  P[x])
By
Latex:
(D  (-2)
  THEN  Auto
  THEN  ParallelOp  -2
  THEN  Auto
  THEN  (InstLemma  `rel\_plus\_trans`  [\mkleeneopen{}T\mkleeneclose{};  \mkleeneopen{}R\mkleeneclose{}])\mcdot{}
  THEN  Auto
  THEN  UseTrans  \mkleeneopen{}L[i]\mkleeneclose{}\mcdot{}
  THEN  BLemma  `rel-rel-plus`
  THEN  Auto)
Home
Index