(vl-ps->string &key (ps 'ps)) → str
Function:
(defun vl-ps->string-fn (ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard t)) (let ((__function__ 'vl-ps->string)) (declare (ignorable __function__)) (vl-printedlist->string (vl-ps->rchars))))
Theorem:
(defthm stringp-of-vl-ps->string (b* ((str (vl-ps->string-fn ps))) (stringp str)) :rule-classes :type-prescription)