Function:
(defun vl-lint-atts-say-ignore (atts mashed-warning-type) (declare (xargs :guard (and (vl-atts-p atts) (stringp mashed-warning-type)))) (let ((__function__ 'vl-lint-atts-say-ignore)) (declare (ignorable __function__)) (if (atom atts) nil (or (vl-lint-attname-says-ignore (caar atts) mashed-warning-type) (vl-lint-atts-say-ignore (cdr atts) mashed-warning-type)))))
Theorem:
(defthm booleanp-of-vl-lint-atts-say-ignore (b* ((ignorep (vl-lint-atts-say-ignore atts mashed-warning-type))) (booleanp ignorep)) :rule-classes :type-prescription)