Recognizer for secp256k1-priv-key.
(secp256k1-priv-key-p x) → yes/no
Function:
(defun secp256k1-priv-key-p (x) (declare (xargs :guard t)) (integer-range-p 1 (secp256k1-group-prime) x))
Theorem:
(defthm booleanp-of-secp256k1-priv-key-p (b* ((yes/no (secp256k1-priv-key-p x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm posp-and-below-order-when-secp256k1-priv-key-p (implies (secp256k1-priv-key-p privkey) (and (posp privkey) (< privkey 115792089237316195423570985008687907852837564279074904382605163141518161494337))) :rule-classes :tau-system)