diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-06-05 17:13:06 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-06-05 17:13:06 +0000 |
commit | 45968d4184d94f792481b311b0d2d44494174d1c (patch) | |
tree | ce573749825b8409b2877387bbea655f5ae1490c /pretyping/unification.ml | |
parent | b15cc85f00da279b7a161a06e5b17128289362c4 (diff) |
eradication de Evarutil.w_Define
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7113 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/unification.ml')
-rw-r--r-- | pretyping/unification.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 2801d3ee4..0c5d7d672 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -267,8 +267,8 @@ let w_merge env with_types mod_delta metas evars evd = (Retyping.get_type_of sp_env (evars_of evd') c) ev.evar_concl in let evd'' = w_merge_rec evd' mc ec in if (evars_of evd') == (evars_of evd'') - then w_Define sp c evd'' - else w_Define sp (Evarutil.nf_evar (evars_of evd'') c) evd'' in + then Evd.evar_define sp c evd'' + else Evd.evar_define sp (Evarutil.nf_evar (evars_of evd'') c) evd'' in (* merge constraints *) let evd' = w_merge_rec evd metas evars in |