---

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

.....assertion..... 
1. F : (ℕ+ ⟶ ℤ) ⟶ 𝔹
2. H : (ℕ+ ⟶ ℤ) ⟶ 𝔹
3. f : ℕ+ ⟶ ℤ
4. G : n:ℕ+ ⟶ {g:ℕ+ ⟶ ℤ| f = g ∈ (ℕ+n ⟶ ℤ)} 
5. ⇃(∃n:ℕ
      ∀g:ℕ ⟶ ℤ
        (((λn.(f (n + 1))) = g ∈ (ℕn ⟶ ℤ))
        ⇒ (if F (λn.(f ((n - 1) + 1))) then 1 else 0 fi  = if F (λn.(g (n - 1))) then 1 else 0 fi  ∈ ℕ)))
6. ⇃(∃n:ℕ
      ∀g:ℕ ⟶ ℤ
        (((λn.(f (n + 1))) = g ∈ (ℕn ⟶ ℤ))
        ⇒ (if H (λn.(f ((n - 1) + 1))) then 1 else 0 fi  = if H (λn.(g (n - 1))) then 1 else 0 fi  ∈ ℕ)))
⊢ ⇃(∃n:ℕ. (F f = F (G (n + 1)) ∧ H f = H (G (n + 1))))
BY
{ ((Assert ∀k:ℕ. ((λn.(f (n + 1))) = (λi.(G (k + 1) (i + 1))) ∈ (ℕk ⟶ ℤ)) BY
          (Auto
           THEN (Ext THENA Auto)
           THEN Reduce 0
           THEN (GenConclTerm ⌜G (k + 1)⌝⋅ THENA Auto)
           THEN D -2
           THEN ApFunToHypEquands `Z' ⌜Z (x + 1)⌝ ⌜ℤ⌝ (-2)⋅
           THEN Auto))
   THEN UnHalfSquashAll
   THEN ExRepD) }

1
1. F : (ℕ+ ⟶ ℤ) ⟶ 𝔹
2. H : (ℕ+ ⟶ ℤ) ⟶ 𝔹
3. f : ℕ+ ⟶ ℤ
4. G : n:ℕ+ ⟶ {g:ℕ+ ⟶ ℤ| f = g ∈ (ℕ+n ⟶ ℤ)} 
5. n1 : ℕ
6. ∀g:ℕ ⟶ ℤ
     (((λn.(f (n + 1))) = g ∈ (ℕn1 ⟶ ℤ))
     ⇒ (if F (λn.(f ((n - 1) + 1))) then 1 else 0 fi  = if F (λn.(g (n - 1))) then 1 else 0 fi  ∈ ℕ))
7. n : ℕ
8. ∀g:ℕ ⟶ ℤ
     (((λn.(f (n + 1))) = g ∈ (ℕn ⟶ ℤ))
     ⇒ (if H (λn.(f ((n - 1) + 1))) then 1 else 0 fi  = if H (λn.(g (n - 1))) then 1 else 0 fi  ∈ ℕ))
9. ∀k:ℕ. ((λn.(f (n + 1))) = (λi.(G (k + 1) (i + 1))) ∈ (ℕk ⟶ ℤ))
⊢ ∃n:ℕ. (F f = F (G (n + 1)) ∧ H f = H (G (n + 1)))

---

Latex:

---

Latex:
.....assertion..... 
1.  F  :  (\mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{})  {}\mrightarrow{}  \mBbbB{}
2.  H  :  (\mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{})  {}\mrightarrow{}  \mBbbB{}
3.  f  :  \mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{}
4.  G  :  n:\mBbbN{}\msupplus{}  {}\mrightarrow{}  \{g:\mBbbN{}\msupplus{}  {}\mrightarrow{}  \mBbbZ{}|  f  =  g\} 
5.  \00D9(\mexists{}n:\mBbbN{}
            \mforall{}g:\mBbbN{}  {}\mrightarrow{}  \mBbbZ{}
                (((\mlambda{}n.(f  (n  +  1)))  =  g)
                {}\mRightarrow{}  (if  F  (\mlambda{}n.(f  ((n  -  1)  +  1)))  then  1  else  0  fi 
                      =  if  F  (\mlambda{}n.(g  (n  -  1)))  then  1  else  0  fi  )))
6.  \00D9(\mexists{}n:\mBbbN{}
            \mforall{}g:\mBbbN{}  {}\mrightarrow{}  \mBbbZ{}
                (((\mlambda{}n.(f  (n  +  1)))  =  g)
                {}\mRightarrow{}  (if  H  (\mlambda{}n.(f  ((n  -  1)  +  1)))  then  1  else  0  fi 
                      =  if  H  (\mlambda{}n.(g  (n  -  1)))  then  1  else  0  fi  )))
\mvdash{}  \00D9(\mexists{}n:\mBbbN{}.  (F  f  =  F  (G  (n  +  1))  \mwedge{}  H  f  =  H  (G  (n  +  1))))


By

---

Latex:
((Assert  \mforall{}k:\mBbbN{}.  ((\mlambda{}n.(f  (n  +  1)))  =  (\mlambda{}i.(G  (k  +  1)  (i  +  1))))  BY
                (Auto
                  THEN  (Ext  THENA  Auto)
                  THEN  Reduce  0
                  THEN  (GenConclTerm  \mkleeneopen{}G  (k  +  1)\mkleeneclose{}\mcdot{}  THENA  Auto)
                  THEN  D  -2
                  THEN  ApFunToHypEquands  `Z'  \mkleeneopen{}Z  (x  +  1)\mkleeneclose{}  \mkleeneopen{}\mBbbZ{}\mkleeneclose{}  (-2)\mcdot{}
                  THEN  Auto))
  THEN  UnHalfSquashAll
  THEN  ExRepD)

---

Home Index