now destruct takes an optional list of term rather than a sigle optional term

[helm.git] / components / tactics / primitiveTactics.mli

diff --git a/components/tactics/primitiveTactics.mli b/components/tactics/primitiveTactics.mli
index 2700fc27f4066c586a33b3ca5b7514f30343ca64..890874a89447507173fb3cfb19e27c286b646cb1 100644 (file)
--- a/components/tactics/primitiveTactics.mli
+++ b/components/tactics/primitiveTactics.mli
@@ -73,15 +73,16 @@ val letin_tac:
 val elim_intros_simpl_tac:
   ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
   ?depth:int -> ?using:Cic.term -> 
-  ProofEngineTypes.lazy_pattern ->
+  ?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 -> 
-  ProofEngineTypes.lazy_pattern ->
+  ?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 
 
@@ -90,3 +91,9 @@ val cases_intros_tac:
 (* 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