(vl-tname-as-string x) → str
Function:
(defun vl-tname-as-string (x) (declare (xargs :guard (vl-tname-p x))) (let ((__function__ 'vl-tname-as-string)) (declare (ignorable __function__)) (cat (vl-tname->base x) ":" (vl-tname->model x))))
Theorem:
(defthm stringp-of-vl-tname-as-string (b* ((str (vl-tname-as-string x))) (stringp str)) :rule-classes :type-prescription)