The prime number that is the order of the large subgroup of Edwards-BLS12.
(edwards-bls12-r) → r
Function:
(defun edwards-bls12-r nil (declare (xargs :guard t)) (let ((acl2::__function__ 'edwards-bls12-r)) (declare (ignorable acl2::__function__)) (primes::edwards-bls12-subgroup-prime)))
Theorem:
(defthm natp-of-edwards-bls12-r (b* ((r (edwards-bls12-r))) (natp r)) :rule-classes :rewrite)
Theorem:
(defthm primep-of-edwards-bls12-r (dm::primep (edwards-bls12-r)))