proposition: Lemma strace_measurable d (T : measurableType d) (A : set T) : measurable A -> strace measurable A `<=` measurable.
proof: Proof. by move=> mA=> _ [C mC <-]; apply: measurableI. 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