(!msra msr-addr val x86) → x86
Function:
(defun !msra (msr-addr val x86) (declare (xargs :stobjs (x86))) (declare (type (unsigned-byte 64) val)) (declare (xargs :guard (valid-msr-addr-p msr-addr))) (let ((__function__ '!msra)) (declare (ignorable __function__)) (b* ((msr-index (msr-addr-to-index msr-addr))) (!msri msr-index val x86))))
Theorem:
(defthm x86p-of-!msra (implies (x86p x86) (b* ((x86 (!msra msr-addr val x86))) (x86p x86))) :rule-classes :rewrite)