Returns
Function:
(defun two-byte-opcode-modr/m-p$inline (proc-mode mandatory-prefix opcode) (declare (type (integer 0 4) proc-mode) (type (unsigned-byte 8) mandatory-prefix) (type (unsigned-byte 8) opcode)) (cond ((equal proc-mode 0) (64-bit-mode-two-byte-opcode-modr/m-p mandatory-prefix opcode)) (t (32-bit-mode-two-byte-opcode-modr/m-p mandatory-prefix opcode))))
Theorem:
(defthm booleanp-of-two-byte-opcode-modr/m-p (implies (n08p opcode) (b* ((bool (two-byte-opcode-modr/m-p$inline proc-mode mandatory-prefix opcode))) (booleanp bool))) :rule-classes :rewrite)