fact: Definition fibration_of_partition (x : T) : option I := match asboolP ((\bigcup_(i in D) F i) x) with | ReflectT p => let (x0, _, _) := cid2 p in Some x0 | ReflectF _ => None end.
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 mathcomp(measure probability)