---

Step * 1 of Lemma decidable-finite-cantor

.....decidable?..... 
1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. ∀x,y:T.  Dec(R[x;y])
4. n : ℕ
5. F : (ℕn ⟶ 𝔹) ⟶ T
⊢ Dec(∃f,g:ℕn ⟶ 𝔹. R[F f;F g])
BY
{ TACTIC:Assert ⌜∀d:ℕ. ∀s,t:𝔹 List.
                   (Dec(∃fg:ℕn ⟶ 𝔹 × (ℕn ⟶ 𝔹) [let f,g = fg 
                                                 in (∀i:ℕn - d. f i = s[i])
                                                    ∧ (∀i:ℕn - d. g i = t[i])
                                                    ∧ R[F f;F g]])) supposing 
                      ((||t|| = (n - d) ∈ ℤ) and 
                      (||s|| = (n - d) ∈ ℤ))⌝⋅ }

1
.....assertion..... 
1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. ∀x,y:T.  Dec(R[x;y])
4. n : ℕ
5. F : (ℕn ⟶ 𝔹) ⟶ T
⊢ ∀d:ℕ. ∀s,t:𝔹 List.
    (Dec(∃fg:ℕn ⟶ 𝔹 × (ℕn ⟶ 𝔹) [let f,g = fg 
                                  in (∀i:ℕn - d. f i = s[i]) ∧ (∀i:ℕn - d. g i = t[i]) ∧ R[F f;F g]])) supposing 
       ((||t|| = (n - d) ∈ ℤ) and 
       (||s|| = (n - d) ∈ ℤ))

2
1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. ∀x,y:T.  Dec(R[x;y])
4. n : ℕ
5. F : (ℕn ⟶ 𝔹) ⟶ T
6. ∀d:ℕ. ∀s,t:𝔹 List.
     (Dec(∃fg:ℕn ⟶ 𝔹 × (ℕn ⟶ 𝔹) [let f,g = fg 
                                   in (∀i:ℕn - d. f i = s[i]) ∧ (∀i:ℕn - d. g i = t[i]) ∧ R[F f;F g]])) supposing 
        ((||t|| = (n - d) ∈ ℤ) and 
        (||s|| = (n - d) ∈ ℤ))
⊢ Dec(∃f,g:ℕn ⟶ 𝔹. R[F f;F g])

---

Latex:

---

Latex:
.....decidable?..... 
1.  [T]  :  Type
2.  [R]  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  \mforall{}x,y:T.    Dec(R[x;y])
4.  n  :  \mBbbN{}
5.  F  :  (\mBbbN{}n  {}\mrightarrow{}  \mBbbB{})  {}\mrightarrow{}  T
\mvdash{}  Dec(\mexists{}f,g:\mBbbN{}n  {}\mrightarrow{}  \mBbbB{}.  R[F  f;F  g])


By

---

Latex:
TACTIC:Assert  \mkleeneopen{}\mforall{}d:\mBbbN{}.  \mforall{}s,t:\mBbbB{}  List.
                                  (Dec(\mexists{}fg:\mBbbN{}n  {}\mrightarrow{}  \mBbbB{}  \mtimes{}  (\mBbbN{}n  {}\mrightarrow{}  \mBbbB{})  [let  f,g  =  fg 
                                                                                              in  (\mforall{}i:\mBbbN{}n  -  d.  f  i  =  s[i])
                                                                                                    \mwedge{}  (\mforall{}i:\mBbbN{}n  -  d.  g  i  =  t[i])
                                                                                                    \mwedge{}  R[F  f;F  g]]))  supposing 
                                        ((||t||  =  (n  -  d))  and 
                                        (||s||  =  (n  -  d)))\mkleeneclose{}\mcdot{}

---

Home Index