X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2FprimitiveTactics.mli;h=68570d5ca56100b38994498d8be424639c01940a;hb=bbe7741f3bbaacb93f2876c018dace82f5e929b8;hp=bef3bb2e8041bacb6f5125e932d99c6676be5862;hpb=bac72fcaa876137ab7a5630e0c1badc2a627dce8;p=helm.git

diff --git a/helm/ocaml/tactics/primitiveTactics.mli b/helm/ocaml/tactics/primitiveTactics.mli
index bef3bb2e8..68570d5ca 100644
--- a/helm/ocaml/tactics/primitiveTactics.mli
+++ b/helm/ocaml/tactics/primitiveTactics.mli
@@ -23,22 +23,39 @@
  * http://cs.unibo.it/helm/.
  *)
 
+(* ALB needed for paramodulation... *)
+val new_metasenv_for_apply:
+  int -> ProofEngineTypes.proof -> Cic.context -> Cic.term ->
+  Cic.term * Cic.metasenv * Cic.term list * int
+
+(* not a real tactic *)
+val apply_tac_verbose :
+  term:Cic.term ->
+  ProofEngineTypes.proof * int ->
+  (Cic.term -> Cic.term) * (ProofEngineTypes.proof * int list)
+
 val apply_tac:
   term: Cic.term -> ProofEngineTypes.tactic
 val exact_tac:
   term: Cic.term -> ProofEngineTypes.tactic
 val intros_tac:
+  ?howmany:int ->
   ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type -> unit ->
    ProofEngineTypes.tactic
 val cut_tac:
-  ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type -> Cic.term ->
+  ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
+  Cic.term ->
    ProofEngineTypes.tactic 
 val letin_tac:
-  ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type -> Cic.term ->
+  ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
+  Cic.term ->
    ProofEngineTypes.tactic 
 
 val elim_intros_simpl_tac:
   term: Cic.term -> ProofEngineTypes.tactic 
+val elim_intros_tac:
+  term: Cic.term -> ProofEngineTypes.tactic 
 
 val change_tac:
-  what: Cic.term -> with_what: Cic.term -> ProofEngineTypes.tactic 
+  what: Cic.term -> with_what: Cic.term -> pattern:ProofEngineTypes.pattern ->
+   ProofEngineTypes.tactic