Recognizer for naturals and
This is like an option type; when
Function:
(defun maybe-natp$inline (x) (declare (xargs :guard t)) (or (not x) (natp x)))
Theorem:
(defthm maybe-natp-compound-recognizer (equal (maybe-natp x) (or (not x) (and (integerp x) (<= 0 x)))) :rule-classes :compound-recognizer)