Recognizer for bip39-entropy.
(bip39-entropyp x) → yes/no
Function:
(defun bip39-entropyp (x) (declare (xargs :guard t)) (and (bit-listp x) (bip39-entropy-size-p (len x)) t))
Theorem:
(defthm booleanp-of-bip39-entropyp (b* ((yes/no (bip39-entropyp x))) (booleanp yes/no)) :rule-classes :rewrite)