diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-29 18:15:05 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-29 18:15:05 +0000 |
| commit | 4929fa8a5b65bd90207f3a943227ed09a7ed0b6c (patch) | |
| tree | aad22ead3b6b4f7abbf16c7eb70daec19abab457 /toplevel | |
| parent | 250a3dfc1f46f9f705c471445a416476099ecc5d (diff) | |
Renaming evar_env/evar_unfiltered_env into evar_filtered_env/evar_env
for better uniformity of naming policy.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16172 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/himsg.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml index 8289f6ca2..cfaea3d74 100644 --- a/toplevel/himsg.ml +++ b/toplevel/himsg.ml @@ -353,7 +353,7 @@ let explain_evar_kind env evi = function | Evar_kinds.InternalHole -> str "an internal placeholder" ++ Option.cata (fun evi -> - let env = Evd.evar_env evi in + let env = Evd.evar_filtered_env evi in str " of type " ++ pr_lconstr_env env evi.evar_concl ++ pr_ne_context_of (str " in environment:"++ fnl ()) (mt ()) env) (mt ()) evi @@ -386,7 +386,7 @@ let explain_unsolvability = function let explain_typeclass_resolution env evi k = match Typeclasses.class_of_constr evi.evar_concl with | Some c -> - let env = Evd.evar_env evi in + let env = Evd.evar_filtered_env evi in fnl () ++ str "Could not find an instance for " ++ pr_lconstr_env env evi.evar_concl ++ pr_ne_context_of (str " in environment:"++ fnl ()) (str ".") env |