(xmmi-size nbytes index x86) → val
Function:
(defun xmmi-size$inline (nbytes index x86) (declare (xargs :stobjs (x86))) (declare (type (unsigned-byte 5) nbytes) (type (unsigned-byte 4) index)) (declare (xargs :guard (member nbytes '(4 8 16)))) (case nbytes (4 (rx32 index x86)) (8 (rx64 index x86)) (16 (rx128 index x86)) (otherwise 0)))
Theorem:
(defthm natp-of-xmmi-size (b* ((val (xmmi-size$inline nbytes index x86))) (natp val)) :rule-classes :type-prescription)