diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-26 14:45:45 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-04-26 14:53:00 +0200 |
commit | 10a6452c6bbf618428591d9c40aed945f7fe92b3 (patch) | |
tree | 8b573d316c61ed052f4084f20689740409783f62 /pretyping | |
parent | 83c3ee8659f1cee68909570fbf581a0e03233af7 (diff) |
Pretyping: Fixing a de Bruijn bug in interpreting default instances of evars.
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/pretyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 947469ca0..e68a25a87 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -1118,7 +1118,7 @@ and pretype_instance k0 resolve_tc env evdref lvar loc hyps evk update = with Not_found -> try let (n,_,t') = lookup_rel_id id (rel_context env) in - if is_conv env.ExtraEnv.env !evdref t t' then mkRel n, update else raise Not_found + if is_conv env.ExtraEnv.env !evdref t (lift n t') then mkRel n, update else raise Not_found with Not_found -> try let t' = env |> lookup_named id |> NamedDecl.get_type in |