diff options
Diffstat (limited to 'mathcomp/ssreflect/plugin')
| -rw-r--r-- | mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4 b/mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4 index 3686b0a..08f1780 100644 --- a/mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4 +++ b/mathcomp/ssreflect/plugin/v8.4/ssrmatching.ml4 @@ -621,8 +621,8 @@ let match_upats_HO upats env sigma0 ise c = raise (FoundUnif (ungen_upat lhs pt' u)) with FoundUnif _ as sigma_u -> raise sigma_u | NoProgress -> it_did_match := true - | Pretype_errors.PretypeError - (_,_,Pretype_errors.UnsatisfiableConstraints _) -> + | Typeclasses_errors.TypeClassError + (_,Typeclasses_errors.UnsatisfiableConstraints _) -> failed_because_of_TC:=true | e when Errors.noncritical e -> () in List.iter one_match fpats |