∀ {R : Type r} {S : Type s} [inst : CommRing R] [inst_1 : CommRing S] {W' : WeierstrassCurve.Jacobian R} {f : R →+* S}
  (P : Fin 3 → R), Function.Injective ⇑f → (WeierstrassCurve.map W' f).toJacobian.Equation (⇑f ∘ P) = W'.Equation P