diff --git a/Mathlib.lean b/Mathlib.lean
index 79739cf4bdc24..ad6280dc6e011 100644
--- a/Mathlib.lean
+++ b/Mathlib.lean
@@ -1666,6 +1666,7 @@ import Mathlib.Topology.Instances.NNReal
 import Mathlib.Topology.Instances.Nat
 import Mathlib.Topology.Instances.Rat
 import Mathlib.Topology.Instances.Real
+import Mathlib.Topology.Instances.RealVectorSpace
 import Mathlib.Topology.Instances.Sign
 import Mathlib.Topology.Instances.TrivSqZeroExt
 import Mathlib.Topology.IsLocallyHomeomorph
diff --git a/Mathlib/Topology/Instances/RealVectorSpace.lean b/Mathlib/Topology/Instances/RealVectorSpace.lean
new file mode 100644
index 0000000000000..461d7b1141ebe
--- /dev/null
+++ b/Mathlib/Topology/Instances/RealVectorSpace.lean
@@ -0,0 +1,64 @@
+/-
+Copyright (c) 2020 Yury Kudryashov. All rights reserved.
+Released under Apache 2.0 license as described in the file LICENSE.
+Authors: Yury Kudryashov
+
+! This file was ported from Lean 3 source module topology.instances.real_vector_space
+! leanprover-community/mathlib commit 70fd9563a21e7b963887c9360bd29b2393e6225a
+! Please do not edit these lines, except to modify the commit id
+! if you have ported upstream changes.
+-/
+import Mathlib.Topology.Algebra.Module.Basic
+import Mathlib.Topology.Instances.Rat
+
+/-!
+# Continuous additive maps are `ℝ`-linear
+
+In this file we prove that a continuous map `f : E →+ F` between two topological vector spaces
+over `ℝ` is `ℝ`-linear
+-/
+
+
+variable {E : Type _} [AddCommGroup E] [Module ℝ E] [TopologicalSpace E] [ContinuousSMul ℝ E]
+  {F : Type _} [AddCommGroup F] [Module ℝ F] [TopologicalSpace F] [ContinuousSMul ℝ F] [T2Space F]
+
+/-- A continuous additive map between two vector spaces over `ℝ` is `ℝ`-linear. -/
+theorem map_real_smul {G} [AddMonoidHomClass G E F] (f : G) (hf : Continuous f) (c : ℝ) (x : E) :
+    f (c • x) = c • f x :=
+  suffices (fun c : ℝ => f (c • x)) = fun c : ℝ => c • f x from congr_fun this c
+  Rat.denseEmbedding_coe_real.dense.equalizer (hf.comp <| continuous_id.smul continuous_const)
+    (continuous_id.smul continuous_const) (funext fun r => map_rat_cast_smul f ℝ ℝ r x)
+#align map_real_smul map_real_smul
+
+namespace AddMonoidHom
+
+/-- Reinterpret a continuous additive homomorphism between two real vector spaces
+as a continuous real-linear map. -/
+def toRealLinearMap (f : E →+ F) (hf : Continuous f) : E →L[ℝ] F :=
+  ⟨{  toFun := f
+      map_add' := f.map_add
+      map_smul' := map_real_smul f hf }, hf⟩
+#align add_monoid_hom.to_real_linear_map AddMonoidHom.toRealLinearMap
+
+@[simp]
+theorem coe_toRealLinearMap (f : E →+ F) (hf : Continuous f) : ⇑(f.toRealLinearMap hf) = f :=
+  rfl
+#align add_monoid_hom.coe_to_real_linear_map AddMonoidHom.coe_toRealLinearMap
+
+end AddMonoidHom
+
+/-- Reinterpret a continuous additive equivalence between two real vector spaces
+as a continuous real-linear map. -/
+def AddEquiv.toRealLinearEquiv (e : E ≃+ F) (h₁ : Continuous e) (h₂ : Continuous e.symm) :
+    E ≃L[ℝ] F :=
+  { e, e.toAddMonoidHom.toRealLinearMap h₁ with }
+#align add_equiv.to_real_linear_equiv AddEquiv.toRealLinearEquiv
+
+set_option synthInstance.etaExperiment true in -- Porting note: gets around lean4#2074
+/-- A topological group carries at most one structure of a topological `ℝ`-module, so for any
+topological `ℝ`-algebra `A` (e.g. `A = ℂ`) and any topological group that is both a topological
+`ℝ`-module and a topological `A`-module, these structures agree. -/
+instance (priority := 900) Real.isScalarTower [T2Space E] {A : Type _} [TopologicalSpace A] [Ring A]
+    [Algebra ℝ A] [Module A E] [ContinuousSMul ℝ A] [ContinuousSMul A E] : IsScalarTower ℝ A E :=
+  ⟨fun r x y => map_real_smul ((smulAddHom A E).flip y) (continuous_id.smul continuous_const) r x⟩
+#align real.is_scalar_tower Real.isScalarTower