Injection now clears all intermediate results introduced.

[helm.git] / components / tactics / tactics.ml

diff --git a/components/tactics/tactics.ml b/components/tactics/tactics.ml
index fe8adc549f67ef388656d81c3e7fcdf71c6f3cf7..4676d2d10c6217214abae20e46a444afcc86058c 100644 (file)
--- a/components/tactics/tactics.ml
+++ b/components/tactics/tactics.ml
@@ -27,16 +27,15 @@
 
 let absurd = NegationTactics.absurd_tac
 let apply = PrimitiveTactics.apply_tac
+let applyS = AutoTactic.applyS_tac
 let assumption = VariousTactics.assumption_tac
 let auto = AutoTactic.auto_tac
 let change = ReductionTactics.change_tac
 let clear = ProofEngineStructuralRules.clear
 let clearbody = ProofEngineStructuralRules.clearbody
-let compare = DiscriminationTactics.compare_tac
 let constructor = IntroductionTactics.constructor_tac
 let contradiction = NegationTactics.contradiction_tac
 let cut = PrimitiveTactics.cut_tac
-let decide_equality = DiscriminationTactics.decide_equality_tac
 let decompose = EliminationTactics.decompose_tac
 let demodulate = Saturation.demodulate_tac
 let discriminate = DiscriminationTactics.discriminate_tac
@@ -68,6 +67,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