(rz512 reg x86) → *
Function:
(defun rz512$inline (reg x86) (declare (xargs :stobjs (x86))) (declare (type (unsigned-byte 5) reg)) (n512 (the (unsigned-byte 512) (zmmi reg x86))))
Theorem:
(defthm n512p-rz512 (unsigned-byte-p 512 (rz512 reg x86)) :rule-classes (:rewrite (:type-prescription :corollary (natp (rz512 reg x86)) :hints (("Goal" :in-theory '(unsigned-byte-p integer-range-p natp)))) (:linear :corollary (and (<= 0 (rz512 reg x86)) (< (rz512 reg x86) 13407807929942597099574024998205846127479365820592393377723561443721764030073546976801874298166903427690031858186486050853753882811946569946433649006084096)) :hints (("Goal" :in-theory '(unsigned-byte-p integer-range-p (:e expt)))))))