Recognize symbols that name logic-mode functions.
This function is enabled because it is meant as an abbreviation. Theorems triggered by this function should be generally avoided.
(defun logic-function-namep (x wrld) (declare (xargs :guard (plist-worldp wrld))) (let ((__function__ 'logic-function-namep)) (declare (ignorable __function__)) (and (function-namep x wrld) (logicp x wrld))))
(defthm booleanp-of-logic-function-namep (b* ((yes/no (logic-function-namep x wrld))) (booleanp yes/no)) :rule-classes :rewrite)