		Search-engine friendly clone of the ACL2 documentation.

Condcheck

Vl-vardecl-condcheck

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

Definitions and Theorems

Function: vl-vardecl-condcheck

(defun vl-vardecl-condcheck (x tests-above)
 (declare (xargs :guard (and (vl-vardecl-p x)
                             (vl-exprlist-p tests-above))))
 (let ((__function__ 'vl-vardecl-condcheck))
  (declare (ignorable __function__))
  (b* (((vl-vardecl x) (vl-vardecl-fix x)))
    (b*
     ((warnings (vl-datatype-condcheck x.type tests-above))
      (warnings1 (vl-atts-condcheck x.atts tests-above))
      (warnings (vl-warningtree-cons warnings1 warnings))
      (warnings1 (vl-maybe-rhs-condcheck x.initval tests-above))
      (warnings (vl-warningtree-cons warnings1 warnings))
      (warnings1 (vl-maybe-gatedelay-condcheck x.delay tests-above))
      (warnings (vl-warningtree-cons warnings1 warnings)))
     warnings))))

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

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

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

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

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

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

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

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

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

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