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