Update hidden portion of segment registers as dictated by
(!seg-hidden-basei-from-alist seg-hidden-alist x86) → x86
Function:
(defun !seg-hidden-basei-from-alist (seg-hidden-alist x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard (seg-hidden-basei-alistp seg-hidden-alist))) (let ((__function__ '!seg-hidden-basei-from-alist)) (declare (ignorable __function__)) (cond ((endp seg-hidden-alist) x86) (t (let ((x86 (!seg-hidden-basei (caar seg-hidden-alist) (cdar seg-hidden-alist) x86))) (!seg-hidden-basei-from-alist (cdr seg-hidden-alist) x86))))))
Theorem:
(defthm x86p-!seg-hidden-basei-from-alist (implies (and (seg-hidden-basei-alistp alist) (x86p x86)) (x86p (!seg-hidden-basei-from-alist alist x86))))