proposition: Lemma hull_eqEsubset X Y : (X `<=` hull Y)%classic -> (Y `<=` hull X)%classic -> hull X = hull Y.
proof: Proof. move/hull_monotone; rewrite hull_cset /= => H1. move/hull_monotone; rewrite hull_cset /= => H2. by rewrite eqEsubset. 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