proposition: Lemma scalept0 p : (0 <= p)%coqR -> scalept p zero = @zero A.
proof: Proof. by move=> p0; rewrite -[in LHS](scale0pt zero) scaleptA// mulR0 scale0pt. 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