Name of the
(deftreeops-match-pred prefix) → pred
Function:
(defun deftreeops-match-pred (prefix) (declare (xargs :guard (common-lisp::symbolp prefix))) (let ((__function__ 'deftreeops-match-pred)) (declare (ignorable __function__)) (add-suffix-to-fn prefix "-MATCHP")))
Theorem:
(defthm symbolp-of-deftreeops-match-pred (b* ((pred (deftreeops-match-pred prefix))) (common-lisp::symbolp pred)) :rule-classes :rewrite)