Recognize the extended execution characters.
(ext-exec-charp x) → yes/no
These are the non-basic exec-characters.
Function:
(defun ext-exec-charp (x) (declare (xargs :guard t)) (let ((__function__ 'ext-exec-charp)) (declare (ignorable __function__)) (and (exec-charp x) (not (basic-exec-charp x)))))
Theorem:
(defthm booleanp-of-ext-exec-charp (b* ((yes/no (ext-exec-charp x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm exec-charp-alt-def (equal (exec-charp x) (or (basic-exec-charp x) (ext-exec-charp x))))