proposition: Lemma integrableZr (k : R) f : mu_int f -> mu_int (f \* cst k%:E).
proof: Proof. by move=> mf; apply: eq_integrable (integrableZl k mf) => // x; rewrite muleC. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrnum ssrint interval finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop ) signed reals ereal topology normedtype sequences real_interval esum measure lebesgue_measure numfun