Recognize the Java boolean literals.
(boolean-literalp x) → yes/no
A Java boolean literal is a list of Java Unicode characters that consists of the (ASCII) codes of an element of *boolean-literals*.
Function:
(defun boolean-literalp (x) (declare (xargs :guard t)) (let ((__function__ 'boolean-literalp)) (declare (ignorable __function__)) (and (ascii-listp x) (member-equal (ascii=>string x) *boolean-literals*) t)))
Theorem:
(defthm booleanp-of-boolean-literalp (b* ((yes/no (boolean-literalp x))) (booleanp yes/no)) :rule-classes :rewrite)