(vl-ansi-portdecl-to-interfaceport x) → port
Function:
(defun vl-ansi-portdecl-to-interfaceport (x) (declare (xargs :guard (vl-ansi-portdecl-p x))) (declare (xargs :guard (vl-ansi-portdecl->typename x))) (let ((__function__ 'vl-ansi-portdecl-to-interfaceport)) (declare (ignorable __function__)) (b* (((vl-ansi-portdecl x))) (make-vl-interfaceport :name x.name :ifname x.typename :modport x.modport :udims x.udims :loc x.loc))))
Theorem:
(defthm vl-interfaceport-p-of-vl-ansi-portdecl-to-interfaceport (b* ((port (vl-ansi-portdecl-to-interfaceport x))) (vl-interfaceport-p port)) :rule-classes :rewrite)
Theorem:
(defthm vl-ansi-portdecl-to-interfaceport-of-vl-ansi-portdecl-fix-x (equal (vl-ansi-portdecl-to-interfaceport (vl-ansi-portdecl-fix x)) (vl-ansi-portdecl-to-interfaceport x)))
Theorem:
(defthm vl-ansi-portdecl-to-interfaceport-vl-ansi-portdecl-equiv-congruence-on-x (implies (vl-ansi-portdecl-equiv x x-equiv) (equal (vl-ansi-portdecl-to-interfaceport x) (vl-ansi-portdecl-to-interfaceport x-equiv))) :rule-classes :congruence)