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