---

Step * 2 1 1 1 of Lemma unary-almost-full-has-strict-inc


1. A : ℕ ⟶ ℙ
2. ∀s:StrictInc. ⇃(∃n:ℕ. A[s n])
3. ∀m:ℕ. ⇃(∃n:ℕ. (m < n ∧ A[n]))
4. F : ℕ ⟶ ℕ
5. ∀n:ℕ. (n < F n ∧ A[F n])
⊢ ∃s:StrictInc. ∀n:ℕ. A[s n]
BY
{ (D 0 With ⌜λn.primrec(n;F 0;λi,v. (F v))⌝  THEN Reduce 0 THEN Auto) }

1
.....wf..... 
1. A : ℕ ⟶ ℙ
2. ∀s:StrictInc. ⇃(∃n:ℕ. A[s n])
3. ∀m:ℕ. ⇃(∃n:ℕ. (m < n ∧ A[n]))
4. F : ℕ ⟶ ℕ
5. ∀n:ℕ. (n < F n ∧ A[F n])
⊢ λn.primrec(n;F 0;λi,v. (F v)) ∈ StrictInc

2
1. A : ℕ ⟶ ℙ
2. ∀s:StrictInc. ⇃(∃n:ℕ. A[s n])
3. ∀m:ℕ. ⇃(∃n:ℕ. (m < n ∧ A[n]))
4. F : ℕ ⟶ ℕ
5. ∀n:ℕ. (n < F n ∧ A[F n])
6. n : ℕ
⊢ A[primrec(n;F 0;λi,v. (F v))]

---

Latex:

---

Latex:

1.  A  :  \mBbbN{}  {}\mrightarrow{}  \mBbbP{}
2.  \mforall{}s:StrictInc.  \00D9(\mexists{}n:\mBbbN{}.  A[s  n])
3.  \mforall{}m:\mBbbN{}.  \00D9(\mexists{}n:\mBbbN{}.  (m  <  n  \mwedge{}  A[n]))
4.  F  :  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}
5.  \mforall{}n:\mBbbN{}.  (n  <  F  n  \mwedge{}  A[F  n])
\mvdash{}  \mexists{}s:StrictInc.  \mforall{}n:\mBbbN{}.  A[s  n]


By

---

Latex:
(D  0  With  \mkleeneopen{}\mlambda{}n.primrec(n;F  0;\mlambda{}i,v.  (F  v))\mkleeneclose{}    THEN  Reduce  0  THEN  Auto)

---

Home Index