X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Ftactics%2Fparamodulation%2Fequality.mli;h=ee90d7b6e2f2524afd3e17bb62cebbdd1534a844;hb=eb363293909232713275c44c94e1fa7d7dce9628;hp=6b5e34af99a1377cfd34b9c2f3197cea95b0e777;hpb=c30eca6661470cc26554ebcdd1514f9f696e3da4;p=helm.git

diff --git a/components/tactics/paramodulation/equality.mli b/components/tactics/paramodulation/equality.mli
index 6b5e34af9..ee90d7b6e 100644
--- a/components/tactics/paramodulation/equality.mli
+++ b/components/tactics/paramodulation/equality.mli
@@ -31,9 +31,11 @@ and proof =
     Exact of Cic.term
   | Step of Subst.substitution * (rule * int * (Utils.pos * int) * Cic.term)
 
-and goal_proof = (Utils.pos * int * Subst.substitution * Cic.term) list
+and goal_proof = (rule * Utils.pos * int * Subst.substitution * Cic.term) list
 
-val pp_proof: (Cic.name option) list -> goal_proof -> proof -> string
+val pp_proof: 
+  (Cic.name option) list -> goal_proof -> proof -> Subst.substitution -> int ->
+    Cic.term -> string
 
 val reset : unit -> unit