X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2Ftacticals.mli;h=d7cc2754575375a55b1a7467289527a2f11af931;hb=f541206af7fccf9de78b31d8f2aaf5f786f63d1f;hp=b1861b5fae5a8f3697b6c38a37b42b3cab8f99b4;hpb=bac72fcaa876137ab7a5630e0c1badc2a627dce8;p=helm.git

diff --git a/helm/ocaml/tactics/tacticals.mli b/helm/ocaml/tactics/tacticals.mli
index b1861b5fa..d7cc27545 100644
--- a/helm/ocaml/tactics/tacticals.mli
+++ b/helm/ocaml/tactics/tacticals.mli
@@ -26,9 +26,7 @@
 
 val id_tac : ProofEngineTypes.tactic
 
-
-
-  (* pseudo tacticals *)
+ (* tacticals *)
 val try_tactics:
   tactics: (string * ProofEngineTypes.tactic) list -> ProofEngineTypes.tactic
 
@@ -40,6 +38,8 @@ val then_:
  start: ProofEngineTypes.tactic ->
  continuation: ProofEngineTypes.tactic -> ProofEngineTypes.tactic
 
+ (** "folding" of then_ *)
+val seq: tactics: ProofEngineTypes.tactic list -> ProofEngineTypes.tactic
 
 val repeat_tactic: 
  tactic: ProofEngineTypes.tactic -> ProofEngineTypes.tactic
@@ -54,7 +54,7 @@ val try_tactic:
 val solve_tactics:
  tactics: (string * ProofEngineTypes.tactic) list -> ProofEngineTypes.tactic
 
-
+val fail: ProofEngineTypes.tactic
 
 (*
 val prova_tac : ProofEngineTypes.tactic