Collect the names of design elements with fatal warnings.
(vl-design-zombies x) → names
Function:
(defun vl-design-zombies (x) (declare (xargs :guard (vl-design-p x))) (let ((__function__ 'vl-design-zombies)) (declare (ignorable __function__)) (b* (((vl-design x))) (append (vl-modulelist-zombies x.mods) (vl-udplist-zombies x.udps) (vl-interfacelist-zombies x.interfaces) (vl-packagelist-zombies x.packages) (vl-programlist-zombies x.programs) (vl-configlist-zombies x.configs) (vl-typedeflist-zombies x.typedefs)))))
Theorem:
(defthm string-listp-of-vl-design-zombies (b* ((names (vl-design-zombies x))) (string-listp names)) :rule-classes :rewrite)
Theorem:
(defthm vl-design-zombies-of-vl-design-fix-x (equal (vl-design-zombies (vl-design-fix x)) (vl-design-zombies x)))
Theorem:
(defthm vl-design-zombies-vl-design-equiv-congruence-on-x (implies (vl-design-equiv x x-equiv) (equal (vl-design-zombies x) (vl-design-zombies x-equiv))) :rule-classes :congruence)