		Search-engine friendly clone of the ACL2 documentation.

Vl-reportcard

Vl-keep-from-reportcard

Filter a reportcard to only keep the warnings of certain types.

Signature
(vl-keep-from-reportcard types x) → sub-reportcard
Arguments: types — Guard (symbol-listp types).; x — Guard (vl-reportcard-p x).
Returns: sub-reportcard — Fast alist.
Type (vl-reportcard-p sub-reportcard).

Definitions and Theorems

Function: vl-keep-from-reportcard

(defun vl-keep-from-reportcard (types x)
  (declare (xargs :guard (and (symbol-listp types)
                              (vl-reportcard-p x))))
  (let ((__function__ 'vl-keep-from-reportcard))
    (declare (ignorable __function__))
    (b* ((x (vl-reportcard-fix x))
         ((when (atom x)) nil)
         ((cons name1 warnings1) (car x))
         (keep1 (vl-keep-warnings types warnings1))
         (rest (vl-keep-from-reportcard types (cdr x)))
         ((when keep1)
          (hons-acons name1 keep1 rest)))
      rest)))

Theorem: vl-reportcard-p-of-vl-keep-from-reportcard

(defthm vl-reportcard-p-of-vl-keep-from-reportcard
  (b* ((sub-reportcard (vl-keep-from-reportcard types x)))
    (vl-reportcard-p sub-reportcard))
  :rule-classes :rewrite)

Theorem: vl-keep-from-reportcard-of-vl-reportcard-fix-x

(defthm vl-keep-from-reportcard-of-vl-reportcard-fix-x
  (equal (vl-keep-from-reportcard types (vl-reportcard-fix x))
         (vl-keep-from-reportcard types x)))

Theorem: vl-keep-from-reportcard-vl-reportcard-equiv-congruence-on-x

(defthm vl-keep-from-reportcard-vl-reportcard-equiv-congruence-on-x
  (implies (vl-reportcard-equiv x x-equiv)
           (equal (vl-keep-from-reportcard types x)
                  (vl-keep-from-reportcard types x-equiv)))
  :rule-classes :congruence)