(vl-module-condcheck x) carries our our condcheck on all the expressions in a module, and adds any resulting warnings to the module.
(vl-module-condcheck x) → new-x
Function:
(defun vl-module-condcheck (x) (declare (xargs :guard (vl-module-p x))) (let ((__function__ 'vl-module-condcheck)) (declare (ignorable __function__)) (b* ((ctxexprs (vl-module-ctxexprs x)) (new-warnings (vl-exprctxalist-condcheck ctxexprs))) (change-vl-module x :warnings (append new-warnings (vl-module->warnings x))))))
Theorem:
(defthm vl-module-p-of-vl-module-condcheck (implies (and (force (vl-module-p x))) (b* ((new-x (vl-module-condcheck x))) (vl-module-p new-x))) :rule-classes :rewrite)