(address-char-nat-p n) → y/n
Function:
(defun address-char-nat-p (n) (declare (xargs :guard t)) (let ((__function__ 'address-char-nat-p)) (declare (ignorable __function__)) (not (null (member n *address-char-nats* :test 'eql)))))
Theorem:
(defthm booleanp-of-address-char-nat-p (b* ((y/n (address-char-nat-p n))) (booleanp y/n)) :rule-classes :rewrite)