proposition: Lemma scalept_barycenter p (H : (0 <= p)%coqR) pts : scalept p (barycenter pts) = barycenter [seq scalept p i | i <- pts].
proof: Proof. by rewrite big_morph_scalept ?scalept0// /barycenter big_map. Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg fingroup perm matrix) mathcomp(mathcomp_extra boolp classical_sets Rstruct) mathcomp(ssrnum ereal) mathcomp(lra Rstruct reals) Reals ssrR Reals_ext Ranalysis_ext ssr_ext ssralg_ext logb realType_ext fdist