(vl-tokstream->tokens &key (tokstream 'tokstream)) → tokens
Function:
(defun vl-tokstream->tokens$inline (tokstream) (declare (xargs :stobjs (tokstream))) (declare (xargs :guard t)) (let ((__function__ 'vl-tokstream->tokens)) (declare (ignorable __function__)) (mbe :logic (vl-tokenlist-fix (vl-tokstream->tokens-raw tokstream)) :exec (vl-tokstream->tokens-raw tokstream))))
Theorem:
(defthm vl-tokenlist-p-of-vl-tokstream->tokens (b* ((tokens (vl-tokstream->tokens$inline tokstream))) (vl-tokenlist-p tokens)) :rule-classes :rewrite)