proposition: Lemma f_integrable : nu `<< mu -> mu.-integrable [set: T] f.
proof: Proof. by rewrite /f; case: pselect => // numu _; case: cid => x []. 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