proposition: Lemma fsdist_ext (d d' : {dist A}) : (forall x, d x = d' x) -> d = d'.
proof: Proof. by move=> ?; exact/val_inj/fsfunP. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrnum) mathcomp(finmap) Reals mathcomp(mathcomp_extra) mathcomp(classical_sets boolp cardinality Rstruct reals) mathcomp(ereal topology esum measure probability) ssrR realType_ext Reals_ext ssr_ext ssralg_ext bigop_ext fdist convex