Recognize characters that are not decimal digits.
Function:
(defun nondigit-char-p (x) (declare (xargs :guard t)) (and (characterp x) (b* ((code (char-code x))) (not (and (<= (char-code #\0) code) (<= code (char-code #\9)))))))
Theorem:
(defthm booleanp-of-nondigit-char-p (booleanp (nondigit-char-p x)) :rule-classes :type-prescription)
Theorem:
(defthm characterp-when-nondigit-char-p (implies (nondigit-char-p x) (characterp x)) :rule-classes :compound-recognizer)