Get the information for a function in a dynamic environment.
(get-function-dinfo fun env) → info?
If there is no function with that name in the environment,
we return
Function:
(defun get-function-dinfo (fun env) (declare (xargs :guard (and (identifierp fun) (function-denvp env)))) (let ((__function__ 'get-function-dinfo)) (declare (ignorable __function__)) (cdr (omap::assoc (identifier-fix fun) (function-denv-fix env)))))
Theorem:
(defthm function-dinfo-optionp-of-get-function-dinfo (b* ((info? (get-function-dinfo fun env))) (function-dinfo-optionp info?)) :rule-classes :rewrite)
Theorem:
(defthm get-function-dinfo-of-identifier-fix-fun (equal (get-function-dinfo (identifier-fix fun) env) (get-function-dinfo fun env)))
Theorem:
(defthm get-function-dinfo-identifier-equiv-congruence-on-fun (implies (identifier-equiv fun fun-equiv) (equal (get-function-dinfo fun env) (get-function-dinfo fun-equiv env))) :rule-classes :congruence)
Theorem:
(defthm get-function-dinfo-of-function-denv-fix-env (equal (get-function-dinfo fun (function-denv-fix env)) (get-function-dinfo fun env)))
Theorem:
(defthm get-function-dinfo-function-denv-equiv-congruence-on-env (implies (function-denv-equiv env env-equiv) (equal (get-function-dinfo fun env) (get-function-dinfo fun env-equiv))) :rule-classes :congruence)