(vl-port->internalnames x) → names
Function:
(defun vl-port->internalnames (x) (declare (xargs :guard (vl-port-p x))) (declare (xargs :guard (vl-port-wellformed-p x))) (let ((__function__ 'vl-port->internalnames)) (declare (ignorable __function__)) (b* ((x (vl-port-fix x)) ((when (eq (tag x) :vl-interfaceport)) nil) (expr (vl-regularport->expr x)) ((unless expr) nil)) (vl-portexpr->internalnames expr))))
Theorem:
(defthm string-listp-of-vl-port->internalnames (b* ((names (vl-port->internalnames x))) (string-listp names)) :rule-classes :rewrite)
Theorem:
(defthm vl-port->internalnames-of-vl-port-fix-x (equal (vl-port->internalnames (vl-port-fix x)) (vl-port->internalnames x)))
Theorem:
(defthm vl-port->internalnames-vl-port-equiv-congruence-on-x (implies (vl-port-equiv x x-equiv) (equal (vl-port->internalnames x) (vl-port->internalnames x-equiv))) :rule-classes :congruence)