diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-26 13:33:54 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-03-26 13:33:54 +0100 |
commit | 89af6fc3f3940cb03553c403432dfff52e6d8d7a (patch) | |
tree | b4e26af746b80b5bfaef2cbf0ce476f87a6949ee /tactics | |
parent | 1dccf4412cf9f5903c6291e08f2001c895babfd1 (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.mli | 17 | ||||
-rw-r--r-- | tactics/g_eqdecide.ml4 | 25 | ||||
-rw-r--r-- | tactics/hightactics.mllib | 1 |
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 |