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