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