diff options
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 |