---

Step * 1 1 1 1 of Lemma fibs_wf


1. f : ℕ ⟶ ℕ ⟶ ℕ
2. (λx,y. (x + y)) = f ∈ (ℕ ⟶ ℕ ⟶ ℕ)
3. n : ℕ
4. fibs : primrec(n;Top;λ,T. (ℕ × T))
5. 1 ≤ n
⊢ 1.stream-zip(f;fibs;s-tl(fibs)) ∈ ℕ × primrec(n - 1;Top;λ,T. (ℕ × T))
BY
{ (Unfold `s-cons` 0 THEN Using [`A',⌜ℕ⌝] MemCD⋅ THEN Try (Complete (Auto)))⋅ }

1
.....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))

---

Latex:

---

Latex:

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{}  1.stream-zip(f;fibs;s-tl(fibs))  \mmember{}  \mBbbN{}  \mtimes{}  primrec(n  -  1;Top;\mlambda{},T.  (\mBbbN{}  \mtimes{}  T))


By

---

Latex:
(Unfold  `s-cons`  0  THEN  Using  [`A',\mkleeneopen{}\mBbbN{}\mkleeneclose{}]  MemCD\mcdot{}  THEN  Try  (Complete  (Auto)))\mcdot{}

---

Home Index