(hrp-valid-char-code-p x) → y/n
Function:
(defun hrp-valid-char-code-p (x) (declare (xargs :guard t)) (let ((__function__ 'hrp-valid-char-code-p)) (declare (ignorable __function__)) (and (integerp x) (<= 33 x) (<= x 126))))
Theorem:
(defthm booleanp-of-hrp-valid-char-code-p (b* ((y/n (hrp-valid-char-code-p x))) (booleanp y/n)) :rule-classes :rewrite)