Step * 1 of Lemma weak-continuity-principle-nat+-int-nat

.....assertion..... 
1. (ℕ+ ⟶ ℤ) ⟶ ℕ
2. : ℕ+ ⟶ ℤ
3. n:ℕ+ ⟶ {g:ℕ+ ⟶ ℤg ∈ (ℕ+n ⟶ ℤ)} 
4. ⇃(∃n:ℕ. ∀g:ℕ ⟶ ℤ(((λn.(f (n 1))) g ∈ (ℕn ⟶ ℤ))  ((F n.(f ((n 1) 1)))) (F n.(g (n 1)))) ∈ ℕ)))
⊢ ↓∃n:ℕ((F f) (F (G (n 1))) ∈ ℕ)
BY
((InstLemma `squash-from-quotient` [⌜∃n:ℕ
                                        ∀g:ℕ ⟶ ℤ
                                          (((λn.(f (n 1))) g ∈ (ℕn ⟶ ℤ))
                                           ((F n.(f ((n 1) 1)))) (F n.(g (n 1)))) ∈ ℕ))⌝]⋅
    THENA Auto
    )
   THEN RepeatFor (ParallelLast)
   }

1
1. (ℕ+ ⟶ ℤ) ⟶ ℕ
2. : ℕ+ ⟶ ℤ
3. n:ℕ+ ⟶ {g:ℕ+ ⟶ ℤg ∈ (ℕ+n ⟶ ℤ)} 
4. ⇃(∃n:ℕ. ∀g:ℕ ⟶ ℤ(((λn.(f (n 1))) g ∈ (ℕn ⟶ ℤ))  ((F n.(f ((n 1) 1)))) (F n.(g (n 1)))) ∈ ℕ)))
5. : ℕ
6. ∀g:ℕ ⟶ ℤ(((λn.(f (n 1))) g ∈ (ℕn ⟶ ℤ))  ((F n.(f ((n 1) 1)))) (F n.(g (n 1)))) ∈ ℕ))
⊢ (F f) (F (G (n 1))) ∈ ℕ


Latex:


Latex:
.....assertion..... 
1.  F  :  (\mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{})  {}\mrightarrow{}  \mBbbN{}
2.  f  :  \mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{}
3.  G  :  n:\mBbbN{}\msupplus{}  {}\mrightarrow{}  \{g:\mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{}|  f  =  g\} 
4.  \00D9(\mexists{}n:\mBbbN{}
            \mforall{}g:\mBbbN{}  {}\mrightarrow{}  \mBbbZ{}.  (((\mlambda{}n.(f  (n  +  1)))  =  g)  {}\mRightarrow{}  ((F  (\mlambda{}n.(f  ((n  -  1)  +  1))))  =  (F  (\mlambda{}n.(g  (n  -  1)))))))
\mvdash{}  \mdownarrow{}\mexists{}n:\mBbbN{}.  ((F  f)  =  (F  (G  (n  +  1))))


By


Latex:
((InstLemma  `squash-from-quotient`  [\mkleeneopen{}\mexists{}n:\mBbbN{}
                                                                            \mforall{}g:\mBbbN{}  {}\mrightarrow{}  \mBbbZ{}
                                                                                (((\mlambda{}n.(f  (n  +  1)))  =  g)
                                                                                {}\mRightarrow{}  ((F  (\mlambda{}n.(f  ((n  -  1)  +  1))))  =  (F  (\mlambda{}n.(g  (n  -  1))))))\mkleeneclose{}]\mcdot{}
    THENA  Auto
    )
  THEN  RepeatFor  2  (ParallelLast)
  )




Home Index