diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 9156dfa9e2..d26195efc8 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -177,7 +177,7 @@ let use_evars_pattern_unification flags = let expand_key env = function | Some (ConstKey cst) -> constant_opt_value env cst - | Some (VarKey id) -> named_body id env + | Some (VarKey id) -> (try named_body id env with Not_found -> None) | Some (RelKey _) -> None | None -> None |