Scalar multiplication [ZPS:4.1.8], on Jubjub.
(jubjub-mul scalar point) → point1
Function:
(defun jubjub-mul (scalar point) (declare (xargs :guard (and (integerp scalar) (jubjub-pointp point)))) (let ((__function__ 'jubjub-mul)) (declare (ignorable __function__)) (ecurve::twisted-edwards-mul scalar point (jubjub-curve))))
Theorem:
(defthm jubjub-pointp-of-jubjub-mul (implies (jubjub-pointp point) (b* ((point1 (jubjub-mul scalar point))) (jubjub-pointp point1))) :rule-classes :rewrite)