X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Ftactics.ml;h=f146d45e6bc1f99eedd9a0cdfe431c2236a04fa3;hb=1b1a0b78ea59c7f0fe2bf7ffda4a5cda260add35;hp=4d52725891e04f5e2e24ca2d4ec8ae367366fe40;hpb=9a17bf0f4213f5f130326d658ce7ee4b41f6d6f2;p=helm.git

diff --git a/components/tactics/tactics.ml b/components/tactics/tactics.ml
index 4d5272589..f146d45e6 100644
--- a/components/tactics/tactics.ml
+++ b/components/tactics/tactics.ml
@@ -27,6 +27,7 @@
 
 let absurd = NegationTactics.absurd_tac
 let apply = PrimitiveTactics.apply_tac
+let applyS = Auto.applyS_tac
 let assumption = VariousTactics.assumption_tac
 let auto = AutoTactic.auto_tac
 let change = ReductionTactics.change_tac
@@ -37,7 +38,7 @@ let contradiction = NegationTactics.contradiction_tac
 let cut = PrimitiveTactics.cut_tac
 let decompose = EliminationTactics.decompose_tac
 let demodulate = Saturation.demodulate_tac
-let discriminate = DiscriminationTactics.discriminate_tac
+let destruct = DiscriminationTactics.destruct_tac
 let elim_intros = PrimitiveTactics.elim_intros_tac
 let elim_intros_simpl = PrimitiveTactics.elim_intros_simpl_tac
 let elim_type = EliminationTactics.elim_type_tac
@@ -49,7 +50,6 @@ let fourier = FourierR.fourier_tac
 let fwd_simpl = FwdSimplTactic.fwd_simpl_tac
 let generalize = VariousTactics.generalize_tac
 let id = Tacticals.id_tac
-let injection = DiscriminationTactics.injection_tac
 let intros = PrimitiveTactics.intros_tac
 let inversion = Inversion.inversion_tac
 let lapply = FwdSimplTactic.lapply_tac
@@ -57,7 +57,7 @@ let left = IntroductionTactics.left_tac
 let letin = PrimitiveTactics.letin_tac
 let normalize = ReductionTactics.normalize_tac
 let reduce = ReductionTactics.reduce_tac
-let reflexivity = EqualityTactics.reflexivity_tac
+let reflexivity = Setoids.setoid_reflexivity_tac
 let replace = EqualityTactics.replace_tac
 let rewrite = EqualityTactics.rewrite_tac
 let rewrite_simpl = EqualityTactics.rewrite_simpl_tac
@@ -66,6 +66,7 @@ let ring = Ring.ring_tac
 let set_goal = ProofEngineStructuralRules.set_goal
 let simpl = ReductionTactics.simpl_tac
 let split = IntroductionTactics.split_tac
+let subst = EqualityTactics.subst_tac
 let symmetry = EqualityTactics.symmetry_tac
 let transitivity = EqualityTactics.transitivity_tac
 let unfold = ReductionTactics.unfold_tac