X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FdiscriminationTactics.mli;h=3a74e3d7df7abaf7935482e8c1b8fb4d64f9013b;hb=3a96f145e913a11cf64db491b001b4fdfc71b57a;hp=f1153256f51e10c020a7bb19b6ce9b5c6fd79d7a;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/tactics/discriminationTactics.mli b/helm/software/components/tactics/discriminationTactics.mli
index f1153256f..3a74e3d7d 100644
--- a/helm/software/components/tactics/discriminationTactics.mli
+++ b/helm/software/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