Multiply an elliptic curve point by a scalar.
(secp256k1* s point) applies the elliptic group operation toFunction:
(defun secp256k1* (s point) (declare (xargs :guard (and (natp s) (pointp point) (point-in-pxp-p point (secp256k1-field-prime)) (point-on-weierstrass-elliptic-curve-p point (secp256k1-field-prime) (secp256k1-a) (secp256k1-b))))) (curve-scalar-* s point (secp256k1-field-prime) (secp256k1-a) (secp256k1-b)))