proposition: Lemma Scaled_point x H : mkRpos H *: @point x H = x.
proof: Proof. by case: x H => [p x|] H; [congr (_ *: _); apply val_inj | case: (ltRR 0)]. 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