proposition: Lemma avgR_mulDr p : right_distributive Rmult (fun x y => x <| p |> y).
proof: Proof. exact: (@avgr_scalerDr [lmodType R of R^o]). 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