X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Ftactics%2Fparamodulation%2Findexing.mli;h=ef068151ea3210aa5463b0f66b7b79f86e68aa27;hb=61acdea2419b3889096fd1e41275062b78253af0;hp=75e16ec1b38e254ce637c6dbc34f25e689cc9dd8;hpb=d8d939cc3f78a805a3c16f715912ecd96c302592;p=helm.git

diff --git a/components/tactics/paramodulation/indexing.mli b/components/tactics/paramodulation/indexing.mli
index 75e16ec1b..ef068151e 100644
--- a/components/tactics/paramodulation/indexing.mli
+++ b/components/tactics/paramodulation/indexing.mli
@@ -31,7 +31,6 @@ module Index :
       with type elt = Utils.pos * Equality.equality
       and type t = Equality_indexing.DT.PosEqSet.t
     type t = Discrimination_tree.DiscriminationTreeIndexing(PosEqSet).t
-    type key = Cic.term
   end
 
 val index : Index.t -> Equality.equality -> Index.t
@@ -70,7 +69,7 @@ val demodulation_equality :
   int ->
   Cic.metasenv * Cic.context * CicUniv.universe_graph ->
   Index.t ->
-  Utils.equality_sign -> Equality.equality -> int * Equality.equality
+  Equality.equality -> int * Equality.equality
 val demodulation_goal :
   Cic.metasenv * Cic.context * CicUniv.universe_graph ->
   Index.t ->
@@ -80,8 +79,8 @@ val demodulation_theorem :
   'a ->
   Cic.metasenv * Cic.context * CicUniv.universe_graph ->
   Index.t ->
-  Cic.term * Index.key * Cic.metasenv ->
-  'a * (Cic.term * Index.key * Cic.metasenv)
+  Cic.term * Cic.term * Cic.metasenv ->
+  'a * (Cic.term * Cic.term * Cic.metasenv)
 val check_target:
   Cic.context ->
     Equality.equality -> string -> unit