proposition: Lemma caratheodory_measurable_setI A B : M A -> M B -> M (A `&` B).
proof: Proof. move=> mA mB; rewrite -(setCK A) -(setCK B) -setCU. by apply/caratheodory_measurable_setC/caratheodory_measurable_setU; exact/caratheodory_measurable_setC. Qed.
imports: mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality fsbigop ) reals ereal signed topology normedtype sequences esum numfun HB(structures)