Get the
(vex->pp vex-prefixes) → pp
Function:
(defun vex->pp$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->pp (vex-prefixes->byte1 vex-prefixes))) (196 (vex3-byte2->pp (vex-prefixes->byte2 vex-prefixes))) (otherwise -1)))
Theorem:
(defthm return-type-of-vex->pp (implies (vex-prefixes-byte0-p vex-prefixes) (b* ((pp (vex->pp$inline vex-prefixes))) (unsigned-byte-p 2 pp))) :rule-classes :rewrite)