∀ {R : Type r} [inst : CommRing R] {W' : WeierstrassCurve.Affine R} {p : W'.Point → Prop}
  (p0 : p WeierstrassCurve.Affine.Point.zero),
  (WeierstrassCurve.Affine.nonsingularPointEquivSubtype p0).symm none = ⟨WeierstrassCurve.Affine.Point.zero, p0⟩