Get the kind (tag) of a lexeme structure.
(lexeme-kind x) → kind
Function:
(defun lexeme-kind$inline (x) (declare (xargs :guard (lexemep x))) (let ((__function__ 'lexeme-kind)) (declare (ignorable __function__)) (mbe :logic (cond ((or (atom x) (eq (car x) :token)) :token) ((eq (car x) :comment) :comment) (t :whitespace)) :exec (car x))))
Theorem:
(defthm lexeme-kind-possibilities (or (equal (lexeme-kind x) :token) (equal (lexeme-kind x) :comment) (equal (lexeme-kind x) :whitespace)) :rule-classes ((:forward-chaining :trigger-terms ((lexeme-kind x)))))