Get the kind (tag) of a vl-dimension structure.
(vl-dimension-kind x) → kind
Function:
(defun vl-dimension-kind$inline (x) (declare (xargs :guard (vl-dimension-p x))) (let ((__function__ 'vl-dimension-kind)) (declare (ignorable __function__)) (cond ((eq x :vl-unsized-dimension) :unsized) ((eq x :vl-star-dimension) :star) ((eq (tag x) :vl-type-dimension) :datatype) ((eq (tag x) :vl-queue-dimension) :queue) (t :range))))
Theorem:
(defthm vl-dimension-kind-possibilities (or (equal (vl-dimension-kind x) :unsized) (equal (vl-dimension-kind x) :star) (equal (vl-dimension-kind x) :datatype) (equal (vl-dimension-kind x) :queue) (equal (vl-dimension-kind x) :range)) :rule-classes ((:forward-chaining :trigger-terms ((vl-dimension-kind x)))))