proposition: Lemma scalept_scaled_set Z r x : x \in scaled_set Z -> scalept r x \in scaled_set Z.
proof: Proof. rewrite /scalept/=. by case: Rlt_dec => //= Hr; [case: x | rewrite !in_setE]. 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