		Search-engine friendly clone of the ACL2 documentation.

Vl-lint

Vl-reportcard-keep-suppressed

Signature
(vl-reportcard-keep-suppressed x) → new-reportcard
Arguments: x — Guard (vl-reportcard-p x).
Returns: new-reportcard — Type (vl-reportcard-p new-reportcard).

Definitions and Theorems

Function: vl-reportcard-keep-suppressed

(defun vl-reportcard-keep-suppressed (x)
  (declare (xargs :guard (vl-reportcard-p x)))
  (let ((__function__ 'vl-reportcard-keep-suppressed))
    (declare (ignorable __function__))
    (b* ((x (vl-reportcard-fix x))
         ((when (atom x)) nil)
         ((cons key warnings) (car x))
         (warnings (vl-warninglist-keep-suppressed warnings)))
      (if warnings (cons (cons (vl-reportcardkey-fix key)
                               warnings)
                         (vl-reportcard-keep-suppressed (cdr x)))
        (vl-reportcard-keep-suppressed (cdr x))))))

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

(defthm vl-reportcard-p-of-vl-reportcard-keep-suppressed
  (b* ((new-reportcard (vl-reportcard-keep-suppressed x)))
    (vl-reportcard-p new-reportcard))
  :rule-classes :rewrite)