Kind of a second-order function.
(sofun-kind sofun wrld) → kind
Function:
(defun sofun-kind (sofun wrld) (declare (xargs :guard (and (plist-worldp wrld) (sofunp sofun wrld)))) (let ((__function__ 'sofun-kind)) (declare (ignorable __function__)) (cond ((defchoosep sofun wrld) 'choice) ((defun-sk-p sofun wrld) 'quant) (t 'plain))))