fact: Fixpoint take {A B} (s : Stream A) (n : nat) (cons: A → B → B) (nil : B) : B := match n with | O => nil | S m => cons (hd s) (take (tl s) m cons nil) end.
imports: CoRN.algebra.RSetoid CoRN.model.totalorder.QposMinMax Coq.QArith.QArith Coq.Bool.Bool CoRN.metric2.Complete MathClasses.theory.CoqStreams MathClasses.interfaces.abstract_algebra MathClasses.theory.streams MathClasses.orders.naturals