Check if an object declaration does not contain any function calls.
(obj-declon-nocallsp declon) → yes/no
Function:
(defun obj-declon-nocallsp (declon) (declare (xargs :guard (obj-declonp declon))) (let ((__function__ 'obj-declon-nocallsp)) (declare (ignorable __function__)) (initer-option-nocallsp (obj-declon->init? declon))))
Theorem:
(defthm booleanp-of-obj-declon-nocallsp (b* ((yes/no (obj-declon-nocallsp declon))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm obj-declon-nocallsp-of-obj-declon-fix-declon (equal (obj-declon-nocallsp (obj-declon-fix declon)) (obj-declon-nocallsp declon)))
Theorem:
(defthm obj-declon-nocallsp-obj-declon-equiv-congruence-on-declon (implies (obj-declon-equiv declon declon-equiv) (equal (obj-declon-nocallsp declon) (obj-declon-nocallsp declon-equiv))) :rule-classes :congruence)