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