Check if the definition of a named function is enabled.
Function:
(defun fundef-enabledp (fn state) (declare (xargs :stobjs (state))) (declare (xargs :guard (symbolp fn))) (let ((__function__ 'fundef-enabledp)) (declare (ignorable __function__)) (not (fundef-disabledp fn state))))
Theorem:
(defthm booleanp-of-fundef-enabledp (b* ((yes/no (fundef-enabledp fn state))) (booleanp yes/no)) :rule-classes :rewrite)