---

Step * 2 1 1 1 1 1 2 of Lemma bar-separation-implies-twkl!


1. [T] : Type
2. ∃size:ℕ. T ~ ℕsize
3. BarSep(T;T)
4. A : {A:(T List) ⟶ ℙ| down-closed(T;A) ∧ Unbounded(A)} 
5. ¬tbar(T;¬(A))
6. Decidable(A)
7. ∀as,bs:T List.  (as ≤ bs ⇒ (A bs) ⇒ (A as))
8. T
9. ∀a,b:T.  Dec(a = b ∈ T)
10. eff-unique-path(T;A)
11. u : T
12. u1 : T
13. v : T List
14. (¬↑null([u1 / v]))
⇒ (∀s:T List
      ∃t:{t:T| (t ∈ [u1 / v])} . ∀t':{t:T| (t ∈ [u1 / v])} . ((¬(t' = t ∈ T)) ⇒ tbar(T;¬(λx.(A ((s @ [t']) @ x))))))
15. ¬False
16. s : T List
⊢ ∃t:{t:T| (t ∈ [u; [u1 / v]])} . ∀t':{t:T| (t ∈ [u; [u1 / v]])} . ((¬(t' = t ∈ T)) ⇒ tbar(T;¬(λx.(A ((s @ [t']) @ x)))\000C))
BY
{ (Reduce (-3) THEN (D -3 THENA Auto) THEN (InstHyp [⌜s⌝] (-1)⋅ THENA Auto) THEN ExRepD) }

1
1. [T] : Type
2. size : ℕ
3. T ~ ℕsize
4. BarSep(T;T)
5. A : {A:(T List) ⟶ ℙ| down-closed(T;A) ∧ Unbounded(A)} 
6. ¬tbar(T;¬(A))
7. Decidable(A)
8. ∀as,bs:T List.  (as ≤ bs ⇒ (A bs) ⇒ (A as))
9. T
10. ∀a,b:T.  Dec(a = b ∈ T)
11. eff-unique-path(T;A)
12. u : T
13. u1 : T
14. v : T List
15. ¬False
16. s : T List
17. ∀s:T List
      ∃t:{t:T| (t ∈ [u1 / v])} . ∀t':{t:T| (t ∈ [u1 / v])} . ((¬(t' = t ∈ T)) ⇒ tbar(T;¬(λx.(A ((s @ [t']) @ x)))))
18. t : {t:T| (t ∈ [u1 / v])} 
19. ∀t':{t:T| (t ∈ [u1 / v])} . ((¬(t' = t ∈ T)) ⇒ tbar(T;¬(λx.(A ((s @ [t']) @ x)))))
⊢ ∃t:{t:T| (t ∈ [u; [u1 / v]])} . ∀t':{t:T| (t ∈ [u; [u1 / v]])} . ((¬(t' = t ∈ T)) ⇒ tbar(T;¬(λx.(A ((s @ [t']) @ x)))\000C))

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  \mexists{}size:\mBbbN{}.  T  \msim{}  \mBbbN{}size
3.  BarSep(T;T)
4.  A  :  \{A:(T  List)  {}\mrightarrow{}  \mBbbP{}|  down-closed(T;A)  \mwedge{}  Unbounded(A)\} 
5.  \mneg{}tbar(T;\mneg{}(A))
6.  Decidable(A)
7.  \mforall{}as,bs:T  List.    (as  \mleq{}  bs  {}\mRightarrow{}  (A  bs)  {}\mRightarrow{}  (A  as))
8.  T
9.  \mforall{}a,b:T.    Dec(a  =  b)
10.  eff-unique-path(T;A)
11.  u  :  T
12.  u1  :  T
13.  v  :  T  List
14.  (\mneg{}\muparrow{}null([u1  /  v]))
{}\mRightarrow{}  (\mforall{}s:T  List
            \mexists{}t:\{t:T|  (t  \mmember{}  [u1  /  v])\} 
              \mforall{}t':\{t:T|  (t  \mmember{}  [u1  /  v])\}  .  ((\mneg{}(t'  =  t))  {}\mRightarrow{}  tbar(T;\mneg{}(\mlambda{}x.(A  ((s  @  [t'])  @  x))))))
15.  \mneg{}False
16.  s  :  T  List
\mvdash{}  \mexists{}t:\{t:T|  (t  \mmember{}  [u;  [u1  /  v]])\} 
      \mforall{}t':\{t:T|  (t  \mmember{}  [u;  [u1  /  v]])\}  .  ((\mneg{}(t'  =  t))  {}\mRightarrow{}  tbar(T;\mneg{}(\mlambda{}x.(A  ((s  @  [t'])  @  x)))))


By

---

Latex:
(Reduce  (-3)  THEN  (D  -3  THENA  Auto)  THEN  (InstHyp  [\mkleeneopen{}s\mkleeneclose{}]  (-1)\mcdot{}  THENA  Auto)  THEN  ExRepD)

---

Home Index