auto was compiraing lazy proof terms with = ... fixed

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

diff --git a/helm/software/components/tactics/primitiveTactics.mli b/helm/software/components/tactics/primitiveTactics.mli
index 2700fc27f4066c586a33b3ca5b7514f30343ca64..24d5cbc88fd20b6ad1ddda1719473a71ab2353e5 100644 (file)
--- a/helm/software/components/tactics/primitiveTactics.mli
+++ b/helm/software/components/tactics/primitiveTactics.mli
@@ -42,6 +42,15 @@ val classify_metas :
   (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
+
 (* ALB, needed by the new paramodulation... *)
 val apply_with_subst:
   term:Cic.term -> ?subst:Cic.substitution -> ?maxmeta:int -> ProofEngineTypes.proof * int ->
@@ -55,6 +64,8 @@ val apply_tac_verbose :
 
 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:
@@ -73,20 +84,24 @@ 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 
+  ?pattern:ProofEngineTypes.lazy_pattern -> 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