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__)) (b* ((atts (vl-atts-fix atts))) (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)
Theorem:
(defthm vl-lint-atts-say-ignore-of-vl-atts-fix-atts (equal (vl-lint-atts-say-ignore (vl-atts-fix atts) mashed-warning-type) (vl-lint-atts-say-ignore atts mashed-warning-type)))
Theorem:
(defthm vl-lint-atts-say-ignore-vl-atts-equiv-congruence-on-atts (implies (vl-atts-equiv atts atts-equiv) (equal (vl-lint-atts-say-ignore atts mashed-warning-type) (vl-lint-atts-say-ignore atts-equiv mashed-warning-type))) :rule-classes :congruence)
Theorem:
(defthm vl-lint-atts-say-ignore-of-str-fix-mashed-warning-type (equal (vl-lint-atts-say-ignore atts (str-fix mashed-warning-type)) (vl-lint-atts-say-ignore atts mashed-warning-type)))
Theorem:
(defthm vl-lint-atts-say-ignore-streqv-congruence-on-mashed-warning-type (implies (streqv mashed-warning-type mashed-warning-type-equiv) (equal (vl-lint-atts-say-ignore atts mashed-warning-type) (vl-lint-atts-say-ignore atts mashed-warning-type-equiv))) :rule-classes :congruence)