Extend a dynamic environment with a list of top-level declarations.
(extend-denv-with-topdecl-list decls env) → new-env
Function:
(defun extend-denv-with-topdecl-list (decls env) (declare (xargs :guard (and (topdecl-listp decls) (denvp env)))) (let ((__function__ 'extend-denv-with-topdecl-list)) (declare (ignorable __function__)) (b* (((when (endp decls)) (denv-fix env)) ((okf env) (extend-denv-with-topdecl (car decls) env))) (extend-denv-with-topdecl-list (cdr decls) env))))
Theorem:
(defthm denv-resultp-of-extend-denv-with-topdecl-list (b* ((new-env (extend-denv-with-topdecl-list decls env))) (denv-resultp new-env)) :rule-classes :rewrite)
Theorem:
(defthm extend-denv-with-topdecl-list-of-topdecl-list-fix-decls (equal (extend-denv-with-topdecl-list (topdecl-list-fix decls) env) (extend-denv-with-topdecl-list decls env)))
Theorem:
(defthm extend-denv-with-topdecl-list-topdecl-list-equiv-congruence-on-decls (implies (topdecl-list-equiv decls decls-equiv) (equal (extend-denv-with-topdecl-list decls env) (extend-denv-with-topdecl-list decls-equiv env))) :rule-classes :congruence)
Theorem:
(defthm extend-denv-with-topdecl-list-of-denv-fix-env (equal (extend-denv-with-topdecl-list decls (denv-fix env)) (extend-denv-with-topdecl-list decls env)))
Theorem:
(defthm extend-denv-with-topdecl-list-denv-equiv-congruence-on-env (implies (denv-equiv env env-equiv) (equal (extend-denv-with-topdecl-list decls env) (extend-denv-with-topdecl-list decls env-equiv))) :rule-classes :congruence)