X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Ftactics%2FdiscriminationTactics.mli;h=3a74e3d7df7abaf7935482e8c1b8fb4d64f9013b;hb=e05e28d01c55699ce539699ac745341bfa4c1c0f;hp=5815bb551a0d5c34e4a0b2c59f8339a2a53cd7a9;hpb=9a17bf0f4213f5f130326d658ce7ee4b41f6d6f2;p=helm.git

diff --git a/components/tactics/discriminationTactics.mli b/components/tactics/discriminationTactics.mli
index 5815bb551..3a74e3d7d 100644
--- a/components/tactics/discriminationTactics.mli
+++ b/components/tactics/discriminationTactics.mli
@@ -23,5 +23,8 @@
  * http://cs.unibo.it/helm/.
  *)
 
-val injection_tac: term:Cic.term -> ProofEngineTypes.tactic
-val discriminate_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