∀ {R : Type u_1} {M : Type u_2} {M' : Type u_3} {P : Type u_4} [inst : AddCommGroup M] [inst_1 : AddCommGroup M']
  [inst_2 : AddCommGroup P] [inst_3 : CommRing R] [inst_4 : Module R M] [inst_5 : Module R M'] [inst_6 : Module R P]
  {Q : QuadraticMap R M P} {Q' : QuadraticMap R M' P} (e : Q.IsometryEquiv Q'),
  Submodule.map (↑e.toLinearEquiv) Q.radical = Q'.radical