Recognize the basic execution characters.
These are the characters in the image of the injection from the ASCII characters.
Theorem:
(defthm basic-exec-charp-suff (implies (and (ascii-basic-exec-charp ascii) (equal x (ascii-to-exec-char ascii))) (basic-exec-charp x)))
Theorem:
(defthm booleanp-of-basic-exec-charp (b* ((yes/no (basic-exec-charp x))) (booleanp yes/no)) :rule-classes :rewrite)
Theorem:
(defthm exec-charp-when-basic-exec-charp (implies (basic-exec-charp x) (exec-charp x)))