Recognize admissible ending markers of the numeric index of numbered names.
(numbered-name-index-end-p x) → yes/no
Check whether
Function:
(defun numbered-name-index-end-p (x) (declare (xargs :guard t)) (let ((__function__ 'numbered-name-index-end-p)) (declare (ignorable __function__)) (and (stringp x) (str::nondigit-charlist-p (explode x)))))
Theorem:
(defthm booleanp-of-numbered-name-index-end-p (b* ((yes/no (numbered-name-index-end-p x))) (booleanp yes/no)) :rule-classes :rewrite)