diff options
Diffstat (limited to 'pretyping/typeclasses_errors.ml')
| -rw-r--r-- | pretyping/typeclasses_errors.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/typeclasses_errors.ml b/pretyping/typeclasses_errors.ml index a6a9a75c5a..b16f000d4f 100644 --- a/pretyping/typeclasses_errors.ml +++ b/pretyping/typeclasses_errors.ml @@ -48,7 +48,7 @@ let unsatisfiable_constraints env evd ev comp = let mismatched_ctx_inst env c n m = typeclass_error env (MismatchedContextInstance (c, n, m)) -let rec unsatisfiable_exception exn = +let unsatisfiable_exception exn = match exn with | TypeClassError (_, UnsatisfiableConstraints _) -> true | _ -> false |