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