fact: Definition fdist_split (PQ : {fdist A * B}) := (PQ`1, fun x => PQ `(| x )).
imports: mathcomp(all_ssreflect ssralg matrix) mathcomp(Rstruct) Reals ssrR realType_ext Reals_ext logb ssr_ext ssralg_ext bigop_ext fdist proba