(vl-ps->chars &key (ps 'ps)) → chars
This is expensive. It necessarily involves creating
Function:
(defun vl-ps->chars-fn (ps) (declare (xargs :stobjs (ps))) (declare (xargs :guard t)) (let ((__function__ 'vl-ps->chars)) (declare (ignorable __function__)) (vl-printedlist->chars (vl-ps->rchars) nil)))
Theorem:
(defthm character-listp-of-vl-ps->chars (b* ((chars (vl-ps->chars-fn ps))) (character-listp chars)) :rule-classes :rewrite)