fact: Fixpoint FindCrossingPoint {R : ConstructiveReals} (un : nat -> CRcarrier R) (N : nat) (alpha : CRcarrier R) { struct N } : (forall n:nat, un (S n) <= un n) -> (forall n:nat, CRapart R alpha (un n)) -> alpha < un O -> { k : nat & (le k N) * (sum (k = N) (un (S k) < alpha)) * (alpha < un k) }%type.
imports: QArith_base Qabs ConstructiveReals ConstructiveSum ConstructivePower ConstructiveAbs ConstructiveMinMax ConstructiveLimits ConstructiveUniformCont ConstructivePartialFunctions ConstructiveDiagonal CMTbase CMTIntegrableFunctions CMTIntegrableSets CMTFullSets CMTReals Lia