The Jubjub curve in Montgomery form [ZPS:A.2].
(jubjub-montgomery-curve) → curve
Function:
(defun jubjub-montgomery-curve nil (declare (xargs :guard t)) (let ((__function__ 'jubjub-montgomery-curve)) (declare (ignorable __function__)) (ecurve::make-montgomery-curve :a (jubjub-montgomery-a) :b (jubjub-montgomery-b) :p (jubjub-q))))
Theorem:
(defthm montgomery-curvep-of-jubjub-montgomery-curve (b* ((curve (jubjub-montgomery-curve))) (ecurve::montgomery-curvep curve)) :rule-classes :rewrite)