(write-x86-file-contents name contents x86) → x86
Function:
(defun write-x86-file-contents$notinline (name contents x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard (stringp name))) (let ((__function__ 'write-x86-file-contents)) (declare (ignorable __function__)) (write-x86-file-contents-logic name contents x86)))
Theorem:
(defthm x86p-write-x86-file-contents (implies (and (x86p x86) (stringp name)) (x86p (write-x86-file-contents name contents x86))))