proposition: Lemma scalept_gt0 p (q : Rpos) (x : A) (H : 0 < p) : scalept p (q *: x) = (mkRpos H * q)%:pos *: x.
proof: Proof. rewrite /scalept /= ; case: Rlt_dec => // Hr. by congr (_ *: _); apply val_inj. 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