Get the
(vex->vvvv vex-prefixes) → vvvv
Function:
(defun vex->vvvv$inline (vex-prefixes) (declare (xargs :guard (vex-prefixes-p vex-prefixes))) (declare (xargs :guard (vex-prefixes-byte0-p vex-prefixes))) (case (vex-prefixes->byte0 vex-prefixes) (197 (vex2-byte1->vvvv (vex-prefixes->byte1 vex-prefixes))) (196 (vex3-byte2->vvvv (vex-prefixes->byte2 vex-prefixes))) (otherwise -1)))
Theorem:
(defthm return-type-of-vex->vvvv (implies (vex-prefixes-byte0-p vex-prefixes) (b* ((vvvv (vex->vvvv$inline vex-prefixes))) (unsigned-byte-p 4 vvvv))) :rule-classes :rewrite)