Step * 1 2 1 1 1 of Lemma decidable-finite-cantor


1. [T] Type
2. [R] T ⟶ T ⟶ ℙ
3. ∀x,y:T.  Dec(R[x;y])
4. : ℕ
5. (ℕn ⟶ 𝔹) ⟶ T
6. ∀d:ℕ. ∀s,t:𝔹 List.
     (Dec(∃fg:ℕn ⟶ 𝔹 × (ℕn ⟶ 𝔹[let f,g fg 
                                   in (∀i:ℕd. s[i]) ∧ (∀i:ℕd. t[i]) ∧ R[F f;F g]])) supposing 
        ((||t|| (n d) ∈ ℤand 
        (||s|| (n d) ∈ ℤ))
7. f1 : ℕn ⟶ 𝔹
8. f2 : ℕn ⟶ 𝔹
9. [%10] (∀i:ℕn. f1 = ⊥) ∧ (∀i:ℕn. f2 = ⊥) ∧ R[F f1;F f2]
⊢ ∃f,g:ℕn ⟶ 𝔹R[F f;F g]
BY
TACTIC:(InstConcl [⌜f1⌝;⌜f2⌝]⋅ THEN Auto THEN Unhide THEN Auto) }


Latex:


Latex:

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
6.  \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)))
7.  f1  :  \mBbbN{}n  {}\mrightarrow{}  \mBbbB{}
8.  f2  :  \mBbbN{}n  {}\mrightarrow{}  \mBbbB{}
9.  [\%10]  :  (\mforall{}i:\mBbbN{}n  -  n.  f1  i  =  \mbot{})  \mwedge{}  (\mforall{}i:\mBbbN{}n  -  n.  f2  i  =  \mbot{})  \mwedge{}  R[F  f1;F  f2]
\mvdash{}  \mexists{}f,g:\mBbbN{}n  {}\mrightarrow{}  \mBbbB{}.  R[F  f;F  g]


By


Latex:
TACTIC:(InstConcl  [\mkleeneopen{}f1\mkleeneclose{};\mkleeneopen{}f2\mkleeneclose{}]\mcdot{}  THEN  Auto  THEN  Unhide  THEN  Auto)




Home Index