proposition: Lemma conv1_pt_set x (Y : neset A) : x <| 1%:pr |>: Y = [set x].
proof: Proof. rewrite eqEsubset;split => u; rewrite conv_pt_setE. - by case => y _; rewrite conv1. - by move=> ->; eexists => //; rewrite conv1. 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