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