Fixer for ascii-basic-source-char.
(ascii-basic-source-char-fix x) → fixed-x
Function:
(defun ascii-basic-source-char-fix (x) (declare (xargs :guard (ascii-basic-source-charp x))) (mbe :logic (if (ascii-basic-source-charp x) x #\Space) :exec x))
Theorem:
(defthm ascii-basic-source-charp-of-ascii-basic-source-char-fix (b* ((fixed-x (ascii-basic-source-char-fix x))) (ascii-basic-source-charp fixed-x)) :rule-classes :rewrite)
Theorem:
(defthm ascii-basic-source-char-fix-when-ascii-basic-source-charp (implies (ascii-basic-source-charp x) (equal (ascii-basic-source-char-fix x) x)))