Identify modules with fatal warnings.
(vl-modulelist-zombies x suppress-fatals) → names
Function:
(defun vl-modulelist-zombies (x suppress-fatals) (declare (xargs :guard (and (vl-modulelist-p x) (symbol-listp suppress-fatals)))) (let ((__function__ 'vl-modulelist-zombies)) (declare (ignorable __function__)) (cond ((atom x) nil) ((vl-some-warning-fatalp (vl-module->warnings (car x)) suppress-fatals) (cons (vl-module->name (car x)) (vl-modulelist-zombies (cdr x) suppress-fatals))) (t (vl-modulelist-zombies (cdr x) suppress-fatals)))))
Theorem:
(defthm string-listp-of-vl-modulelist-zombies (b* ((names (vl-modulelist-zombies x suppress-fatals))) (string-listp names)) :rule-classes :rewrite)
Theorem:
(defthm vl-modulelist-zombies-of-vl-modulelist-fix-x (equal (vl-modulelist-zombies (vl-modulelist-fix x) suppress-fatals) (vl-modulelist-zombies x suppress-fatals)))
Theorem:
(defthm vl-modulelist-zombies-vl-modulelist-equiv-congruence-on-x (implies (vl-modulelist-equiv x x-equiv) (equal (vl-modulelist-zombies x suppress-fatals) (vl-modulelist-zombies x-equiv suppress-fatals))) :rule-classes :congruence)
Theorem:
(defthm vl-modulelist-zombies-of-symbol-list-fix-suppress-fatals (equal (vl-modulelist-zombies x (acl2::symbol-list-fix suppress-fatals)) (vl-modulelist-zombies x suppress-fatals)))
Theorem:
(defthm vl-modulelist-zombies-symbol-list-equiv-congruence-on-suppress-fatals (implies (acl2::symbol-list-equiv suppress-fatals suppress-fatals-equiv) (equal (vl-modulelist-zombies x suppress-fatals) (vl-modulelist-zombies x suppress-fatals-equiv))) :rule-classes :congruence)