fact: Definition vals0 : univ_types types := [ffun i => rvar_choice (vars i)].
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) mathcomp(Rstruct) Reals ssrR Reals_ext logb ssr_ext ssralg_ext bigop_ext fdist proba