(vl-design-lint-ignoreall x user-ignore-list) → new-x
Function:
(defun vl-design-lint-ignoreall (x user-ignore-list) (declare (xargs :guard (and (vl-design-p x) (string-listp user-ignore-list)))) (let ((__function__ 'vl-design-lint-ignoreall)) (declare (ignorable __function__)) (b* (((vl-design x) x) (mashed-ignore-list (vl-mash-warning-strings user-ignore-list))) (change-vl-design x :mods (vl-modulelist-lint-ignoreall x.mods mashed-ignore-list) :udps (vl-udplist-lint-ignoreall x.udps mashed-ignore-list) :interfaces (vl-interfacelist-lint-ignoreall x.interfaces mashed-ignore-list) :programs (vl-programlist-lint-ignoreall x.programs mashed-ignore-list) :classes (vl-classlist-lint-ignoreall x.classes mashed-ignore-list) :packages (vl-packagelist-lint-ignoreall x.packages mashed-ignore-list) :configs (vl-configlist-lint-ignoreall x.configs mashed-ignore-list)))))
Theorem:
(defthm vl-design-p-of-vl-design-lint-ignoreall (b* ((new-x (vl-design-lint-ignoreall x user-ignore-list))) (vl-design-p new-x)) :rule-classes :rewrite)
Theorem:
(defthm vl-design-lint-ignoreall-of-vl-design-fix-x (equal (vl-design-lint-ignoreall (vl-design-fix x) user-ignore-list) (vl-design-lint-ignoreall x user-ignore-list)))
Theorem:
(defthm vl-design-lint-ignoreall-vl-design-equiv-congruence-on-x (implies (vl-design-equiv x x-equiv) (equal (vl-design-lint-ignoreall x user-ignore-list) (vl-design-lint-ignoreall x-equiv user-ignore-list))) :rule-classes :congruence)
Theorem:
(defthm vl-design-lint-ignoreall-of-string-list-fix-user-ignore-list (equal (vl-design-lint-ignoreall x (string-list-fix user-ignore-list)) (vl-design-lint-ignoreall x user-ignore-list)))
Theorem:
(defthm vl-design-lint-ignoreall-string-list-equiv-congruence-on-user-ignore-list (implies (str::string-list-equiv user-ignore-list user-ignore-list-equiv) (equal (vl-design-lint-ignoreall x user-ignore-list) (vl-design-lint-ignoreall x user-ignore-list-equiv))) :rule-classes :congruence)