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