diff options
| author | Pierre-Marie Pédrot | 2018-05-28 19:16:24 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-05-28 19:16:24 +0200 |
| commit | da142cf79f44c163db9c290947b34860ac902832 (patch) | |
| tree | 1539340181a4fdee1bc39e5dbff0e88c2308acb9 /src | |
| parent | e15c228709351f5001f6a10765a816cebcf900cc (diff) | |
Fix w.r.t. coq/coq#7521.
Diffstat (limited to 'src')
| -rw-r--r-- | src/tac2core.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tac2core.ml b/src/tac2core.ml index 9a3aed3442..8d0ef675fe 100644 --- a/src/tac2core.ml +++ b/src/tac2core.ml @@ -502,7 +502,7 @@ let () = define3 "constr_in_context" ident constr closure begin fun id t c -> let sigma = Proofview.Goal.sigma gl in let has_var = try - let _ = Environ.lookup_named_val id (Environ.named_context_val env) in + let _ = Environ.lookup_named_val id env in true with Not_found -> false in |