diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-12 17:48:46 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-12 17:48:46 +0000 |
| commit | a67549d2ec769e48dacf4938209871a83cdc4f91 (patch) | |
| tree | aabfd3ea4a98236821624c394240f76632e5f71c | |
| parent | 6075346ab4f6be00555eab0be95d47731b52dc08 (diff) | |
Oops, nf_evar_defs just changed to nf_evar_map.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12511 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | plugins/subtac/subtac_command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/subtac/subtac_command.ml b/plugins/subtac/subtac_command.ml index 6fd6e7347..c63e8488b 100644 --- a/plugins/subtac/subtac_command.ml +++ b/plugins/subtac/subtac_command.ml @@ -317,7 +317,7 @@ let build_wellfounded (recname,n,bl,arityc,body) r measure notation boxed = make_existential dummy_loc ~opaque:(Define false) env isevars wf_proof ; prop ; intern_body_lam |]) in - let _ = isevars := Evarutil.nf_evar_defs !isevars in + let _ = isevars := Evarutil.nf_evar_map !isevars in let binders_rel = nf_evar_context !isevars binders_rel in let binders = nf_evar_context !isevars binders in let top_arity = Evarutil.nf_isevar !isevars top_arity in |