∀ {𝕜 : Type u_1} [inst : NontriviallyNormedField 𝕜] [inst_1 : StarRing 𝕜] {E : Type u_2} [inst_2 : NormedAddCommGroup E]
  [inst_3 : NormedSpace 𝕜 E] {F : Type u_3} [inst_4 : NormedAddCommGroup F] [inst_5 : StarAddMonoid F]
  [inst_6 : NormedSpace 𝕜 F] [inst_7 : StarModule 𝕜 F] [inst_8 : ContinuousStar F] {f : E → F} {f' : E →L[𝕜] F} {x : E}
  {s : Set E} [inst_9 : TrivialStar 𝕜],
  HasFDerivWithinAt f f' s x → HasFDerivWithinAt (fun x => star (f x)) ((↑(starL' 𝕜)).comp f') s x