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