---

Step * 1 2 1 1 1 of Lemma gamma-neighbourhood-prop2


1. beta : ℕ ⟶ ℕ
2. n0 : finite-nat-seq()
3. x : ℕ
4. ¬((beta x) = 0 ∈ ℤ)
5. x1 : ℕx + 1
6. ¬((beta x1) = 0 ∈ ℤ)
7. ∀y:ℕx1. ((beta y) = 0 ∈ ℤ)
8. ((fst(n0**λx.x1^(1))) ≤ (fst(n0))) ∧ ((snd(n0**λx.x1^(1))) = (snd(n0)) ∈ (ℕfst(n0**λx.x1^(1)) ⟶ ℕ))
⊢ (¬((beta x1) = 0 ∈ ℤ))
∧ (∀y:ℕx1. ((beta y) = 0 ∈ ℤ))
∧ ((inr ⋅ ) = (inl 1) ∈ (ℕ?))
∧ (if init-seg-nat-seq(n0**λx.(x1 + 1)^(1);n0) then inr ⋅ 
  if TERMOF{extend-seq1-all-dec:o, 1:l} n0**λx.(x1 + 1)^(1) n0 beta then inl 1
  else inl 0
  fi 
  = (inl 0)
  ∈ (ℕ?))
BY
{ (DVar `n0' THEN RepUR ``append-finite-nat-seq mk-finite-nat-seq`` (-1) THEN RepD THEN Assert ⌜False⌝⋅ THEN Auto) }

---

Latex:

---

Latex:

1.  beta  :  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}
2.  n0  :  finite-nat-seq()
3.  x  :  \mBbbN{}
4.  \mneg{}((beta  x)  =  0)
5.  x1  :  \mBbbN{}x  +  1
6.  \mneg{}((beta  x1)  =  0)
7.  \mforall{}y:\mBbbN{}x1.  ((beta  y)  =  0)
8.  ((fst(n0**\mlambda{}x.x1\^{}(1)))  \mleq{}  (fst(n0)))  \mwedge{}  ((snd(n0**\mlambda{}x.x1\^{}(1)))  =  (snd(n0)))
\mvdash{}  (\mneg{}((beta  x1)  =  0))
\mwedge{}  (\mforall{}y:\mBbbN{}x1.  ((beta  y)  =  0))
\mwedge{}  ((inr  \mcdot{}  )  =  (inl  1))
\mwedge{}  (if  init-seg-nat-seq(n0**\mlambda{}x.(x1  +  1)\^{}(1);n0)  then  inr  \mcdot{} 
    if  TERMOF\{extend-seq1-all-dec:o,  1:l\}  n0**\mlambda{}x.(x1  +  1)\^{}(1)  n0  beta  then  inl  1
    else  inl  0
    fi 
    =  (inl  0))


By

---

Latex:
(DVar  `n0'
  THEN  RepUR  ``append-finite-nat-seq  mk-finite-nat-seq``  (-1)
  THEN  RepD
  THEN  Assert  \mkleeneopen{}False\mkleeneclose{}\mcdot{}
  THEN  Auto)

---

Home Index