The constant
(jubjub-r) → r
Function:
(defun jubjub-r nil (declare (xargs :guard t)) (let ((__function__ 'jubjub-r)) (declare (ignorable __function__)) (primes::jubjub-subgroup-prime)))
Theorem:
(defthm natp-of-jubjub-r (b* ((r (jubjub-r))) (natp r)) :rule-classes :rewrite)
Theorem:
(defthm primep-of-jubjub-r (primep (jubjub-r)))