proposition: Lemma punct_eitv_setTL : range (@EFin R) `|` [set -oo] = [set~ +oo].
proof: Proof. rewrite eqEsubset; split => [a [[a' _ <-]|->]|] //. by move=> [x| |] //= _; [left; exists x|right]. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum ssrint interval) mathcomp(finmap fingroup perm rat) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop) reals ereal signed topology numfun normedtype HB(structures) sequences esum measure real_interval realfun exp lebesgue_stieltjes_measure