Recognizer for secp256k1-field.
(secp256k1-fieldp x) → yes/no
Function:
(defun secp256k1-fieldp (x) (declare (xargs :guard t)) (integer-range-p 0 (secp256k1-field-prime) x))
Theorem:
(defthm booleanp-of-secp256k1-fieldp (b* ((yes/no (secp256k1-fieldp x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm natp-and-below-prime-when-secp256k1-fieldp (implies (secp256k1-fieldp x) (and (natp x) (< x 115792089237316195423570985008687907853269984665640564039457584007908834671663))) :rule-classes :tau-system)