fact: Definition join1' (X : L') : convex_set [the convType of {dist (choice_of_Type T)}] := CSet.Pack (CSet.Mixin (hull_is_convex (\bigcup_(i in X) if i \in X then (i : set _) else cset0 _))).
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