Representation of a read of a pointed type
Function:
(defun schar-read (x) (declare (xargs :guard (star (scharp x)))) (let ((__function__ 'schar-read)) (declare (ignorable __function__)) (schar-fix x)))
Theorem:
(defthm scharp-of-schar-read (b* ((x (schar-read x))) (scharp x)) :rule-classes :rewrite)