X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Ftactics.ml;h=fc1d4b7a3a1c33960f265b0e9cf969b422efc107;hb=15417a6cd2d1ce39afc67d36436864978ec7a8e2;hp=c34355b8ea21fd382dcfa08c9d0e9cc728056ab7;hpb=9a651e3b71b51dddba23519ab567faf5cf474edd;p=helm.git

diff --git a/components/tactics/tactics.ml b/components/tactics/tactics.ml
index c34355b8e..fc1d4b7a3 100644
--- a/components/tactics/tactics.ml
+++ b/components/tactics/tactics.ml
@@ -30,6 +30,7 @@ let apply = PrimitiveTactics.apply_tac
 let applyS = Auto.applyS_tac
 let assumption = VariousTactics.assumption_tac
 let auto = AutoTactic.auto_tac
+let cases_intros = PrimitiveTactics.cases_intros_tac
 let change = ReductionTactics.change_tac
 let clear = ProofEngineStructuralRules.clear
 let clearbody = ProofEngineStructuralRules.clearbody
@@ -63,10 +64,9 @@ let rewrite = EqualityTactics.rewrite_tac
 let rewrite_simpl = EqualityTactics.rewrite_simpl_tac
 let right = IntroductionTactics.right_tac
 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 subst = SubstTactic.subst_tac
 let symmetry = EqualityTactics.symmetry_tac
 let transitivity = EqualityTactics.transitivity_tac
 let unfold = ReductionTactics.unfold_tac