Remove user-specified problem modules from the design.
(vl-design-problem-mods design problems) → new-design
Function:
(defun vl-design-problem-mods (design problems) (declare (xargs :guard (and (vl-design-p design) (string-listp problems)))) (let ((__function__ 'vl-design-problem-mods)) (declare (ignorable __function__)) (b* ((design (vl-design-fix design)) ((vl-design design) design) (new-mods (vl-warn-problem-modulelist design.mods problems))) (change-vl-design design :mods new-mods))))
Theorem:
(defthm vl-design-p-of-vl-design-problem-mods (b* ((new-design (vl-design-problem-mods design problems))) (vl-design-p new-design)) :rule-classes :rewrite)