Scalar field prime of a curve.
Function:
(defun curve-scalar-prime (curve) (declare (xargs :guard (curvep curve))) (declare (ignore curve)) (let ((__function__ 'curve-scalar-prime)) (declare (ignorable __function__)) (ecurve::edwards-bls12-r)))
Theorem:
(defthm primep-of-curve-scalar-prime (b* ((prime (curve-scalar-prime curve))) (primep prime)) :rule-classes :rewrite)
Theorem:
(defthm curve-scalar-prime-of-curve-fix-curve (equal (curve-scalar-prime (curve-fix curve)) (curve-scalar-prime curve)))
Theorem:
(defthm curve-scalar-prime-curve-equiv-congruence-on-curve (implies (curve-equiv curve curve-equiv) (equal (curve-scalar-prime curve) (curve-scalar-prime curve-equiv))) :rule-classes :congruence)