Recognizer for function-syntax.
(function-syntax-p term) → syntax-good?
Function:
(defun function-syntax-p (term) (declare (xargs :guard t)) (let ((acl2::__function__ 'function-syntax-p)) (declare (ignorable acl2::__function__)) (b* (((unless (true-listp term)) nil) ((unless (consp term)) t) ((cons fname function-options) term)) (and (symbolp fname) (function-option-lst-syntax-p function-options)))))
Theorem:
(defthm booleanp-of-function-syntax-p (b* ((syntax-good? (function-syntax-p term))) (booleanp syntax-good?)) :rule-classes :rewrite)