		Search-engine friendly clone of the ACL2 documentation.

Condcheck

Vl-delayoreventcontrol-condcheck

Signature
(vl-delayoreventcontrol-condcheck x tests-above) → warnings
Arguments: x — Guard (vl-delayoreventcontrol-p x).; tests-above — Guard (vl-exprlist-p tests-above).
Returns: warnings — Type (vl-warningtree-p warnings).

Definitions and Theorems

Function: vl-delayoreventcontrol-condcheck

(defun vl-delayoreventcontrol-condcheck (x tests-above)
 (declare (xargs :guard (and (vl-delayoreventcontrol-p x)
                             (vl-exprlist-p tests-above))))
 (let ((__function__ 'vl-delayoreventcontrol-condcheck))
  (declare (ignorable __function__))
  (let ((x (vl-delayoreventcontrol-fix x)))
   (common-lisp::case (tag x)
    ((:vl-delaycontrol)
     (b* ((warnings (vl-delaycontrol-condcheck x tests-above)))
       warnings))
    ((:vl-eventcontrol)
     (b* ((warnings (vl-eventcontrol-condcheck x tests-above)))
       warnings))
    (otherwise
      (b*
        ((warnings (vl-repeateventcontrol-condcheck x tests-above)))
        warnings))))))

Theorem: vl-warningtree-p-of-vl-delayoreventcontrol-condcheck

(defthm vl-warningtree-p-of-vl-delayoreventcontrol-condcheck
  (b* ((warnings (vl-delayoreventcontrol-condcheck x tests-above)))
    (vl-warningtree-p warnings))
  :rule-classes :rewrite)

Theorem: vl-delayoreventcontrol-condcheck-of-vl-delayoreventcontrol-fix-x

(defthm
   vl-delayoreventcontrol-condcheck-of-vl-delayoreventcontrol-fix-x
 (equal
    (vl-delayoreventcontrol-condcheck (vl-delayoreventcontrol-fix x)
                                      tests-above)
    (vl-delayoreventcontrol-condcheck x tests-above)))

Theorem: vl-delayoreventcontrol-condcheck-vl-delayoreventcontrol-equiv-congruence-on-x

(defthm
 vl-delayoreventcontrol-condcheck-vl-delayoreventcontrol-equiv-congruence-on-x
 (implies
     (vl-delayoreventcontrol-equiv x x-equiv)
     (equal (vl-delayoreventcontrol-condcheck x tests-above)
            (vl-delayoreventcontrol-condcheck x-equiv tests-above)))
 :rule-classes :congruence)

Theorem: vl-delayoreventcontrol-condcheck-of-vl-exprlist-fix-tests-above

(defthm
    vl-delayoreventcontrol-condcheck-of-vl-exprlist-fix-tests-above
 (equal
  (vl-delayoreventcontrol-condcheck x (vl-exprlist-fix tests-above))
  (vl-delayoreventcontrol-condcheck x tests-above)))

Theorem: vl-delayoreventcontrol-condcheck-vl-exprlist-equiv-congruence-on-tests-above

(defthm
 vl-delayoreventcontrol-condcheck-vl-exprlist-equiv-congruence-on-tests-above
 (implies
     (vl-exprlist-equiv tests-above tests-above-equiv)
     (equal (vl-delayoreventcontrol-condcheck x tests-above)
            (vl-delayoreventcontrol-condcheck x tests-above-equiv)))
 :rule-classes :congruence)