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