Recognizer for function-lst-syntax
(function-lst-syntax-p term) → syntax-good?
Function:
(defun function-lst-syntax-p (term) (declare (xargs :guard t)) (let ((acl2::__function__ 'function-lst-syntax-p)) (declare (ignorable acl2::__function__)) (b* (((if (atom term)) (equal term nil)) ((cons first rest) term)) (and (function-syntax-p first) (function-lst-syntax-p rest)))))
Theorem:
(defthm booleanp-of-function-lst-syntax-p (b* ((syntax-good? (function-lst-syntax-p term))) (booleanp syntax-good?)) :rule-classes :rewrite)