Load lists of physical-addr-qword-alistp into the physical memory.
(load-qwords-into-physical-memory-list addr-qword-list-list x86) → x86
Function:
(defun load-qwords-into-physical-memory-list (addr-qword-list-list x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard (and (not (app-view x86)) (physical-addr-qword-alist-listp addr-qword-list-list)))) (let ((__function__ 'load-qwords-into-physical-memory-list)) (declare (ignorable __function__)) (if (endp addr-qword-list-list) x86 (b* ((x86 (load-qwords-into-physical-memory (car addr-qword-list-list) x86))) (load-qwords-into-physical-memory-list (cdr addr-qword-list-list) x86)))))
Theorem:
(defthm x86p-of-load-qwords-into-physical-memory-list (implies (and (x86p x86) (not (app-view x86)) (physical-addr-qword-alist-listp addr-qword-list-list)) (b* ((x86 (load-qwords-into-physical-memory-list addr-qword-list-list x86))) (x86p x86))) :rule-classes :rewrite)
Theorem:
(defthm app-view-unchanged-after-load-qwords-into-physical-memory-list (equal (xr :app-view nil (load-qwords-into-physical-memory-list addr-qword-lst-lst x86)) (xr :app-view nil x86)))