Recoginizer for an function-option-name.
(function-option-name-p option-name) → syntax-good?
Function:
(defun function-option-name-p (option-name) (declare (xargs :guard t)) (let ((acl2::__function__ 'function-option-name-p)) (declare (ignorable acl2::__function__)) (if (member-equal option-name *function-option-names*) t nil)))
Theorem:
(defthm booleanp-of-function-option-name-p (b* ((syntax-good? (function-option-name-p option-name))) (booleanp syntax-good?)) :rule-classes :rewrite)