aboutsummaryrefslogtreecommitdiffhomepage
path: root/tactics
diff options
context:
space:
mode:
authorGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2014-03-26 13:33:54 +0100
committerGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2014-03-26 13:33:54 +0100
commit89af6fc3f3940cb03553c403432dfff52e6d8d7a (patch)
treeb4e26af746b80b5bfaef2cbf0ce476f87a6949ee /tactics
parent1dccf4412cf9f5903c6291e08f2001c895babfd1 (diff)
Adding an interface to Eqdecide and putting the grammar rules in a dedicated
file.
Diffstat (limited to 'tactics')
-rw-r--r--tactics/eqdecide.ml (renamed from tactics/eqdecide.ml4)11
-rw-r--r--tactics/eqdecide.mli17
-rw-r--r--tactics/g_eqdecide.ml425
-rw-r--r--tactics/hightactics.mllib1
4 files changed, 43 insertions, 11 deletions
diff --git a/tactics/eqdecide.ml4 b/tactics/eqdecide.ml
index 7b4760511..0effc3136 100644
--- a/tactics/eqdecide.ml4
+++ b/tactics/eqdecide.ml
@@ -206,14 +206,3 @@ let compare c1 c2 =
(Proofview.V82.tactic clear_last)));
decideEquality rectype])
end
-
-
-(* User syntax *)
-
-TACTIC EXTEND decide_equality
-| [ "decide" "equality" ] -> [ decideEqualityGoal ]
-END
-
-TACTIC EXTEND compare
-| [ "compare" constr(c1) constr(c2) ] -> [ compare c1 c2 ]
-END
diff --git a/tactics/eqdecide.mli b/tactics/eqdecide.mli
new file mode 100644
index 000000000..32d0a3871
--- /dev/null
+++ b/tactics/eqdecide.mli
@@ -0,0 +1,17 @@
+(************************************************************************)
+(* v * The Coq Proof Assistant / The Coq Development Team *)
+(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *)
+(* \VV/ **************************************************************)
+(* // * This file is distributed under the terms of the *)
+(* * GNU Lesser General Public License Version 2.1 *)
+(************************************************************************)
+
+(************************************************************************)
+(* EqDecide *)
+(* A tactic for deciding propositional equality on inductive types *)
+(* by Eduardo Gimenez *)
+(************************************************************************)
+
+val decideEqualityGoal : unit Proofview.tactic
+
+val compare : Constr.t -> Constr.t -> unit Proofview.tactic
diff --git a/tactics/g_eqdecide.ml4 b/tactics/g_eqdecide.ml4
new file mode 100644
index 000000000..c9d876d92
--- /dev/null
+++ b/tactics/g_eqdecide.ml4
@@ -0,0 +1,25 @@
+(************************************************************************)
+(* v * The Coq Proof Assistant / The Coq Development Team *)
+(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *)
+(* \VV/ **************************************************************)
+(* // * This file is distributed under the terms of the *)
+(* * GNU Lesser General Public License Version 2.1 *)
+(************************************************************************)
+
+(************************************************************************)
+(* EqDecide *)
+(* A tactic for deciding propositional equality on inductive types *)
+(* by Eduardo Gimenez *)
+(************************************************************************)
+
+(*i camlp4deps: "grammar/grammar.cma" i*)
+
+open Eqdecide
+
+TACTIC EXTEND decide_equality
+| [ "decide" "equality" ] -> [ decideEqualityGoal ]
+END
+
+TACTIC EXTEND compare
+| [ "compare" constr(c1) constr(c2) ] -> [ compare c1 c2 ]
+END
diff --git a/tactics/hightactics.mllib b/tactics/hightactics.mllib
index 0d6322af6..bc94c722f 100644
--- a/tactics/hightactics.mllib
+++ b/tactics/hightactics.mllib
@@ -7,3 +7,4 @@ Rewrite
G_rewrite
Tauto
Eqdecide
+G_eqdecide