proposition: Lemma Cauchy_fun_seq'_wd : Cauchy_fun_seq' _ _ _ _ contf -> Cauchy_fun_seq' _ _ _ _ contf0.
proof: Proof. intros H k. elim (H k); intros N HN. exists N; intros. eapply leEq_wdl. apply (HN m n H0 H1 x Hx). apply AbsIR_wd; rational. Qed.
imports: CoRN.ftc.Continuity CoRN.ftc.PartInterval