(vl-warn-binddelta-undefined delta warnings) → warnings
Function:
(defun vl-warn-binddelta-undefined (delta warnings) (declare (xargs :guard (and (vl-binddelta-p delta) (vl-warninglist-p warnings)))) (let ((__function__ 'vl-warn-binddelta-undefined)) (declare (ignorable __function__)) (b* ((delta (vl-binddelta-fix delta)) ((when (atom delta)) (ok)) ((cons modname intents) (car delta)) (warnings (vl-warn-bindintentlist-undefined modname intents warnings))) (vl-warn-binddelta-undefined (cdr delta) warnings))))
Theorem:
(defthm vl-warninglist-p-of-vl-warn-binddelta-undefined (b* ((warnings (vl-warn-binddelta-undefined delta warnings))) (vl-warninglist-p warnings)) :rule-classes :rewrite)
Theorem:
(defthm vl-warn-binddelta-undefined-of-vl-binddelta-fix-delta (equal (vl-warn-binddelta-undefined (vl-binddelta-fix delta) warnings) (vl-warn-binddelta-undefined delta warnings)))
Theorem:
(defthm vl-warn-binddelta-undefined-vl-binddelta-equiv-congruence-on-delta (implies (vl-binddelta-equiv delta delta-equiv) (equal (vl-warn-binddelta-undefined delta warnings) (vl-warn-binddelta-undefined delta-equiv warnings))) :rule-classes :congruence)
Theorem:
(defthm vl-warn-binddelta-undefined-of-vl-warninglist-fix-warnings (equal (vl-warn-binddelta-undefined delta (vl-warninglist-fix warnings)) (vl-warn-binddelta-undefined delta warnings)))
Theorem:
(defthm vl-warn-binddelta-undefined-vl-warninglist-equiv-congruence-on-warnings (implies (vl-warninglist-equiv warnings warnings-equiv) (equal (vl-warn-binddelta-undefined delta warnings) (vl-warn-binddelta-undefined delta warnings-equiv))) :rule-classes :congruence)