fact: Definition set_val (i : 'I_n) (v : types i) (vals : univ_types) : univ_types := [ffun j : 'I_n => match Nat.eq_dec i j return types j with | left ij => eq_rect i (fun i => (types i : Type)) v j (ord_inj ij) | right _ => vals j end].
imports: mathcomp(all_ssreflect ssralg ssrnum matrix) mathcomp(Rstruct) Reals ssrR Reals_ext logb ssr_ext ssralg_ext bigop_ext fdist proba