X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Ftactics.ml;h=b941a8752a3b1d9c36b340717d054ec09ac87bd4;hb=35e102fec6bad146fee425f299a93520e657e7c2;hp=fc1d4b7a3a1c33960f265b0e9cf969b422efc107;hpb=50afaf262195266d156f594cff7e92a6e8898b3e;p=helm.git

diff --git a/helm/software/components/tactics/tactics.ml b/helm/software/components/tactics/tactics.ml
index fc1d4b7a3..b941a8752 100644
--- a/helm/software/components/tactics/tactics.ml
+++ b/helm/software/components/tactics/tactics.ml
@@ -29,7 +29,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 auto = Auto.auto_tac
 let cases_intros = PrimitiveTactics.cases_intros_tac
 let change = ReductionTactics.change_tac
 let clear = ProofEngineStructuralRules.clear
@@ -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
@@ -57,7 +57,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
@@ -65,9 +64,13 @@ let rewrite_simpl = EqualityTactics.rewrite_simpl_tac
 let right = IntroductionTactics.right_tac
 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
 let whd = ReductionTactics.whd_tac
+let compose = Compose.compose_tac
+
+(* keep linked *)
+let _ = CloseCoercionGraph.close_coercion_graph;;