Definition fin_stream {A: Type} (h: list A) : stream A.Definition inf_stream {A: Type} (h: nat -> A) : stream A.

(* Specifications: *)
Lemma fin_stream_fin {A: Type}: forall l: list A, is_fin_stream (fin_stream l).
Lemma inf_stream_inf {A: Type}: forall f: nat -> A, is_inf_stream (inf_stream f).
Lemma fin_stream_n_stream {A: Type}: forall l: list A, is_n_stream (length l) (fin_stream l).