added tentative elim

[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 f9747e824de9a066b122df1083cf606c2b8d5ef4..6c318798e18dc7c90fc87693c57582e23c5737c0 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,6 +44,8 @@ val distribute_tac: lowtactic -> tactic
 val block_tac: tactic list -> tactic
 
 val apply_tac: tactic_term -> tactic
+val change_tac: where:tactic_pattern -> with_what:tactic_term -> tactic
+val elim_tac: what:tactic_term -> where:tactic_pattern -> tactic
 
 
 val pp_tac_status: tac_status -> unit