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

diff --git a/helm/software/components/ng_paramodulation/terms.ml b/helm/software/components/ng_paramodulation/terms.ml
index db4c8cad6..a7173b1b9 100644
--- a/helm/software/components/ng_paramodulation/terms.ml
+++ b/helm/software/components/ng_paramodulation/terms.ml
@@ -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
 type direction = Left2Right | Right2Left | Nodir
@@ -46,8 +46,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