proposition: Lemma measurable_mine D (f g : T -> \bar R) : measurable_fun D f -> measurable_fun D g -> measurable_fun D (fun x => mine (f x) (g x)).
proof: Proof. move=> mf mg; rewrite (_ : (fun _ => _) = (fun x => - maxe (- f x) (- g x))). apply: measurableT_comp => //. by apply: measurable_maxe; exact: measurableT_comp. by rewrite funeqE => x; rewrite oppe_max !oppeK. 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