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