aboutsummaryrefslogtreecommitdiffhomepage
path: root/ltac/g_eqdecide.ml4
diff options
context:
space:
mode:
Diffstat (limited to 'ltac/g_eqdecide.ml4')
-rw-r--r--ltac/g_eqdecide.ml42
1 files changed, 1 insertions, 1 deletions
diff --git a/ltac/g_eqdecide.ml4 b/ltac/g_eqdecide.ml4
index 905653281..6a49ea830 100644
--- a/ltac/g_eqdecide.ml4
+++ b/ltac/g_eqdecide.ml4
@@ -23,5 +23,5 @@ TACTIC EXTEND decide_equality
END
TACTIC EXTEND compare
-| [ "compare" constr(c1) constr(c2) ] -> [ compare c1 c2 ]
+| [ "compare" constr(c1) constr(c2) ] -> [ compare (EConstr.of_constr c1) (EConstr.of_constr c2) ]
END