(esim-vl-iopattern-entry->basename x) returns the basename that is shared by all the members of a esim-vl-iopattern-entry-p.
For instance, it returns "A" for (A[0] A[1] ... A[N]).
Function:
(defun esim-vl-iopattern-entry->basename (x) (declare (xargs :guard (esim-vl-iopattern-entry-p x))) (mbe :logic (string-fix (vl-emodwire->basename (car x))) :exec (vl-emodwire->basename (car x))))
Theorem:
(defthm stringp-of-esim-vl-iopattern-entry->basename (stringp (esim-vl-iopattern-entry->basename x)) :rule-classes :type-prescription)