X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FprimitiveTactics.mli;h=f2178fb388030fcf443ef69a8a008054e8704730;hb=c76b5031700d8a06d19afb54abc81bf5d34d8242;hp=95ba654f50815965c1925d7a5dce63a05c043861;hpb=36842ee77114d2fa896d7ffd2333c07cff22b053;p=helm.git diff --git a/helm/software/components/tactics/primitiveTactics.mli b/helm/software/components/tactics/primitiveTactics.mli index 95ba654f5..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: @@ -93,12 +91,13 @@ val elim_intros_tac: 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 *) 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