X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2Ftactics.ml;h=aa2e2bf4fc3dab3221f0b4651a575d777820ce64;hb=2c80e9d9409119febcab9c08d6e6cad702384169;hp=82c343085a0c0b4ec38e35693db54acfebd4a8b5;hpb=77d56df4d446307199a9d4e03478260c6c63baf8;p=helm.git diff --git a/helm/software/components/tactics/tactics.ml b/helm/software/components/tactics/tactics.ml index 82c343085..aa2e2bf4f 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 @@ -64,11 +64,14 @@ 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 solve_rewrite = Auto.solve_rewrite_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 let whd = ReductionTactics.whd_tac +let compose = Compose.compose_tac + +(* keep linked *) +let _ = CloseCoercionGraph.close_coercion_graph;;