Get the starting location for a token.
(vl-token->loc x) → loc
Because
Function:
(defun vl-token->loc$inline (x) (declare (xargs :guard (vl-token-p x))) (let ((__function__ 'vl-token->loc)) (declare (ignorable __function__)) (vl-echar->loc (car (vl-token->etext x)))))
Theorem:
(defthm vl-location-p-of-vl-token->loc (implies (and (force (vl-token-p x))) (b* ((loc (vl-token->loc$inline x))) (vl-location-p loc))) :rule-classes :rewrite)