(vl-port-condcheck! x) → warnings
Function:
(defun vl-port-condcheck! (x) (declare (xargs :guard (vl-port-p x))) (let ((__function__ 'vl-port-condcheck!)) (declare (ignorable __function__)) (let ((x (vl-port-fix x))) (common-lisp::case (tag x) ((:vl-regularport) (b* ((warnings (vl-regularport-condcheck! x))) warnings)) (otherwise (b* ((warnings (vl-interfaceport-condcheck! x))) warnings))))))
Theorem:
(defthm vl-warningtree-p-of-vl-port-condcheck! (b* ((warnings (vl-port-condcheck! x))) (vl-warningtree-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm vl-port-condcheck!-of-vl-port-fix-x (equal (vl-port-condcheck! (vl-port-fix x)) (vl-port-condcheck! x)))
Theorem:
(defthm vl-port-condcheck!-vl-port-equiv-congruence-on-x (implies (vl-port-equiv x x-equiv) (equal (vl-port-condcheck! x) (vl-port-condcheck! x-equiv))) :rule-classes :congruence)