∀ {R : Type r} {S : Type s} {F : Type u} {K : Type v} [inst : CommRing R] [inst_1 : CommRing S] [inst_2 : Field F]
  [inst_3 : Field K] {W' : WeierstrassCurve.Affine R} [inst_4 : DecidableEq F] [inst_5 : DecidableEq K]
  [inst_6 : Algebra R S] [inst_7 : Algebra R F] [inst_8 : Algebra S F] [inst_9 : IsScalarTower R S F]
  [inst_10 : Algebra R K] [inst_11 : Algebra S K] [inst_12 : IsScalarTower R S K] (f : F →ₐ[S] K),
  (WeierstrassCurve.Affine.Point.map f) 0 = 0