---

Step * of Lemma s-nth_wf

∀[A:Type]. ∀[n:ℕ]. ∀[s:stream(A)].  (s-nth(n;s) ∈ A)
BY
{ (InductionOnNat THEN Auto THEN RecUnfold `s-nth` 0 THEN Reduce 0) }

1
1. A : Type
2. n : ℤ
3. s : stream(A)
⊢ let a,s' = s 
  in a ∈ A

2
1. A : Type
2. n : ℤ
3. 0 < n
4. ∀[s:stream(A)]. (s-nth(n - 1;s) ∈ A)
5. s : stream(A)
⊢ let a,s' = s 
  in if (n =z 0) then a else eval m = n - 1 in s-nth(m;s') fi  ∈ A

---

Latex:

---

Latex:
\mforall{}[A:Type].  \mforall{}[n:\mBbbN{}].  \mforall{}[s:stream(A)].    (s-nth(n;s)  \mmember{}  A)


By

---

Latex:
(InductionOnNat  THEN  Auto  THEN  RecUnfold  `s-nth`  0  THEN  Reduce  0)

---

Home Index