X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fng_paramodulation%2Fterms.mli;h=6ef3eeed86ca73018c65d6a662ed45aac9cf1816;hb=39a2078b0e835d39895a5b6c0862d668ece544f3;hp=dfed661d4576ba9b0799c4a61669cc98be653ec4;hpb=95a14ced97592a4116485f94c6ffa806feb62dbc;p=helm.git

diff --git a/helm/software/components/ng_paramodulation/terms.mli b/helm/software/components/ng_paramodulation/terms.mli
index dfed661d4..6ef3eeed8 100644
--- a/helm/software/components/ng_paramodulation/terms.mli
+++ b/helm/software/components/ng_paramodulation/terms.mli
@@ -18,7 +18,7 @@ type 'a foterm =
 
 type 'a substitution = (int * 'a foterm) list
 
-type comparison = Lt | Eq | Gt | Incomparable
+type comparison = Lt | Eq | Gt | Incomparable | Invertible
 
 type rule = Superposition | Demodulation
 
@@ -52,8 +52,10 @@ type 'a unit_clause =
 
 type 'a clause =
     int
-    * 'a literal list (* left hand side of the arrow *)
-    * 'a literal list (* right hand side of the arrow *)
+    * ('a literal * bool) list (* left hand side of the arrow,
+				  with flag for selection *)
+    * ('a literal * bool) list (* right hand side of the arrow,
+				  with flag for selection *)
     * varlist
     * 'a proof