(vl-ppst->includes &key (ppst 'ppst)) → includes
Function:
(defun vl-ppst->includes$inline (ppst) (declare (xargs :stobjs (ppst))) (declare (xargs :guard t)) (let ((__function__ 'vl-ppst->includes)) (declare (ignorable __function__)) (mbe :logic (string-list-fix (vl-ppst->includes-raw ppst)) :exec (vl-ppst->includes-raw ppst))))
Theorem:
(defthm string-listp-of-vl-ppst->includes (b* ((includes (vl-ppst->includes$inline ppst))) (string-listp includes)) :rule-classes :rewrite)