Look up a defdefparse call in the table.
(defdefparse-table-lookup call wrld) → yes/no
Returns a boolean, saying whether the call is in the table or not.
Function:
(defun defdefparse-table-lookup (call wrld) (declare (xargs :guard (and (pseudo-event-formp call) (plist-worldp wrld)))) (let ((__function__ 'defdefparse-table-lookup)) (declare (ignorable __function__)) (consp (assoc-equal call (table-alist+ 'defdefparse-table wrld)))))
Theorem:
(defthm booleanp-of-defdefparse-table-lookup (b* ((yes/no (defdefparse-table-lookup call wrld))) (booleanp yes/no)) :rule-classes :rewrite)