(vl-port->name x) → name
Function:
(defun vl-port->name (x) (declare (xargs :guard (vl-port-p x))) (let ((__function__ 'vl-port->name)) (declare (ignorable __function__)) (b* ((x (vl-port-fix x))) (case (tag x) (:vl-regularport (vl-regularport->name x)) (:vl-interfaceport (vl-interfaceport->name x)) (otherwise (progn$ (impossible) ""))))))
Theorem:
(defthm maybe-stringp-of-vl-port->name (b* ((name (vl-port->name x))) (maybe-stringp name)) :rule-classes :type-prescription)
Theorem:
(defthm vl-port->name-of-vl-port-fix-x (equal (vl-port->name (vl-port-fix x)) (vl-port->name x)))
Theorem:
(defthm vl-port->name-vl-port-equiv-congruence-on-x (implies (vl-port-equiv x x-equiv) (equal (vl-port->name x) (vl-port->name x-equiv))) :rule-classes :congruence)