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