(vl-ansi-portdecl-regularport-type x) → type
Function:
(defun vl-ansi-portdecl-regularport-type (x) (declare (xargs :guard (vl-ansi-portdecl-p x))) (let ((__function__ 'vl-ansi-portdecl-regularport-type)) (declare (ignorable __function__)) (b* (((vl-ansi-portdecl x))) (cond (x.typename (make-vl-usertype :name (vl-idscope x.typename) :udims x.udims)) (x.type (vl-datatype-update-udims x.udims x.type)) (t (make-vl-coretype :name :vl-logic :signedp (eq x.signedness :vl-signed) :pdims x.pdims :udims x.udims))))))
Theorem:
(defthm vl-datatype-p-of-vl-ansi-portdecl-regularport-type (b* ((type (vl-ansi-portdecl-regularport-type x))) (vl-datatype-p type)) :rule-classes :rewrite)
Theorem:
(defthm vl-ansi-portdecl-regularport-type-of-vl-ansi-portdecl-fix-x (equal (vl-ansi-portdecl-regularport-type (vl-ansi-portdecl-fix x)) (vl-ansi-portdecl-regularport-type x)))
Theorem:
(defthm vl-ansi-portdecl-regularport-type-vl-ansi-portdecl-equiv-congruence-on-x (implies (vl-ansi-portdecl-equiv x x-equiv) (equal (vl-ansi-portdecl-regularport-type x) (vl-ansi-portdecl-regularport-type x-equiv))) :rule-classes :congruence)