X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Ftactics.ml;h=aa2e2bf4fc3dab3221f0b4651a575d777820ce64;hb=ef870606391fff198f215127eb022eb3e41ab1d4;hp=67a607d1acf16087a7caa65a57ad67bafa88d79d;hpb=040b70279b9bf0f576f00a9b1ad28df3c8bf6024;p=helm.git

diff --git a/components/tactics/tactics.ml b/components/tactics/tactics.ml
index 67a607d1a..aa2e2bf4f 100644
--- a/components/tactics/tactics.ml
+++ b/components/tactics/tactics.ml
@@ -39,7 +39,7 @@ let contradiction = NegationTactics.contradiction_tac
 let cut = PrimitiveTactics.cut_tac
 let decompose = EliminationTactics.decompose_tac
 let demodulate = Auto.demodulate_tac
-let destruct = DiscriminationTactics.destruct_tac
+let destruct = DestructTactic.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
@@ -67,7 +67,6 @@ let ring = Ring.ring_tac
 let simpl = ReductionTactics.simpl_tac
 let solve_rewrite = Auto.solve_rewrite_tac
 let split = IntroductionTactics.split_tac
-let subst = SubstTactic.subst_tac
 let symmetry = EqualityTactics.symmetry_tac
 let transitivity = EqualityTactics.transitivity_tac
 let unfold = ReductionTactics.unfold_tac