∀ {R : Type r} [inst : CommRing R] {W' : WeierstrassCurve.Jacobian R} (P Q : Fin 3 → R),
  W'.negAddY P Q * (P 2 * Q 2) ^ 3 =
    (P 1 * Q 2 ^ 3 - Q 1 * P 2 ^ 3) *
        (W'.addX P Q * (P 2 * Q 2) ^ 2 - P 0 * Q 2 ^ 2 * WeierstrassCurve.Jacobian.addZ P Q ^ 2) +
      P 1 * Q 2 ^ 3 * WeierstrassCurve.Jacobian.addZ P Q ^ 3