proposition: Lemma emeasurable_set1 (x : \bar R) : measurable [set x].
proof: Proof. case: x => [r| |]. - by rewrite -image_set1; apply: measurable_image_EFin; apply: measurable_set1. - exists set0 => //; [exists [set +oo%E]; [by constructor|]]. by rewrite image_set0 set0U. - exists set0 => //; [exists [set -oo%E]; [by constructor|]]. by rewrite image_set0 set0U. 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