(addr-scope-p x) → *
Function:
(defun addr-scope-p (x) (declare (xargs :guard t)) (let ((__function__ 'addr-scope-p)) (declare (ignorable __function__)) (or (natp x) (eq x :root))))
Theorem:
(defthm addr-scope-possibilities (implies (addr-scope-p x) (or (equal x :root) (natp x))) :rule-classes :forward-chaining)
Theorem:
(defthm addr-scope-p-when-natp (implies (natp x) (addr-scope-p x)))