X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Ftactics%2FdiscriminationTactics.mli;h=3a74e3d7df7abaf7935482e8c1b8fb4d64f9013b;hb=c27196f6d80ddc6964fa58ded13bbf7fa9802beb;hp=5815bb551a0d5c34e4a0b2c59f8339a2a53cd7a9;hpb=8c19127e7ee6c71006838f89583a3283451b664c;p=helm.git

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