Check whether the current token has a particular type.
(vl-lookahead-is-token? type tokens) → bool
Function:
(defun vl-lookahead-is-token?$inline (type tokens) (declare (xargs :guard (vl-tokenlist-p tokens))) (let ((__function__ 'vl-lookahead-is-token?)) (declare (ignorable __function__)) (and (consp tokens) (eq (vl-token->type (car tokens)) type))))
Theorem:
(defthm vl-lookahead-is-token?-fn-when-atom-of-tokens (implies (atom tokens) (equal (vl-lookahead-is-token? type tokens) nil)) :rule-classes :type-prescription)