∀ {𝕜 : Type u_1} [inst : NontriviallyNormedField 𝕜] {E : Type u_2} [inst_1 : NormedAddCommGroup E]
  [inst_2 : NormedSpace 𝕜 E] {x : E} {s : Set E} {𝔸 : Type u_5} [inst_3 : NormedRing 𝔸] [inst_4 : NormedAlgebra 𝕜 𝔸]
  {a : E → 𝔸} {a' : E →L[𝕜] 𝔸},
  HasFDerivWithinAt a a' s x → ∀ (b : 𝔸), HasFDerivWithinAt (fun y => b * a y) (b • a') s x