		Search-engine friendly clone of the ACL2 documentation.

Lvaluecheck

Vl-plainarglist-lvaluecheck

Signature
(vl-plainarglist-lvaluecheck x loc instname warnings) → warnings
Arguments: x — Guard (vl-plainarglist-p x).; loc — Guard (vl-location-p loc).; instname — Guard (maybe-stringp instname).; warnings — Guard (vl-warninglist-p warnings).
Returns: warnings — Type (vl-warninglist-p warnings).

Definitions and Theorems

Function: vl-plainarglist-lvaluecheck

(defun vl-plainarglist-lvaluecheck (x loc instname warnings)
  (declare (xargs :guard (and (vl-plainarglist-p x)
                              (vl-location-p loc)
                              (maybe-stringp instname)
                              (vl-warninglist-p warnings))))
  (let ((__function__ 'vl-plainarglist-lvaluecheck))
    (declare (ignorable __function__))
    (b* (((when (atom x)) (ok))
         (warnings (vl-plainarg-lvaluecheck (car x)
                                            loc instname warnings)))
      (vl-plainarglist-lvaluecheck (cdr x)
                                   loc instname warnings))))

Theorem: vl-warninglist-p-of-vl-plainarglist-lvaluecheck

(defthm vl-warninglist-p-of-vl-plainarglist-lvaluecheck
 (b*
  ((warnings (vl-plainarglist-lvaluecheck x loc instname warnings)))
  (vl-warninglist-p warnings))
 :rule-classes :rewrite)

Theorem: vl-plainarglist-lvaluecheck-of-vl-plainarglist-fix-x

(defthm vl-plainarglist-lvaluecheck-of-vl-plainarglist-fix-x
  (equal (vl-plainarglist-lvaluecheck (vl-plainarglist-fix x)
                                      loc instname warnings)
         (vl-plainarglist-lvaluecheck x loc instname warnings)))

Theorem: vl-plainarglist-lvaluecheck-vl-plainarglist-equiv-congruence-on-x

(defthm
  vl-plainarglist-lvaluecheck-vl-plainarglist-equiv-congruence-on-x
 (implies
  (vl-plainarglist-equiv x x-equiv)
  (equal
       (vl-plainarglist-lvaluecheck x loc instname warnings)
       (vl-plainarglist-lvaluecheck x-equiv loc instname warnings)))
 :rule-classes :congruence)

Theorem: vl-plainarglist-lvaluecheck-of-vl-location-fix-loc

(defthm vl-plainarglist-lvaluecheck-of-vl-location-fix-loc
  (equal (vl-plainarglist-lvaluecheck x (vl-location-fix loc)
                                      instname warnings)
         (vl-plainarglist-lvaluecheck x loc instname warnings)))

Theorem: vl-plainarglist-lvaluecheck-vl-location-equiv-congruence-on-loc

(defthm
    vl-plainarglist-lvaluecheck-vl-location-equiv-congruence-on-loc
 (implies
  (vl-location-equiv loc loc-equiv)
  (equal
       (vl-plainarglist-lvaluecheck x loc instname warnings)
       (vl-plainarglist-lvaluecheck x loc-equiv instname warnings)))
 :rule-classes :congruence)

Theorem: vl-plainarglist-lvaluecheck-of-maybe-string-fix-instname

(defthm vl-plainarglist-lvaluecheck-of-maybe-string-fix-instname
 (equal
      (vl-plainarglist-lvaluecheck x loc (maybe-string-fix instname)
                                   warnings)
      (vl-plainarglist-lvaluecheck x loc instname warnings)))

Theorem: vl-plainarglist-lvaluecheck-maybe-string-equiv-congruence-on-instname

(defthm
 vl-plainarglist-lvaluecheck-maybe-string-equiv-congruence-on-instname
 (implies
  (maybe-string-equiv instname instname-equiv)
  (equal
       (vl-plainarglist-lvaluecheck x loc instname warnings)
       (vl-plainarglist-lvaluecheck x loc instname-equiv warnings)))
 :rule-classes :congruence)

Theorem: vl-plainarglist-lvaluecheck-of-vl-warninglist-fix-warnings

(defthm vl-plainarglist-lvaluecheck-of-vl-warninglist-fix-warnings
  (equal (vl-plainarglist-lvaluecheck
              x loc
              instname (vl-warninglist-fix warnings))
         (vl-plainarglist-lvaluecheck x loc instname warnings)))

Theorem: vl-plainarglist-lvaluecheck-vl-warninglist-equiv-congruence-on-warnings

(defthm
 vl-plainarglist-lvaluecheck-vl-warninglist-equiv-congruence-on-warnings
 (implies
  (vl-warninglist-equiv warnings warnings-equiv)
  (equal
       (vl-plainarglist-lvaluecheck x loc instname warnings)
       (vl-plainarglist-lvaluecheck x loc instname warnings-equiv)))
 :rule-classes :congruence)