Group point negation on Edwards-BLS12.
(edwards-bls12-neg point1) → point
Function:
(defun edwards-bls12-neg (point1) (declare (xargs :guard (edwards-bls12-pointp point1))) (let ((acl2::__function__ 'edwards-bls12-neg)) (declare (ignorable acl2::__function__)) (twisted-edwards-neg point1 (edwards-bls12-curve))))
Theorem:
(defthm edwards-bls12-pointp-of-edwards-bls12-neg (implies (edwards-bls12-pointp point1) (b* ((point (edwards-bls12-neg point1))) (edwards-bls12-pointp point))) :rule-classes :rewrite)