fact: Definition Cauchy_fun_seq' := forall k, {N : nat | forall m n, N <= m -> N <= n -> forall x Hx, AbsIR (Part _ _ (incf m x Hx) [-]Part _ _ (incf n x Hx)) [<=] one_div_succ k}.
imports: CoRN.ftc.Continuity CoRN.ftc.PartInterval