---

Step * 1 1 1 1 1 1 1 2 of Lemma Kripke2b


1. a : ℕ ⟶ ℕ
2. ∀P:(ℕ ⟶ ℕ) ⟶ ℙ. ((P a) ⇒ ⇃(∃k:ℕ. ∀g:ℕ ⟶ ℕ. ((a = g ∈ (ℕk ⟶ ℕ)) ⇒ (P g))))
3. init0(a)
4. increasing-sequence(a)
5. ∀m:ℕ. ∃n:ℕ. ((a n) ≥ m )
6. k : ℕ
7. F : ∀b:{b:ℕ ⟶ ℕ| a = b ∈ (ℕk ⟶ ℕ)} . ∃n:ℕ. ((b n) ≥ ((a k) + 1) )
8. n : ℕ
9. ∀f,g:ℕ ⟶ 𝔹.  ((f = g ∈ (ℕn ⟶ 𝔹)) ⇒ ((kripke2b-baire-seq(a;k;F) f) = (kripke2b-baire-seq(a;k;F) g) ∈ ℕ))
10. n < k
11. ¬(n = 0 ∈ ℕ)
⊢ False
BY
{ ((InstHyp [⌜baire2cantor(a)⌝;⌜baire2cantor(baire-diff-from(a;n))⌝] (-3)⋅
    THENA (Auto THEN (BLemma `implies-eq-upto-baire2cantor` THEN Auto) THEN BLemma `eq-upto-baire-diff-from` THEN Auto)
    )
   THEN Thin (-4)
   ) }

1
1. a : ℕ ⟶ ℕ
2. ∀P:(ℕ ⟶ ℕ) ⟶ ℙ. ((P a) ⇒ ⇃(∃k:ℕ. ∀g:ℕ ⟶ ℕ. ((a = g ∈ (ℕk ⟶ ℕ)) ⇒ (P g))))
3. init0(a)
4. increasing-sequence(a)
5. ∀m:ℕ. ∃n:ℕ. ((a n) ≥ m )
6. k : ℕ
7. F : ∀b:{b:ℕ ⟶ ℕ| a = b ∈ (ℕk ⟶ ℕ)} . ∃n:ℕ. ((b n) ≥ ((a k) + 1) )
8. n : ℕ
9. n < k
10. ¬(n = 0 ∈ ℕ)
11. (kripke2b-baire-seq(a;k;F) baire2cantor(a)) = (kripke2b-baire-seq(a;k;F) baire2cantor(baire-diff-from(a;n))) ∈ ℕ
⊢ False

---

Latex:

---

Latex:

1.  a  :  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}
2.  \mforall{}P:(\mBbbN{}  {}\mrightarrow{}  \mBbbN{})  {}\mrightarrow{}  \mBbbP{}.  ((P  a)  {}\mRightarrow{}  \00D9(\mexists{}k:\mBbbN{}.  \mforall{}g:\mBbbN{}  {}\mrightarrow{}  \mBbbN{}.  ((a  =  g)  {}\mRightarrow{}  (P  g))))
3.  init0(a)
4.  increasing-sequence(a)
5.  \mforall{}m:\mBbbN{}.  \mexists{}n:\mBbbN{}.  ((a  n)  \mgeq{}  m  )
6.  k  :  \mBbbN{}
7.  F  :  \mforall{}b:\{b:\mBbbN{}  {}\mrightarrow{}  \mBbbN{}|  a  =  b\}  .  \mexists{}n:\mBbbN{}.  ((b  n)  \mgeq{}  ((a  k)  +  1)  )
8.  n  :  \mBbbN{}
9.  \mforall{}f,g:\mBbbN{}  {}\mrightarrow{}  \mBbbB{}.    ((f  =  g)  {}\mRightarrow{}  ((kripke2b-baire-seq(a;k;F)  f)  =  (kripke2b-baire-seq(a;k;F)  g)))
10.  n  <  k
11.  \mneg{}(n  =  0)
\mvdash{}  False


By

---

Latex:
((InstHyp  [\mkleeneopen{}baire2cantor(a)\mkleeneclose{};\mkleeneopen{}baire2cantor(baire-diff-from(a;n))\mkleeneclose{}]  (-3)\mcdot{}
    THENA  (Auto
                  THEN  (BLemma  `implies-eq-upto-baire2cantor`  THEN  Auto)
                  THEN  BLemma  `eq-upto-baire-diff-from`
                  THEN  Auto)
    )
  THEN  Thin  (-4)
  )

---

Home Index