proposition: Lemma scalel_continuous (x : V) : continuous (fun k : K => k *: x).
proof: Proof. by move=> k; apply: (cvg_comp2 cvg_id (cvg_cst _) (scale_continuous (_, _))). Qed.
imports: HB(structures) mathcomp(all_ssreflect ssralg ssrint ssrnum finmap matrix) mathcomp(rat interval zmodp vector fieldext falgebra) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(cardinality set_interval Rstruct) ereal reals signed topology prodnormedzmodule