(ast-addresses-valid? ast) → y/n
Function:
(defun ast-addresses-valid? (ast) (declare (xargs :guard t)) (let ((__function__ 'ast-addresses-valid?)) (declare (ignorable __function__)) (all-addresses-valid? (find-addresses ast))))
Theorem:
(defthm booleanp-of-ast-addresses-valid? (b* ((y/n (ast-addresses-valid? ast))) (booleanp y/n)) :rule-classes :rewrite)