diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-06-06 00:29:16 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-06-06 00:29:16 +0200 |
| commit | 6e4d1ee9bb61601df041fe44eb60b4fa059080d5 (patch) | |
| tree | 2291600934d9e8ea9e04f20487b557733aba7e51 /tactics/auto.ml | |
| parent | cc0f9d254c394db742473299336fb20b82ae4aa1 (diff) | |
| parent | 72a2f5354c062247b3f35cf2cd29856e96e45824 (diff) | |
Merge PR#638: Fix bug #5360: anomalies in typeclass resolution output
Diffstat (limited to 'tactics/auto.ml')
| -rw-r--r-- | tactics/auto.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index b76c0a96a..e21396548 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -139,7 +139,7 @@ let conclPattern concl pat tac = try Proofview.tclUNIT (Constr_matching.matches env sigma pat concl) with Constr_matching.PatternMatchingFailure -> - Tacticals.New.tclZEROMSG (str "conclPattern") + Tacticals.New.tclZEROMSG (str "pattern-matching failed") in Proofview.Goal.enter { enter = begin fun gl -> let env = Proofview.Goal.env gl in |