Pop a scope block from the top of the environment.
All variables declared in the top scope are removed from scope. Any variables shadowed by the top scope block are unshadowed.
Function:
(defun pop-scope-env (env) (declare (xargs :guard (envp env))) (let ((__function__ 'pop-scope-env)) (declare (ignorable __function__)) (cdr (env-fix env))))
Theorem:
(defthm envp-of-pop-scope-env (b* ((new-env (pop-scope-env env))) (envp new-env)) :rule-classes :rewrite)