Write
(wz512 reg val x86) → x86
Function:
(defun wz512$inline (reg val x86) (declare (xargs :stobjs (x86))) (declare (type (unsigned-byte 5) reg) (type (unsigned-byte 512) val)) (let ((val (the (unsigned-byte 512) (n512 val)))) (!zmmi reg val x86)))
Theorem:
(defthm x86p-wz512 (implies (x86p x86) (x86p (wz512 reg val x86))))