Get the kind (tag) of a vl-hidexpr structure.
(vl-hidexpr-kind x) → kind
Function:
(defun vl-hidexpr-kind$inline (x) (declare (xargs :guard (vl-hidexpr-p x))) (let ((__function__ 'vl-hidexpr-kind)) (declare (ignorable __function__)) (cond ((atom x) :end) (t :dot))))
Theorem:
(defthm vl-hidexpr-kind-possibilities (or (equal (vl-hidexpr-kind x) :end) (equal (vl-hidexpr-kind x) :dot)) :rule-classes ((:forward-chaining :trigger-terms ((vl-hidexpr-kind x)))))