Recognize restricted Java keywords.
(restricted-jkeywordp x) → yes/no
A restricted Java keyword is a list of Java Unicode characters that consist of the (ASCII) codes of some element in *restricted-jkeywords*.
Function:
(defun restricted-jkeywordp (x) (declare (xargs :guard t)) (let ((__function__ 'restricted-jkeywordp)) (declare (ignorable __function__)) (and (ascii-listp x) (member-equal (ascii=>string x) *restricted-jkeywords*) t)))
Theorem:
(defthm booleanp-of-restricted-jkeywordp (b* ((yes/no (restricted-jkeywordp x))) (booleanp yes/no)) :rule-classes :rewrite)