fact: Definition takeUntil_length `(P : Stream A → bool) `(ex : LazyExists (fun x => Is_true (P x)) s) : nat := takeUntil P ex (λ _, S) O.
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