X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Ftactics%2Ftactics.ml;h=fe8adc549f67ef388656d81c3e7fcdf71c6f3cf7;hb=ed308fc03be5397081ac0e00bbc73b3f71da1e67;hp=055c00528139b5defa52843582d2e7b1a8d5dbec;hpb=2b01133527077e8dd554f0fbcc51368903dd3b8c;p=helm.git

diff --git a/helm/ocaml/tactics/tactics.ml b/helm/ocaml/tactics/tactics.ml
index 055c00528..fe8adc549 100644
--- a/helm/ocaml/tactics/tactics.ml
+++ b/helm/ocaml/tactics/tactics.ml
@@ -23,11 +23,13 @@
  * http://cs.unibo.it/helm/.
  *)
 
+(* $Id$ *)
+
 let absurd = NegationTactics.absurd_tac
 let apply = PrimitiveTactics.apply_tac
 let assumption = VariousTactics.assumption_tac
 let auto = AutoTactic.auto_tac
-let change = PrimitiveTactics.change_tac
+let change = ReductionTactics.change_tac
 let clear = ProofEngineStructuralRules.clear
 let clearbody = ProofEngineStructuralRules.clearbody
 let compare = DiscriminationTactics.compare_tac
@@ -36,6 +38,7 @@ 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
 let elim_intros = PrimitiveTactics.elim_intros_tac
 let elim_intros_simpl = PrimitiveTactics.elim_intros_simpl_tac
@@ -50,6 +53,7 @@ let generalize = VariousTactics.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
@@ -66,4 +70,5 @@ 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