proposition: Lemma oplus_convmm_cset (X : {convex_set A}) : oplus_conv_set X X = X.
proof: Proof. rewrite eqEsubset; split => [x [p _]|x Xx]. - by rewrite convmm_cset. - by exists 0%:pr => //; rewrite convmm_cset. Qed.
imports: HB(structures) Reals mathcomp(all_ssreflect ssralg ssrnum) mathcomp(mathcomp_extra boolp classical_sets Rstruct reals) mathcomp(finmap) Reals_ext realType_ext classical_sets_ext ssrR fdist fsdist convex