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