More tactics are now available to matita.

[helm.git] / helm / ocaml / cic_transformations / tacticAst.ml

diff --git a/helm/ocaml/cic_transformations/tacticAst.ml b/helm/ocaml/cic_transformations/tacticAst.ml
index 3c659bb6063dc15790d6ce64a9edce0c2c8a2669..63314d96f04f9d5b618becc9a613ddd27780fa54 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAst.ml
+++ b/helm/ocaml/cic_transformations/tacticAst.ml
@@ -37,8 +37,11 @@ type ('term, 'ident) tactic =
   | Auto of loc * int option
   | Assumption of loc
   | Change of loc * 'term * 'term * ('term,'ident) pattern (* what, with what, where *)
+  | Compare of loc * 'term
+  | Constructor of loc * int
   | Contradiction of loc
   | Cut of loc * 'term
+  | DecideEquality of loc
   | Decompose of loc * 'term
   | Discriminate of loc * 'term
   | Elim of loc * 'term * 'term option (* what to elim, which principle to use *)
@@ -47,10 +50,12 @@ type ('term, 'ident) tactic =
   | Exists of loc
   | Fold of loc * reduction_kind * 'term
   | Fourier of loc
+  | FwdSimpl of loc * 'term
   | Generalize of loc * 'term * ('term, 'ident) pattern
   | Goal of loc * int (* change current goal, argument is goal number 1-based *)
   | Injection of loc * 'term
   | Intros of loc * int option * 'ident list
+  | LApply of loc * 'term option * 'term
   | Left of loc
   | LetIn of loc * 'term * 'ident
   | Reduce of loc * reduction_kind * ('term, 'ident) pattern 
@@ -62,8 +67,6 @@ type ('term, 'ident) tactic =
   | Split of loc
   | Symmetry of loc
   | Transitivity of loc * 'term
-  | FwdSimpl of loc * 'term
-  | LApply of loc * 'term option * 'term
 
 type thm_flavour =
   [ `Definition