(vl-lint-ignore-att-mash x) → *
Function:
(defun vl-lint-ignore-att-mash (x) (declare (xargs :guard (stringp x))) (declare (xargs :guard (vl-lint-ignore-att-p x))) (let ((__function__ 'vl-lint-ignore-att-mash)) (declare (ignorable __function__)) (b* ((x (str::strsubst "-" "_" x)) ((when (equal (length x) (length "lint_ignore"))) "") (x (ec-call (subseq x (length "lint_ignore") nil)))) (vl-mash-warning-string x))))
Theorem:
(defthm vl-lint-ignore-att-mash-of-str-fix-x (equal (vl-lint-ignore-att-mash (str-fix x)) (vl-lint-ignore-att-mash x)))
Theorem:
(defthm vl-lint-ignore-att-mash-streqv-congruence-on-x (implies (streqv x x-equiv) (equal (vl-lint-ignore-att-mash x) (vl-lint-ignore-att-mash x-equiv))) :rule-classes :congruence)