Recognizer for identifier.
(identifierp x) → yes/no
Function:
(defun identifierp (x) (declare (xargs :guard t)) (let ((__function__ 'identifierp)) (declare (ignorable __function__)) (and (unicode-listp x) (consp x) (identifier-start-p (car x)) (identifier-part-listp (cdr x)) (not (jkeywordp x)) (not (boolean-literalp x)) (not (null-literalp x)))))
Theorem:
(defthm booleanp-of-identifierp (b* ((yes/no (identifierp x))) (booleanp yes/no)) :rule-classes :rewrite)