(vl-printedlist->string x) → str
This is logically just
Function:
(defun vl-printedlist->string (x) (declare (xargs :guard (vl-printedlist-p x))) (let ((__function__ 'vl-printedlist->string)) (declare (ignorable __function__)) (implode (vl-printedlist->chars x nil))))
Theorem:
(defthm stringp-of-vl-printedlist->string (b* ((str (vl-printedlist->string x))) (stringp str)) :rule-classes :type-prescription)