fact: Fixpoint LazyExists_inc `{P : Stream A → Prop} (n : nat) s : LazyExists P (Str_nth_tl n s) → LazyExists P s := match n return LazyExists P (Str_nth_tl n s) → LazyExists P s with | O => λ x, x | S n => λ ex, LazyFurther (λ _, LazyExists_inc n (tl s) ex) 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