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