(vl-tname-dir x) → dir
Function:
(defun vl-tname-dir (x) (declare (xargs :guard (vl-tname-p x))) (let ((__function__ 'vl-tname-dir)) (declare (ignorable __function__)) (b* (((vl-tname x) x)) (cat *vls-root* "/" x.base "/" x.model "/"))))
Theorem:
(defthm stringp-of-vl-tname-dir (b* ((dir (vl-tname-dir x))) (stringp dir)) :rule-classes :type-prescription)