proposition: Lemma cset_ext X Y : X = Y :> set _ -> X = Y.
proof: Proof. move: X Y => -[X HX] [Y HY] /= ?; subst Y. congr (CSet.Pack _); exact/Prop_irrelevance. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg fingroup perm matrix) mathcomp(mathcomp_extra boolp classical_sets Rstruct) mathcomp(ssrnum ereal) mathcomp(lra Rstruct reals) Reals ssrR Reals_ext Ranalysis_ext ssr_ext ssralg_ext logb realType_ext fdist