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