Recognize information about a defmapping call, and
(maybe-defmapping-infop x) → yes/no
Function:
(defun maybe-defmapping-infop (x) (declare (xargs :guard t)) (let ((__function__ 'maybe-defmapping-infop)) (declare (ignorable __function__)) (or (defmapping-infop x) (eq x nil))))
Theorem:
(defthm booleanp-of-maybe-defmapping-infop (b* ((yes/no (maybe-defmapping-infop x))) (booleanp yes/no)) :rule-classes :rewrite)