---

Step * of Lemma stream-zip_wf2

∀[A,B,C:Type]. ∀[f:A ⟶ B ⟶ C]. ∀[n:ℕ]. ∀[as:primrec(n;Top;λ,T. (A × T))]. ∀[bs:primrec(n;Top;λ,T. (B × T))].
  (stream-zip(f;as;bs) ∈ primrec(n;Top;λ,T. (C × T)))
BY
{ (InductionOnNat THEN (RWO "primrec-unroll" 0 THENA Auto) THEN AutoSplit THEN RecUnfold `stream-zip` 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B,C:Type].  \mforall{}[f:A  {}\mrightarrow{}  B  {}\mrightarrow{}  C].  \mforall{}[n:\mBbbN{}].  \mforall{}[as:primrec(n;Top;\mlambda{},T.  (A  \mtimes{}  T))].
\mforall{}[bs:primrec(n;Top;\mlambda{},T.  (B  \mtimes{}  T))].
    (stream-zip(f;as;bs)  \mmember{}  primrec(n;Top;\mlambda{},T.  (C  \mtimes{}  T)))


By

---

Latex:
(InductionOnNat
  THEN  (RWO  "primrec-unroll"  0  THENA  Auto)
  THEN  AutoSplit
  THEN  RecUnfold  `stream-zip`  0
  THEN  Auto)

---

Home Index