Recognize hints specifiers.
(hints-specifier-p x legal-kwds) → yes/no
Function:
(defun hints-specifier-p (x legal-kwds) (declare (xargs :guard (keyword-listp legal-kwds))) (let ((__function__ 'hints-specifier-p)) (declare (ignorable __function__)) (or (canonical-hints-specifier-p x legal-kwds) (and (true-listp x) (not (acl2::first-keyword x))))))
Theorem:
(defthm booleanp-of-hints-specifier-p (b* ((yes/no (hints-specifier-p x legal-kwds))) (booleanp yes/no)) :rule-classes :rewrite)