Recognizer for tidentifier.
(tidentifierp x) → yes/no
Function:
(defun tidentifierp (x) (declare (xargs :guard t)) (let ((__function__ 'tidentifierp)) (declare (ignorable __function__)) (and (identifierp x) (not (equal x (string=>unicode "var"))) (not (equal x (string=>unicode "yield"))))))
Theorem:
(defthm booleanp-of-tidentifierp (b* ((yes/no (tidentifierp x))) (booleanp yes/no)) :rule-classes :rewrite)