aboutsummaryrefslogtreecommitdiffhomepage
path: root/tactics/class_tactics.ml
diff options
context:
space:
mode:
authorGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2016-11-06 19:59:28 +0100
committerGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2017-02-14 17:26:34 +0100
commit258c8502eafd3e078a5c7478a452432b5c046f71 (patch)
treed4ce21b23a67056242410fbd78362213700af099 /tactics/class_tactics.ml
parent77e638121b6683047be915da9d0499a58fcb6e52 (diff)
Constr_matching API using EConstr.
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")