(vl-design-dupeinst-check x) → new-x
Function:
(defun vl-design-dupeinst-check (x) (declare (xargs :guard (vl-design-p x))) (let ((__function__ 'vl-design-dupeinst-check)) (declare (ignorable __function__)) (b* (((vl-design x) (vl-design-fix x)) (ss (vl-scopestack-init x)) (new-mods (vl-modulelist-dupeinst-check x.mods ss))) (vl-scopestacks-free) (clear-memoize-table 'vl-expr-strip) (change-vl-design x :mods new-mods))))
Theorem:
(defthm vl-design-p-of-vl-design-dupeinst-check (b* ((new-x (vl-design-dupeinst-check x))) (vl-design-p new-x)) :rule-classes :rewrite)