(vl-portdecl-or-blockitem-list-condcheck! x) → warnings
Function:
(defun vl-portdecl-or-blockitem-list-condcheck! (x) (declare (xargs :guard (vl-portdecl-or-blockitem-list-p x))) (let ((__function__ 'vl-portdecl-or-blockitem-list-condcheck!)) (declare (ignorable __function__)) (b* (((when (atom x)) (b* ((warnings nil)) warnings)) (warnings (vl-portdecl-or-blockitem-condcheck! (car x))) (warnings1 (vl-portdecl-or-blockitem-list-condcheck! (cdr x))) (warnings (vl-warningtree-cons warnings1 warnings))) warnings)))
Theorem:
(defthm vl-warningtree-p-of-vl-portdecl-or-blockitem-list-condcheck! (b* ((warnings (vl-portdecl-or-blockitem-list-condcheck! x))) (vl-warningtree-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm vl-portdecl-or-blockitem-list-condcheck!-of-vl-portdecl-or-blockitem-list-fix-x (equal (vl-portdecl-or-blockitem-list-condcheck! (vl-portdecl-or-blockitem-list-fix x)) (vl-portdecl-or-blockitem-list-condcheck! x)))
Theorem:
(defthm vl-portdecl-or-blockitem-list-condcheck!-vl-portdecl-or-blockitem-list-equiv-congruence-on-x (implies (vl-portdecl-or-blockitem-list-equiv x x-equiv) (equal (vl-portdecl-or-blockitem-list-condcheck! x) (vl-portdecl-or-blockitem-list-condcheck! x-equiv))) :rule-classes :congruence)