diff options
| author | herbelin | 2008-10-18 15:57:24 +0000 |
|---|---|---|
| committer | herbelin | 2008-10-18 15:57:24 +0000 |
| commit | 8cf4e04fa817cf7ff9d73cb5cb7fff8b3b950387 (patch) | |
| tree | 30fbd47a7c79a0bc4e5d8a94db78294e6b62b02f /pretyping/evd.mli | |
| parent | 41dcb1603ea2e212a9167918f3d5dcb6f166e27b (diff) | |
Optimisation de clenv.ml pour que meta_instance ne soit pas appelé
abusivement sur les clauses.
Nettoyage au passage de metamap qui était utilisé à la fois pour les
substitutions de meta et pour les contextes de typage de meta.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11467 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.mli')
| -rw-r--r-- | pretyping/evd.mli | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/evd.mli b/pretyping/evd.mli index 38db90dad4..2fd6680435 100644 --- a/pretyping/evd.mli +++ b/pretyping/evd.mli @@ -218,13 +218,15 @@ val meta_declare : metavariable -> types -> ?name:name -> evar_defs -> evar_defs val meta_assign : metavariable -> constr * instance_status -> evar_defs -> evar_defs val meta_reassign : metavariable -> constr * instance_status -> evar_defs -> evar_defs +val mk_meta_subst : evar_defs -> meta_value_map (* [meta_merge evd1 evd2] returns [evd2] extended with the metas of [evd1] *) val meta_merge : evar_defs -> evar_defs -> evar_defs val undefined_metas : evar_defs -> metavariable list -val metas_of : evar_defs -> metamap +val metas_of : evar_defs -> meta_type_map val map_metas_fvalue : (constr -> constr) -> evar_defs -> evar_defs +val replace_metas : clbinding Metamap.t -> evar_defs -> evar_defs type metabinding = metavariable * constr * instance_status |