parameter sintax added to axiom statement

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

diff --git a/helm/software/components/tactics/tactics.ml b/helm/software/components/tactics/tactics.ml
index 327256b3d2b161a9465a595aeb1a7efdaf32dd87..1fb1f8de5097fb5bcbaf625c9070e2044849b416 100644 (file)
--- a/helm/software/components/tactics/tactics.ml
+++ b/helm/software/components/tactics/tactics.ml
@@ -27,9 +27,11 @@
 
 let absurd = NegationTactics.absurd_tac
 let apply = PrimitiveTactics.apply_tac
-let applyS = AutoTactic.applyS_tac
+let applyP = PrimitiveTactics.applyP_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
 let clearbody = ProofEngineStructuralRules.clearbody
@@ -37,8 +39,8 @@ let constructor = IntroductionTactics.constructor_tac
 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 demodulate = Auto.demodulate_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
@@ -48,26 +50,27 @@ let fail = Tacticals.fail_tac
 let fold = ReductionTactics.fold_tac
 let fourier = FourierR.fourier_tac
 let fwd_simpl = FwdSimplTactic.fwd_simpl_tac
-let generalize = VariousTactics.generalize_tac
+let generalize = PrimitiveTactics.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
 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
 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 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;;