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