X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FprimitiveTactics.mli;h=890874a89447507173fb3cfb19e27c286b646cb1;hb=7dbc6d6fe71f6967f5ad31528a629dc89e6d8160;hp=c30952cae8b4ba6dc99aeca7549aa0ed98ad840a;hpb=6ce719daef6577d1a83c9e00a6ecc1dc42f17f7f;p=helm.git

diff --git a/helm/software/components/tactics/primitiveTactics.mli b/helm/software/components/tactics/primitiveTactics.mli
index c30952cae..890874a89 100644
--- a/helm/software/components/tactics/primitiveTactics.mli
+++ b/helm/software/components/tactics/primitiveTactics.mli
@@ -44,8 +44,8 @@ val classify_metas :
 
 (* ALB, needed by the new paramodulation... *)
 val apply_with_subst:
-  term:Cic.term -> ?subst:Cic.substitution -> ProofEngineTypes.proof * int ->
-  Cic.substitution * (ProofEngineTypes.proof * int list)
+  term:Cic.term -> ?subst:Cic.substitution -> ?maxmeta:int -> ProofEngineTypes.proof * int ->
+  Cic.substitution * (ProofEngineTypes.proof * int list) * int
 
 (* not a real tactic *)
 val apply_tac_verbose :
@@ -72,13 +72,28 @@ val letin_tac:
 
 val elim_intros_simpl_tac:
   ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
-  ?depth:int -> ?using:Cic.term -> Cic.term -> ProofEngineTypes.tactic 
+  ?depth:int -> ?using:Cic.term -> 
+  ?pattern:ProofEngineTypes.lazy_pattern -> Cic.term ->
+  ProofEngineTypes.tactic 
 val elim_intros_tac:
   ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
-  ?depth:int -> ?using:Cic.term -> Cic.term -> ProofEngineTypes.tactic 
+  ?depth:int -> ?using:Cic.term -> 
+  ?pattern:ProofEngineTypes.lazy_pattern -> Cic.term ->
+  ProofEngineTypes.tactic 
+
+val cases_intros_tac:
+  ?howmany:int ->
+  ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
+  Cic.term -> ProofEngineTypes.tactic 
 
 (* FG *)
 
 (* inserts a hole in the context *)
 val letout_tac:
   ProofEngineTypes.tactic 
+
+val mk_predicate_for_elim: 
+ context:Cic.context -> metasenv:Cic.metasenv -> 
+ ugraph:CicUniv.universe_graph -> goal:Cic.term -> 
+ arg:Cic.term -> using:Cic.term -> cpattern:Cic.term -> args_no:int -> 
+ Cic.metasenv * Cic.term * Cic.term * Cic.term list