1) mk_meta now returns also the index of the created meta

[helm.git] / helm / software / components / ng_tactics / nTactics.mli

diff --git a/helm/software/components/ng_tactics/nTactics.mli b/helm/software/components/ng_tactics/nTactics.mli
index 29b7613a502878ef702cfc9b3378e75192f04ded..0ce7b427eb24c1fdeb3b8fc9dc4dec0cb133cb0a 100644 (file)
--- a/helm/software/components/ng_tactics/nTactics.mli
+++ b/helm/software/components/ng_tactics/nTactics.mli
@@ -11,13 +11,14 @@
 
 (* $Id: nCic.ml 9058 2008-10-13 17:42:30Z tassi $ *)
 
+exception Error of string lazy_t
 
 type lowtac_status = {
         pstatus : NCic.obj;
         lstatus : LexiconEngine.status
 }
 
-type lowtactic = lowtac_status * int -> lowtac_status * int list * int list
+type lowtactic = lowtac_status -> int -> lowtac_status
 
 type tac_status = {
         gstatus : Continuationals.Stack.t; 
@@ -27,6 +28,7 @@ type tac_status = {
 type tactic = tac_status -> tac_status
 
 type tactic_term = CicNotationPt.term Disambiguate.disambiguator_input
+type tactic_pattern = GrafiteAst.npattern Disambiguate.disambiguator_input
 
 val dot_tac: tactic
 val branch_tac: tactic
@@ -42,7 +44,7 @@ val distribute_tac: lowtactic -> tactic
 val block_tac: tactic list -> tactic
 
 val apply_tac: tactic_term -> tactic
-val change_tac: tactic_term -> tactic_term -> tactic
+val change_tac: where:tactic_pattern -> with_what:tactic_term -> tactic
 
 
 val pp_tac_status: tac_status -> unit