(vl-add-lost-interface-warning x) → new-x
Function:
(defun vl-add-lost-interface-warning (x) (declare (xargs :guard (vl-interface-p x))) (let ((__function__ 'vl-add-lost-interface-warning)) (declare (ignorable __function__)) (b* (((vl-interface x)) (warnings x.warnings) (warnings (fatal :type :vl-unreachable-interface :msg "After elaboration ~s0 became unreachable. This ~ is typically due to errors in the modules that ~ instantiate it. We will keep the ~ pre-elaboration version of this interface, but ~ beware: this may not be entirely sensible." :args (list x.name)))) (change-vl-interface x :warnings warnings))))
Theorem:
(defthm vl-interface-p-of-vl-add-lost-interface-warning (b* ((new-x (vl-add-lost-interface-warning x))) (vl-interface-p new-x)) :rule-classes :rewrite)
Theorem:
(defthm vl-add-lost-interface-warning-of-vl-interface-fix-x (equal (vl-add-lost-interface-warning (vl-interface-fix x)) (vl-add-lost-interface-warning x)))
Theorem:
(defthm vl-add-lost-interface-warning-vl-interface-equiv-congruence-on-x (implies (vl-interface-equiv x x-equiv) (equal (vl-add-lost-interface-warning x) (vl-add-lost-interface-warning x-equiv))) :rule-classes :congruence)