Function:
(defun vl-lint-suppress-warnings-att-compare-default (mashed-att mashed-warning-type) (declare (xargs :guard (and (stringp mashed-att) (stringp mashed-warning-type)))) (let ((__function__ 'vl-lint-suppress-warnings-att-compare-default)) (declare (ignorable __function__)) (str::istrprefixp mashed-att mashed-warning-type)))
Theorem:
(defthm vl-lint-suppress-warnings-att-compare-default-of-str-fix-mashed-att (equal (vl-lint-suppress-warnings-att-compare-default (str-fix mashed-att) mashed-warning-type) (vl-lint-suppress-warnings-att-compare-default mashed-att mashed-warning-type)))
Theorem:
(defthm vl-lint-suppress-warnings-att-compare-default-streqv-congruence-on-mashed-att (implies (streqv mashed-att mashed-att-equiv) (equal (vl-lint-suppress-warnings-att-compare-default mashed-att mashed-warning-type) (vl-lint-suppress-warnings-att-compare-default mashed-att-equiv mashed-warning-type))) :rule-classes :congruence)
Theorem:
(defthm vl-lint-suppress-warnings-att-compare-default-of-str-fix-mashed-warning-type (equal (vl-lint-suppress-warnings-att-compare-default mashed-att (str-fix mashed-warning-type)) (vl-lint-suppress-warnings-att-compare-default mashed-att mashed-warning-type)))
Theorem:
(defthm vl-lint-suppress-warnings-att-compare-default-streqv-congruence-on-mashed-warning-type (implies (streqv mashed-warning-type mashed-warning-type-equiv) (equal (vl-lint-suppress-warnings-att-compare-default mashed-att mashed-warning-type) (vl-lint-suppress-warnings-att-compare-default mashed-att mashed-warning-type-equiv))) :rule-classes :congruence)