Scalar multiplication on Edwards-BLS12.
(edwards-bls12-mul scalar point) → point1
Function:
(defun edwards-bls12-mul (scalar point) (declare (xargs :guard (and (integerp scalar) (edwards-bls12-pointp point)))) (let ((acl2::__function__ 'edwards-bls12-mul)) (declare (ignorable acl2::__function__)) (twisted-edwards-mul scalar point (edwards-bls12-curve))))
Theorem:
(defthm edwards-bls12-pointp-of-edwards-bls12-mul (implies (edwards-bls12-pointp point) (b* ((point1 (edwards-bls12-mul scalar point))) (edwards-bls12-pointp point1))) :rule-classes :rewrite)