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