Check if all the functions in a lambda expression are guard-verified.
(lambda-guard-verified-fnsp lambd wrld) → yes/no
The name of this function is consistent with the name of guard-verified-fnsp.
Note that if any function
inside the
Function:
(defun lambda-guard-verified-fnsp (lambd wrld) (declare (xargs :guard (and (pseudo-lambdap lambd) (plist-worldp wrld)))) (let ((__function__ 'lambda-guard-verified-fnsp)) (declare (ignorable __function__)) (guard-verified-fnsp (lambda-body lambd) wrld)))
Theorem:
(defthm booleanp-of-lambda-guard-verified-fnsp (b* ((yes/no (lambda-guard-verified-fnsp lambd wrld))) (booleanp yes/no)) :rule-classes :rewrite)