aboutsummaryrefslogtreecommitdiffhomepage
path: root/tactics/class_tactics.ml
diff options
context:
space:
mode:
Diffstat (limited to 'tactics/class_tactics.ml')
-rw-r--r--tactics/class_tactics.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml
index a31e581e8..bef43d20b 100644
--- a/tactics/class_tactics.ml
+++ b/tactics/class_tactics.ml
@@ -305,7 +305,7 @@ let matches_pattern concl pat =
| None -> Proofview.tclUNIT ()
| Some pat ->
let sigma = Sigma.to_evar_map sigma in
- if Constr_matching.is_matching env sigma pat concl then
+ if Constr_matching.is_matching env sigma pat (EConstr.of_constr concl) then
Proofview.tclUNIT ()
else
Tacticals.New.tclZEROMSG (str "conclPattern")