(modname-p x) → *
Function:
(defun modname-p (x) (declare (ignorable x)) (declare (xargs :guard t)) (let ((__function__ 'modname-p)) (declare (ignorable __function__)) (not (eq x nil))))
Theorem:
(defthm modname-p-booleanp (booleanp (modname-p x)) :rule-classes :type-prescription)
Theorem:
(defthm modname-p-compound-recognizer (implies (modname-p x) x) :rule-classes :compound-recognizer)