Recognizer for path structures.
(path-p x) → *
Function:
(defun path-p (x) (declare (xargs :guard t)) (let ((__function__ 'path-p)) (declare (ignorable __function__)) (cond ((or (atom x) (name-p x)) (b* ((name x)) (name-p name))) (t (b* ((subpath (cdr x)) (namespace (car x))) (and (path-p subpath) (name-p namespace)))))))