∀ {R : Type u} {M : Type v} [inst : Semiring R] [inst_1 : TopologicalSpace M] [inst_2 : AddCommMonoid M]
  [inst_3 : Module R M] [ContinuousConstSMul R M] (s : Submodule R M) (c : R), c • closure ↑s ⊆ closure ↑s