X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Ftactics.ml;h=8b21c775382e4ea9edf77745f68612c18cbc51a8;hb=cf25aeb5fa2c00ebfe93454fbe33421d590506d4;hp=aa2e2bf4fc3dab3221f0b4651a575d777820ce64;hpb=2c80e9d9409119febcab9c08d6e6cad702384169;p=helm.git

diff --git a/helm/software/components/tactics/tactics.ml b/helm/software/components/tactics/tactics.ml
index aa2e2bf4f..8b21c7753 100644
--- a/helm/software/components/tactics/tactics.ml
+++ b/helm/software/components/tactics/tactics.ml
@@ -27,6 +27,7 @@
 
 let absurd = NegationTactics.absurd_tac
 let apply = PrimitiveTactics.apply_tac
+let applyP = PrimitiveTactics.applyP_tac
 let applyS = Auto.applyS_tac
 let assumption = VariousTactics.assumption_tac
 let auto = Auto.auto_tac
@@ -49,7 +50,7 @@ let fail = Tacticals.fail_tac
 let fold = ReductionTactics.fold_tac
 let fourier = FourierR.fourier_tac
 let fwd_simpl = FwdSimplTactic.fwd_simpl_tac
-let generalize = VariousTactics.generalize_tac
+let generalize = PrimitiveTactics.generalize_tac
 let id = Tacticals.id_tac
 let intros = PrimitiveTactics.intros_tac
 let inversion = Inversion.inversion_tac
@@ -57,7 +58,6 @@ let lapply = FwdSimplTactic.lapply_tac
 let left = IntroductionTactics.left_tac
 let letin = PrimitiveTactics.letin_tac
 let normalize = ReductionTactics.normalize_tac
-let reduce = ReductionTactics.reduce_tac
 let reflexivity = Setoids.setoid_reflexivity_tac
 let replace = EqualityTactics.replace_tac
 let rewrite = EqualityTactics.rewrite_tac