proposition: Lemma dominates_pushforward d d' (T : measurableType d) (T' : measurableType d') (R : realType) (mu : {measure set T -> \bar R}) (nu : {charge set T -> \bar R}) (f : T -> T') (mf : measurable_fun setT f) : nu `<< mu -> pushforward nu mf `<< pushforward mu mf.
proof: Proof. by move=> numu A mA; apply: numu; rewrite -[X in measurable X]setTI; exact: mf. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum ssrint interval) mathcomp(finmap fingroup perm rat) mathcomp(mathcomp_extra boolp classical_sets cardinality) mathcomp(functions fsbigop set_interval) HB(structures) reals ereal signed topology numfun normedtype sequences esum measure realfun lebesgue_measure lebesgue_integral