fact: Definition Cauchy_fun_seq2 := forall e, [0] [<] e -> {N : nat | forall m, N <= m -> forall x Hx, AbsIR (Part _ _ (incf m x Hx) [-]Part _ _ (incf N x Hx)) [<=] e}.
imports: CoRN.ftc.Continuity CoRN.ftc.PartInterval