proposition: Lemma Ind_cap (S1 S2 : {set A}) (x : A) : Ind (S1 :&: S2) x = Ind S1 x * Ind S2 x.
proof: Proof. by rewrite /Ind inE; case: in_mem; case: in_mem=>/=; ring. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) mathcomp(Rstruct reals) Reals Lra ssrR Reals_ext realType_ext logb ssr_ext ssralg_ext bigop_ext fdist