(msra msr-addr x86) → msr-val
Function:
(defun msra (msr-addr x86) (declare (xargs :stobjs (x86))) (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 x86))))
Theorem:
(defthm n64p-of-msra (b* ((msr-val (msra msr-addr x86))) (n64p msr-val)) :rule-classes :rewrite)