Check if a lambda expression is in logic mode, i.e. its body is in logic mode.
(lambda-logic-fnsp lambd wrld) → yes/no
The name of this function is consistent with
the name of
Function:
(defun lambda-logic-fnsp (lambd wrld) (declare (xargs :guard (and (pseudo-lambdap lambd) (plist-worldp wrld)))) (let ((__function__ 'lambda-logic-fnsp)) (declare (ignorable __function__)) (logic-fnsp (lambda-body lambd) wrld)))
Theorem:
(defthm booleanp-of-lambda-logic-fnsp (b* ((yes/no (lambda-logic-fnsp lambd wrld))) (booleanp yes/no)) :rule-classes :rewrite)