Check if an optional initializer does not contain any function calls.
(initer-option-nocallsp initer?) → yes/no
Function:
(defun initer-option-nocallsp (initer?) (declare (xargs :guard (initer-optionp initer?))) (let ((__function__ 'initer-option-nocallsp)) (declare (ignorable __function__)) (initer-option-case initer? :some (initer-nocallsp initer?.val) :none t)))
Theorem:
(defthm booleanp-of-initer-option-nocallsp (b* ((yes/no (initer-option-nocallsp initer?))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm initer-option-nocallsp-of-initer-option-fix-initer? (equal (initer-option-nocallsp (initer-option-fix initer?)) (initer-option-nocallsp initer?)))
Theorem:
(defthm initer-option-nocallsp-initer-option-equiv-congruence-on-initer? (implies (initer-option-equiv initer? initer?-equiv) (equal (initer-option-nocallsp initer?) (initer-option-nocallsp initer?-equiv))) :rule-classes :congruence)