diff options
| -rw-r--r-- | pretyping/unification.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 0b3eedcb83..217376acc4 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -495,7 +495,8 @@ let unify_to_type env evd flags c u = let t = get_type_of env sigma c in let t = Tacred.hnf_constr env sigma (nf_betaiota sigma (nf_meta evd t)) in let u = Tacred.hnf_constr env sigma u in - unify_0 env sigma Cumul flags t u + try unify_0 env sigma Cumul flags t u + with e when precatchable_exception e -> ([],[]) let unify_type env evd flags mv c = let mvty = Typing.meta_type evd mv in |