(vl-shadowcheck-port x st warnings) → (mv st warnings)
Function:
(defun vl-shadowcheck-port (x st warnings) (declare (xargs :guard (and (vl-port-p x) (vl-shadowcheck-state-p st) (vl-warninglist-p warnings)))) (let ((__function__ 'vl-shadowcheck-port)) (declare (ignorable __function__)) (b* ((x (vl-port-fix x)) (varnames (if (eq (tag x) :vl-interfaceport) (list (vl-interfaceport->name x)) (b* ((expr (vl-regularport->expr x))) (and expr (vl-expr-varnames expr))))) ((mv st warnings) (vl-shadowcheck-declare-names varnames x st warnings))) (mv st warnings))))
Theorem:
(defthm vl-shadowcheck-state-p-of-vl-shadowcheck-port.st (b* (((mv ?st ?warnings) (vl-shadowcheck-port x st warnings))) (vl-shadowcheck-state-p st)) :rule-classes :rewrite)
Theorem:
(defthm vl-warninglist-p-of-vl-shadowcheck-port.warnings (b* (((mv ?st ?warnings) (vl-shadowcheck-port x st warnings))) (vl-warninglist-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm vl-shadowcheck-port-of-vl-port-fix-x (equal (vl-shadowcheck-port (vl-port-fix x) st warnings) (vl-shadowcheck-port x st warnings)))
Theorem:
(defthm vl-shadowcheck-port-vl-port-equiv-congruence-on-x (implies (vl-port-equiv x x-equiv) (equal (vl-shadowcheck-port x st warnings) (vl-shadowcheck-port x-equiv st warnings))) :rule-classes :congruence)
Theorem:
(defthm vl-shadowcheck-port-of-vl-shadowcheck-state-fix-st (equal (vl-shadowcheck-port x (vl-shadowcheck-state-fix st) warnings) (vl-shadowcheck-port x st warnings)))
Theorem:
(defthm vl-shadowcheck-port-vl-shadowcheck-state-equiv-congruence-on-st (implies (vl-shadowcheck-state-equiv st st-equiv) (equal (vl-shadowcheck-port x st warnings) (vl-shadowcheck-port x st-equiv warnings))) :rule-classes :congruence)
Theorem:
(defthm vl-shadowcheck-port-of-vl-warninglist-fix-warnings (equal (vl-shadowcheck-port x st (vl-warninglist-fix warnings)) (vl-shadowcheck-port x st warnings)))
Theorem:
(defthm vl-shadowcheck-port-vl-warninglist-equiv-congruence-on-warnings (implies (vl-warninglist-equiv warnings warnings-equiv) (equal (vl-shadowcheck-port x st warnings) (vl-shadowcheck-port x st warnings-equiv))) :rule-classes :congruence)