---

Step * 1 1 1 1 1 of Lemma fibs_wf

.....subterm..... T:t
2:n
1. f : ℕ ⟶ ℕ ⟶ ℕ
2. (λx,y. (x + y)) = f ∈ (ℕ ⟶ ℕ ⟶ ℕ)
3. n : ℕ
4. fibs : primrec(n;Top;λ,T. (ℕ × T))
5. 1 ≤ n
⊢ stream-zip(f;fibs;s-tl(fibs)) ∈ primrec(n - 1;Top;λ,T. (ℕ × T))
BY
{ ((RWO "primrec-unroll" (-2)⋅ THENA Auto) THEN SplitOnHypITE -2  THEN Try (Complete (Auto)))⋅ }

1
.....falsecase..... 
1. f : ℕ ⟶ ℕ ⟶ ℕ
2. (λx,y. (x + y)) = f ∈ (ℕ ⟶ ℕ ⟶ ℕ)
3. n : ℕ
4. fibs : (λ,T. (ℕ × T)) (n - 1) primrec(n - 1;Top;λ,T. (ℕ × T))
5. 1 ≤ n
6. ¬n < 1
⊢ stream-zip(f;fibs;s-tl(fibs)) ∈ primrec(n - 1;Top;λ,T. (ℕ × T))

---

Latex:

---

Latex:
.....subterm.....  T:t
2:n
1.  f  :  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}
2.  (\mlambda{}x,y.  (x  +  y))  =  f
3.  n  :  \mBbbN{}
4.  fibs  :  primrec(n;Top;\mlambda{},T.  (\mBbbN{}  \mtimes{}  T))
5.  1  \mleq{}  n
\mvdash{}  stream-zip(f;fibs;s-tl(fibs))  \mmember{}  primrec(n  -  1;Top;\mlambda{},T.  (\mBbbN{}  \mtimes{}  T))


By

---

Latex:
((RWO  "primrec-unroll"  (-2)\mcdot{}  THENA  Auto)  THEN  SplitOnHypITE  -2    THEN  Try  (Complete  (Auto)))\mcdot{}

---

Home Index