(vl-udpentry-fix x) → entry
Function:
(defun vl-udpentry-fix$inline (x) (declare (xargs :guard t)) (let ((__function__ 'vl-udpentry-fix)) (declare (ignorable __function__)) (if (vl-udpentry-p x) x :vl-udp-0)))
Theorem:
(defthm vl-udpentry-p-of-vl-udpentry-fix (b* ((entry (vl-udpentry-fix$inline x))) (vl-udpentry-p entry)) :rule-classes :rewrite)
Theorem:
(defthm vl-udpentry-fix-when-vl-udpentry-p (implies (vl-udpentry-p x) (equal (vl-udpentry-fix x) x)))