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