Recognize quantifier second-order functions.
(quant-sofunp sofun wrld) → yes/no
Function:
(defun quant-sofunp (sofun wrld) (declare (xargs :guard (plist-worldp wrld))) (let ((__function__ 'quant-sofunp)) (declare (ignorable __function__)) (and (sofunp sofun wrld) (eq (sofun-kind sofun wrld) 'quant))))
Theorem:
(defthm booleanp-of-quant-sofunp (b* ((yes/no (quant-sofunp sofun wrld))) (booleanp yes/no)) :rule-classes :rewrite)