Function:
(defun vl-lint-attname-says-ignore (attname mashed-warning-type) (declare (xargs :guard (and (stringp attname) (stringp mashed-warning-type)))) (let ((__function__ 'vl-lint-attname-says-ignore)) (declare (ignorable __function__)) (b* (((unless (vl-lint-ignore-att-p attname)) nil) (mashed-att (vl-lint-ignore-att-mash attname))) (vl-lint-suppress-warnings-att-compare mashed-att mashed-warning-type))))
Theorem:
(defthm booleanp-of-vl-lint-attname-says-ignore (b* ((ignorep (vl-lint-attname-says-ignore attname mashed-warning-type))) (booleanp ignorep)) :rule-classes :type-prescription)
Theorem:
(defthm vl-lint-attname-says-ignore-of-str-fix-attname (equal (vl-lint-attname-says-ignore (str-fix attname) mashed-warning-type) (vl-lint-attname-says-ignore attname mashed-warning-type)))
Theorem:
(defthm vl-lint-attname-says-ignore-streqv-congruence-on-attname (implies (streqv attname attname-equiv) (equal (vl-lint-attname-says-ignore attname mashed-warning-type) (vl-lint-attname-says-ignore attname-equiv mashed-warning-type))) :rule-classes :congruence)
Theorem:
(defthm vl-lint-attname-says-ignore-of-str-fix-mashed-warning-type (equal (vl-lint-attname-says-ignore attname (str-fix mashed-warning-type)) (vl-lint-attname-says-ignore attname mashed-warning-type)))
Theorem:
(defthm vl-lint-attname-says-ignore-streqv-congruence-on-mashed-warning-type (implies (streqv mashed-warning-type mashed-warning-type-equiv) (equal (vl-lint-attname-says-ignore attname mashed-warning-type) (vl-lint-attname-says-ignore attname mashed-warning-type-equiv))) :rule-classes :congruence)