fact: Fixpoint snth (n : nat) : forall P : nat -> A -> Prop, SStream A P -> A := fun (P : nat -> A -> Prop) (s : SStream A P) => match n with | O => shd P s | S m => snth m (fun n : nat => P (S n)) (stl P s) end.