Check if the code of a character is in a set.
(char-sensitive-in-termset-p char termset) → yes/no
Function:
(defun char-sensitive-in-termset-p (char termset) (declare (xargs :guard (and (characterp char) (nat-setp termset)))) (in (char-code char) termset))
Theorem:
(defthm booleanp-of-char-sensitive-in-termset-p (b* ((yes/no (char-sensitive-in-termset-p char termset))) (booleanp yes/no)) :rule-classes :rewrite)