		Search-engine friendly clone of the ACL2 documentation.

Lint-whole-file-suppression

Vl-filename-to-suppress-p-aux

Signature
(vl-filename-to-suppress-p-aux filename suppress-filename) → suppress-p
Arguments: filename — File where some warnings occur.
Guard (stringp filename).; suppress-filename — Files the user wants to suppress.
Guard (stringp suppress-filename).
Returns: suppress-p — Type (booleanp suppress-p).

Definitions and Theorems

Function: vl-filename-to-suppress-p-aux

(defun vl-filename-to-suppress-p-aux (filename suppress-filename)
  (declare (xargs :guard (and (stringp filename)
                              (stringp suppress-filename))))
  (let ((__function__ 'vl-filename-to-suppress-p-aux))
    (declare (ignorable __function__))
    (b* ((filename (string-fix filename))
         (suppress-filename (string-fix suppress-filename))
         ((when (str::strprefixp "/" suppress-filename))
          (equal filename suppress-filename)))
      (str::strsuffixp suppress-filename filename))))

Theorem: booleanp-of-vl-filename-to-suppress-p-aux

(defthm booleanp-of-vl-filename-to-suppress-p-aux
 (b*
  ((suppress-p
        (vl-filename-to-suppress-p-aux filename suppress-filename)))
  (booleanp suppress-p))
 :rule-classes :type-prescription)

Theorem: vl-filename-to-suppress-p-aux-of-str-fix-filename

(defthm vl-filename-to-suppress-p-aux-of-str-fix-filename
 (equal (vl-filename-to-suppress-p-aux (str-fix filename)
                                       suppress-filename)
        (vl-filename-to-suppress-p-aux filename suppress-filename)))

Theorem: vl-filename-to-suppress-p-aux-streqv-congruence-on-filename

(defthm vl-filename-to-suppress-p-aux-streqv-congruence-on-filename
 (implies
   (streqv filename filename-equiv)
   (equal (vl-filename-to-suppress-p-aux filename suppress-filename)
          (vl-filename-to-suppress-p-aux
               filename-equiv suppress-filename)))
 :rule-classes :congruence)

Theorem: vl-filename-to-suppress-p-aux-of-str-fix-suppress-filename

(defthm vl-filename-to-suppress-p-aux-of-str-fix-suppress-filename
 (equal (vl-filename-to-suppress-p-aux
             filename (str-fix suppress-filename))
        (vl-filename-to-suppress-p-aux filename suppress-filename)))

Theorem: vl-filename-to-suppress-p-aux-streqv-congruence-on-suppress-filename

(defthm
 vl-filename-to-suppress-p-aux-streqv-congruence-on-suppress-filename
 (implies
   (streqv suppress-filename
           suppress-filename-equiv)
   (equal (vl-filename-to-suppress-p-aux filename suppress-filename)
          (vl-filename-to-suppress-p-aux
               filename suppress-filename-equiv)))
 :rule-classes :congruence)