Recognizer for scope names.
(vl-scopename-p x) → bool
Function:
(defun vl-scopename-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-scopename-p)) (declare (ignorable __function__)) (or (eq x :vl-local) (eq x :vl-$unit) (stringp x))))
Theorem:
(defthm vl-scopename-p-when-stringp (implies (stringp x) (vl-scopename-p x)))