If x is a simple name with no scoping, return the name, otherwise nil.
(vl-simple-id-name x) → name
Function:
(defun vl-simple-id-name (x) (declare (xargs :guard (vl-scopeexpr-p x))) (let ((__function__ 'vl-simple-id-name)) (declare (ignorable __function__)) (vl-scopeexpr-case x :end (vl-hidexpr-case x.hid :end x.hid.name :otherwise nil) :otherwise nil)))
Theorem:
(defthm maybe-stringp-of-vl-simple-id-name (b* ((name (vl-simple-id-name x))) (maybe-stringp name)) :rule-classes :type-prescription)
Theorem:
(defthm stringp-of-vl-simple-id-name (b* ((?name (vl-simple-id-name x))) (iff (stringp name) name)))
Theorem:
(defthm vl-simple-id-name-of-vl-scopeexpr-fix-x (equal (vl-simple-id-name (vl-scopeexpr-fix x)) (vl-simple-id-name x)))
Theorem:
(defthm vl-simple-id-name-vl-scopeexpr-equiv-congruence-on-x (implies (vl-scopeexpr-equiv x x-equiv) (equal (vl-simple-id-name x) (vl-simple-id-name x-equiv))) :rule-classes :congruence)