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