(char-in-charset-p char set) determines if the character
(char-in-charset-p char set) → *
Function:
(defun char-in-charset-p$inline (char set) (declare (type character char)) (declare (xargs :guard (charset-p set))) (let ((acl2::__function__ 'char-in-charset-p)) (declare (ignorable acl2::__function__)) (mbe :logic (and (characterp char) (logbitp (char-code char) set)) :exec (logbitp (the (unsigned-byte 8) (char-code char)) set))))
Theorem:
(defthm char-in-charset-p-when-not-character (implies (not (characterp char)) (not (char-in-charset-p char set))))