proposition: Lemma measurable_image_EFin (A : set R) : measurableR A -> measurable (EFin @` A).
proof: Proof. by move=> mA; exists A => //; exists set0; [constructor|rewrite setU0]. 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