X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FprimitiveTactics.mli;h=f2178fb388030fcf443ef69a8a008054e8704730;hb=7f9e313fe5ae4200f080f481a6b8b795a0618093;hp=0ca91fe2c56128549f9789f46aeed4344f72a269;hpb=ed5c4e15429c37bef0f59dfd7160f6883586ed0f;p=helm.git

diff --git a/helm/software/components/tactics/primitiveTactics.mli b/helm/software/components/tactics/primitiveTactics.mli
index 0ca91fe2c..f2178fb38 100644
--- a/helm/software/components/tactics/primitiveTactics.mli
+++ b/helm/software/components/tactics/primitiveTactics.mli
@@ -51,19 +51,17 @@ val generalize_tac:
  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 ->
-  Cic.substitution * (ProofEngineTypes.proof * int list) * int
-
 (* not a real tactic *)
 val apply_tac_verbose :
   term:Cic.term ->
   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:
@@ -99,7 +97,7 @@ val cases_intros_tac:
 (* FG *)
 
 val mk_predicate_for_elim: 
- context:Cic.context -> metasenv:Cic.metasenv -> 
+ 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.term * Cic.term * Cic.term list
+ Cic.metasenv * Cic.substitution * Cic.term * Cic.term * Cic.term list