Negate an elliptic curve point.
(secp256k1-negate point) finds the inverse ofFunction:
(defun secp256k1-negate (point) (declare (xargs :guard (and (pointp point) (point-in-pxp-p point (secp256k1-field-prime))))) (curve-negate point (secp256k1-field-prime)))
Theorem:
(defthm pointp-of-secp256k1-negate (implies (pointp point) (pointp (secp256k1-negate point))))
Theorem:
(defthm point-in-pxp-p-of-secp256k1-negate (implies (and (pointp point) (point-in-pxp-p point (secp256k1-field-prime))) (point-in-pxp-p (secp256k1-negate point) (secp256k1-field-prime))))
Theorem:
(defthm point-on-weierstrass-elliptic-curve-p-of-secp256k1-negate (implies (and (pointp point) (point-in-pxp-p point (secp256k1-field-prime)) (point-on-weierstrass-elliptic-curve-p point (secp256k1-field-prime) (secp256k1-a) (secp256k1-b))) (point-on-weierstrass-elliptic-curve-p (secp256k1-negate point) (secp256k1-field-prime) (secp256k1-a) (secp256k1-b))))