Check if there are any warnings of certain types.
(vl-some-warning-of-type-p types x) → bool
Note: we just leave this function enabled.
Function:
(defun vl-some-warning-of-type-p (types x) (declare (xargs :guard (and (symbol-listp types) (vl-warninglist-p x)))) (let ((__function__ 'vl-some-warning-of-type-p)) (declare (ignorable __function__)) (mbe :logic (intersectp-equal types (vl-warninglist->types x)) :exec (cond ((atom x) nil) ((member (vl-warning->type (car x)) types) t) (t (vl-some-warning-of-type-p types (cdr x)))))))
Theorem:
(defthm booleanp-of-vl-some-warning-of-type-p (b* ((bool (vl-some-warning-of-type-p types x))) (booleanp bool)) :rule-classes :type-prescription)
Theorem:
(defthm vl-some-warning-of-type-p-of-vl-warninglist-fix-x (equal (vl-some-warning-of-type-p types (vl-warninglist-fix x)) (vl-some-warning-of-type-p types x)))
Theorem:
(defthm vl-some-warning-of-type-p-vl-warninglist-equiv-congruence-on-x (implies (vl-warninglist-equiv x x-equiv) (equal (vl-some-warning-of-type-p types x) (vl-some-warning-of-type-p types x-equiv))) :rule-classes :congruence)