X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2FdiscriminationTactics.mli;h=3a74e3d7df7abaf7935482e8c1b8fb4d64f9013b;hb=d738a2c22023d2f6df4c60faf4dd18eb1a8ad970;hp=f1153256f51e10c020a7bb19b6ce9b5c6fd79d7a;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/tactics/discriminationTactics.mli b/components/tactics/discriminationTactics.mli
index f1153256f..3a74e3d7d 100644
--- a/components/tactics/discriminationTactics.mli
+++ b/components/tactics/discriminationTactics.mli
@@ -23,8 +23,8 @@
  * http://cs.unibo.it/helm/.
  *)
 
-val injection_tac: term:Cic.term -> ProofEngineTypes.tactic
-val discriminate_tac: term:Cic.term -> ProofEngineTypes.tactic
-val decide_equality_tac: ProofEngineTypes.tactic
-val compare_tac: term:Cic.term -> ProofEngineTypes.tactic
-
+(* Performs a recursive comparisons of the two sides of an equation
+   looking for constructors. If the two sides differ on two constructors,
+   it closes the current goal. If they differ by other two terms it introduces
+   an equality. *)
+val destruct_tac: term:Cic.term -> ProofEngineTypes.tactic