		Search-engine friendly clone of the ACL2 documentation.

Lvaluecheck

Vl-modelement-lvaluecheck

Signature
(vl-modelement-lvaluecheck x warnings) → warnings
Arguments: x — Guard (vl-modelement-p x).; warnings — Warnings accumulator.
Guard (vl-warninglist-p warnings).
Returns: warnings — Type (vl-warninglist-p warnings).

Definitions and Theorems

Function: vl-modelement-lvaluecheck

(defun vl-modelement-lvaluecheck (x warnings)
  (declare (xargs :guard (and (vl-modelement-p x)
                              (vl-warninglist-p warnings))))
  (let ((__function__ 'vl-modelement-lvaluecheck))
    (declare (ignorable __function__))
    (let ((x (vl-modelement-fix x)))
      (common-lisp::case (tag x)
        ((:vl-portdecl)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-assign)
         (b* ((warnings (vl-assign-lvaluecheck x warnings)))
           warnings))
        ((:vl-alias)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-vardecl)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-paramdecl)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-fundecl)
         (b* ((warnings (vl-fundecl-lvaluecheck x warnings)))
           warnings))
        ((:vl-taskdecl)
         (b* ((warnings (vl-taskdecl-lvaluecheck x warnings)))
           warnings))
        ((:vl-modinst)
         (b* ((warnings (vl-modinst-lvaluecheck x warnings)))
           warnings))
        ((:vl-gateinst)
         (b* ((warnings (vl-gateinst-lvaluecheck x warnings)))
           warnings))
        ((:vl-always)
         (b* ((warnings (vl-always-lvaluecheck x warnings)))
           warnings))
        ((:vl-initial)
         (b* ((warnings (vl-initial-lvaluecheck x warnings)))
           warnings))
        ((:vl-final)
         (b* ((warnings (vl-final-lvaluecheck x warnings)))
           warnings))
        ((:vl-typedef)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-import)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-fwdtypedef)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-modport)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-genvar)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-assertion)
         (b* ((warnings (vl-assertion-lvaluecheck x warnings)))
           warnings))
        ((:vl-cassertion)
         (b* ((warnings (vl-cassertion-lvaluecheck x warnings)))
           warnings))
        ((:vl-property)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-sequence)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-clkdecl)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-gclkdecl)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-defaultdisable)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-dpiimport)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-dpiexport)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-bind)
         (b* ((warnings (vl-bind-lvaluecheck x warnings)))
           warnings))
        ((:vl-class)
         (b* ((warnings (vl-class-lvaluecheck x warnings)))
           warnings))
        ((:vl-covergroup)
         (b* ((warnings (vl-warninglist-fix warnings)))
           warnings))
        ((:vl-elabtask)
         (b* ((warnings (vl-elabtask-lvaluecheck x warnings)))
           warnings))
        (otherwise (b* ((warnings (vl-warninglist-fix warnings)))
                     warnings))))))

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

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

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

(defthm vl-modelement-lvaluecheck-of-vl-modelement-fix-x
  (equal (vl-modelement-lvaluecheck (vl-modelement-fix x)
                                    warnings)
         (vl-modelement-lvaluecheck x warnings)))

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

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

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

(defthm vl-modelement-lvaluecheck-of-vl-warninglist-fix-warnings
  (equal (vl-modelement-lvaluecheck x (vl-warninglist-fix warnings))
         (vl-modelement-lvaluecheck x warnings)))

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

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