Get the
(evex->z evex-prefixes) → z
Function:
(defun evex->z$inline (evex-prefixes) (declare (xargs :guard (evex-prefixes-p evex-prefixes))) (evex-byte3->z (evex-prefixes->byte3 evex-prefixes)))
Theorem:
(defthm return-type-of-evex->z (implies (and (evex-prefixes-p$inline evex-prefixes)) (b* ((z (evex->z$inline evex-prefixes))) (unsigned-byte-p 1 z))) :rule-classes :rewrite)