Recognizer for sets.
(setp x) → *
Time complexity:
Function:
(defun setp (x) (declare (xargs :type-prescription (booleanp (setp x)))) (declare (xargs :guard t)) (let ((__function__ 'setp)) (declare (ignorable __function__)) (and (binary-tree-p x) (bst-p x) (heapp x))))