Recognize basic whitespace.
Function:
(defun whitespace-char-p (x) (declare (xargs :guard t)) (and (characterp x) (or (eql x #\Space) (eql x #\Newline) (eql x #\Tab))))
Theorem:
(defthm booleanp-of-whitespace-char-p (booleanp (whitespace-char-p x)) :rule-classes :type-prescription)
Theorem:
(defthm characterp-when-whitespace-char-p (implies (whitespace-char-p x) (characterp x)) :rule-classes :compound-recognizer)