proposition: Lemma cvge_to_le f b c : f @ a --> c -> (\near a, f a <= b) -> c <= b.
proof: Proof. by move=> /[swap]/(closed_cvg _ (@closed_ereal_ge_ereal _ b))/[apply]. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrint ssrnum finmap matrix) mathcomp(rat interval zmodp vector fieldext falgebra) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality set_interval Rstruct) ereal reals signed topology prodnormedzmodule