∀ {𝕜 : Type u_1} {E : Type u_2} [inst : RCLike 𝕜] [inst_1 : NormedAddCommGroup E] [inst_2 : InnerProductSpace 𝕜 E]
  [CompleteSpace E] (f : E →L[𝕜] E) {c : NNReal}, 0 < c → (∀ (x : E), ‖x‖ ^ 2 * ↑c ≤ ‖inner 𝕜 (f x) x‖) → IsUnit f