Group negation, on Jubjub.
(jubjub-neg point) → -point
This is the inverse with respect to jubjub-add.
Function:
(defun jubjub-neg (point) (declare (xargs :guard (jubjub-pointp point))) (let ((__function__ 'jubjub-neg)) (declare (ignorable __function__)) (ecurve::twisted-edwards-neg point (jubjub-curve))))
Theorem:
(defthm jubjub-pointp-of-jubjub-neg (implies (jubjub-pointp point) (b* ((-point (jubjub-neg point))) (jubjub-pointp -point))) :rule-classes :rewrite)