Check if a named function or theorem is guard-verified.
(guard-verified-p fn/thm wrld) → yes/no
See guard-verified-p+ for an enhanced variant of this utility.
Function:
(defun guard-verified-p (fn/thm wrld) (declare (xargs :guard (and (symbolp fn/thm) (plist-worldp wrld)))) (let ((__function__ 'guard-verified-p)) (declare (ignorable __function__)) (eq (symbol-class fn/thm wrld) :common-lisp-compliant)))
Theorem:
(defthm booleanp-of-guard-verified-p (b* ((yes/no (guard-verified-p fn/thm wrld))) (booleanp yes/no)) :rule-classes :rewrite)