∀ {𝕜 : Type u_2} {E : Type u_1} [inst : TopologicalSpace E] [inst_1 : AddCommGroup E] [inst_2 : Module ℝ E]
  [inst_3 : RCLike 𝕜] [inst_4 : Module 𝕜 E] [ContinuousConstSMul 𝕜 E] (fr : StrongDual ℝ E),
  Continuous fun x => ↑(fr x) - RCLike.I * ↑(fr (RCLike.I • x))