(vl-tokstream-fix &key (tokstream 'tokstream)) → tokstream
Function:
(defun vl-tokstream-fix-fn (tokstream) (declare (xargs :stobjs (tokstream))) (declare (xargs :guard t)) (let ((__function__ 'vl-tokstream-fix)) (declare (ignorable __function__)) (mbe :logic (b* ((tokens (vl-tokstream->tokens)) (pstate (vl-tokstream->pstate))) (non-exec (list tokens pstate))) :exec tokstream)))
Theorem:
(defthm vl-tokstream->pstate-of-vl-tokstream-fix (equal (vl-tokstream->pstate :tokstream (vl-tokstream-fix)) (vl-tokstream->pstate)))
Theorem:
(defthm vl-tokstream->tokens-of-vl-tokstream-fix (equal (vl-tokstream->tokens :tokstream (vl-tokstream-fix)) (vl-tokstream->tokens)))
Theorem:
(defthm vl-tokstream-measure-of-vl-tokstream-fix (equal (vl-tokstream-measure :tokstream (vl-tokstream-fix)) (vl-tokstream-measure)))