Lemmas about char-code from the std/strings library.
Theorem:
(defthm equal-of-char-code-and-constant (implies (syntaxp (quotep c)) (equal (equal (char-code x) c) (if (characterp x) (and (natp c) (<= c 255) (equal x (code-char c))) (equal c 0)))))
Theorem:
(defthm equal-of-char-codes (equal (equal (char-code x) (char-code y)) (equal (char-fix x) (char-fix y))))