Repeat function on streams.

0ec18c14 · Robbert Krebbers · 2e1b8a41 · 0ec18c14
Commit 0ec18c14 authored Sep 03, 2014 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

theories/streams.v theories/streams.v +1 -0

No files found.
--- a/theories/streams.v
+++ b/theories/streams.v
@@ -28,6 +28,7 @@ Global Instance stream_fmap : FMap stream := λ A B f,

 Fixpoint stake {A} (n : nat) (s : stream A) :=
  match n with 0 => [] | S n => shead s :: stake n (stail s) end.
+CoFixpoint srepeat {A} (x : A) : stream A := x :.: srepeat x.

 Section stream_properties.
 Context {A : Type}.