---

Step * 2 of Lemma gamma-neighbourhood-prop1


1. beta : ℕ ⟶ ℕ
2. n0 : finite-nat-seq()
3. ∀a:ℕ ⟶ ℕ. ∃x:ℕ. (↑isl(gamma-neighbourhood(beta;n0) a^(x)))
4. a : finite-nat-seq()
5. b : finite-nat-seq()
6. ↑isl(gamma-neighbourhood(beta;n0) a)
⊢ (gamma-neighbourhood(beta;n0) a) = (gamma-neighbourhood(beta;n0) a**b) ∈ (ℕ?)
BY
{ (MoveToConcl (-1) THEN RepUR ``gamma-neighbourhood`` 0 THEN (BoolCase ⌜init-seg-nat-seq(a;n0)⌝⋅ THENA Auto)) }

1
1. beta : ℕ ⟶ ℕ
2. n0 : finite-nat-seq()
3. ∀a:ℕ ⟶ ℕ. ∃x:ℕ. (↑isl(gamma-neighbourhood(beta;n0) a^(x)))
4. a : finite-nat-seq()
5. b : finite-nat-seq()
6. ↑init-seg-nat-seq(a;n0)
⊢ False
⇒ ((inr ⋅ )
   = if init-seg-nat-seq(a**b;n0) then inr ⋅ 
     if TERMOF{extend-seq1-all-dec:o, 1:l} a**b n0 beta then inl 1
     else inl 0
     fi 
   ∈ (ℕ?))

2
1. beta : ℕ ⟶ ℕ
2. n0 : finite-nat-seq()
3. ∀a:ℕ ⟶ ℕ. ∃x:ℕ. (↑isl(gamma-neighbourhood(beta;n0) a^(x)))
4. a : finite-nat-seq()
5. ¬↑init-seg-nat-seq(a;n0)
6. b : finite-nat-seq()
⊢ (↑isl(if TERMOF{extend-seq1-all-dec:o, 1:l} a n0 beta then inl 1 else inl 0 fi ))
⇒ (if TERMOF{extend-seq1-all-dec:o, 1:l} a n0 beta then inl 1 else inl 0 fi 
   = if init-seg-nat-seq(a**b;n0) then inr ⋅ 
     if TERMOF{extend-seq1-all-dec:o, 1:l} a**b n0 beta then inl 1
     else inl 0
     fi 
   ∈ (ℕ?))

---

Latex:

---

Latex:

1.  beta  :  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}
2.  n0  :  finite-nat-seq()
3.  \mforall{}a:\mBbbN{}  {}\mrightarrow{}  \mBbbN{}.  \mexists{}x:\mBbbN{}.  (\muparrow{}isl(gamma-neighbourhood(beta;n0)  a\^{}(x)))
4.  a  :  finite-nat-seq()
5.  b  :  finite-nat-seq()
6.  \muparrow{}isl(gamma-neighbourhood(beta;n0)  a)
\mvdash{}  (gamma-neighbourhood(beta;n0)  a)  =  (gamma-neighbourhood(beta;n0)  a**b)


By

---

Latex:
(MoveToConcl  (-1)
  THEN  RepUR  ``gamma-neighbourhood``  0
  THEN  (BoolCase  \mkleeneopen{}init-seg-nat-seq(a;n0)\mkleeneclose{}\mcdot{}  THENA  Auto))

---

Home Index