X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FprimitiveTactics.mli;h=f2178fb388030fcf443ef69a8a008054e8704730;hb=b266ed97b63400d62ab4ba6a4ebdfbc1d5b0c2bb;hp=01d200eb76ece2859d1e460e7f6447bfda339729;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/tactics/primitiveTactics.mli b/helm/software/components/tactics/primitiveTactics.mli
index 01d200eb7..f2178fb38 100644
--- a/helm/software/components/tactics/primitiveTactics.mli
+++ b/helm/software/components/tactics/primitiveTactics.mli
@@ -23,10 +23,33 @@
  * http://cs.unibo.it/helm/.
  *)
 
-(* ALB, needed by the new paramodulation... *)
-val apply_tac_verbose_with_subst:
-  term:Cic.term -> ProofEngineTypes.proof * int ->
-  Cic.substitution * (ProofEngineTypes.proof * int list)
+(**** useful only to implement tactics similar to apply ****)
+
+val generalize_exp_named_subst_with_fresh_metas :
+  Cic.context ->
+  int ->
+  UriManager.uri ->
+  (UriManager.uri * Cic.term) list ->
+  int * Cic.metasenv *
+  Cic.term Cic.explicit_named_substitution *
+  Cic.term Cic.explicit_named_substitution
+
+val classify_metas :
+  Cic.term ->
+  (Cic.term -> bool) ->
+  (Cic.context -> Cic.term -> Cic.term) ->
+  (Cic.term * Cic.context * Cic.term) list ->
+  (Cic.term * Cic.context * Cic.term) list *
+  (Cic.term * Cic.context * Cic.term) list
+
+(* Not primitive, but useful for elim *)
+
+exception AllSelectedTermsMustBeConvertible;;
+
+val generalize_tac:
+ ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
+ ProofEngineTypes.lazy_pattern ->
+   ProofEngineTypes.tactic
 
 (* not a real tactic *)
 val apply_tac_verbose :
@@ -34,8 +57,11 @@ val apply_tac_verbose :
   ProofEngineTypes.proof * int ->
   (Cic.term -> Cic.term) * (ProofEngineTypes.proof * int list)
 
+(* the proof status has a subst now, and apply_tac honors it *)
 val apply_tac:
   term: Cic.term -> ProofEngineTypes.tactic
+val applyP_tac: (* apply for procedural reconstruction *)
+  term: Cic.term -> ProofEngineTypes.tactic
 val exact_tac:
   term: Cic.term -> ProofEngineTypes.tactic
 val intros_tac:
@@ -53,7 +79,25 @@ 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 ->
+  ?pattern:ProofEngineTypes.lazy_pattern -> Cic.term ->
+  ProofEngineTypes.tactic 
+
+(* FG *)
+
+val mk_predicate_for_elim: 
+ context:Cic.context -> metasenv:Cic.metasenv -> subst:Cic.substitution ->
+ ugraph:CicUniv.universe_graph -> goal:Cic.term -> 
+ arg:Cic.term -> using:Cic.term -> cpattern:Cic.term -> args_no:int -> 
+ Cic.metasenv * Cic.substitution * Cic.term * Cic.term * Cic.term list