fact: Definition vals1to2 (vals1 : univ_types types1) : univ_types types2 := [ffun i => (sval (varsE i)).1 (vals1 i)].
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) mathcomp(Rstruct) Reals ssrR Reals_ext logb ssr_ext ssralg_ext bigop_ext fdist proba