proposition: Lemma le_sintegral : (sintegral m f <= sintegral m g)%E.
proof: Proof. have gfgf : g =1 f \+ (g \- f) by move=> x /=; rewrite addrC subrK. by rewrite (eq_sintegral _ _ gfgf) sintegralD// leeDl // sintegral_ge0. 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