added the rule field to goal_proof.

[helm.git] / components / tactics / paramodulation / equality.mli

diff --git a/components/tactics/paramodulation/equality.mli b/components/tactics/paramodulation/equality.mli
index 6b5e34af99a1377cfd34b9c2f3197cea95b0e777..ee90d7b6e2f2524afd3e17bb62cebbdd1534a844 100644 (file)
--- 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