Get the kind (tag) of a jvaluex structure.
(jvaluex-kind acl2::x) → kind
Function:
(defun jvaluex-kind$inline (acl2::x) (declare (xargs :guard (jvaluexp acl2::x))) (let ((__function__ 'jvaluex-kind)) (declare (ignorable __function__)) (cond ((primitivex-valuep acl2::x) :primitive) (t :reference))))
Theorem:
(defthm jvaluex-kind-possibilities (or (equal (jvaluex-kind acl2::x) :primitive) (equal (jvaluex-kind acl2::x) :reference)) :rule-classes ((:forward-chaining :trigger-terms ((jvaluex-kind acl2::x)))))