[r2003-03-22 23:08:40 by cvscast] Empty log message

Original author: cvscast
Date: 2003-03-22 23:08:40+00:00

misc/bool.ml

@@ -214,7 +214,8 @@ struct
     split x (simplify p [i]) i (simplify n [i])
 
   let rec ( ++ ) a b =
-    if a == b then a 
+(*    if equal a b then a *)
+    if a == b then a  
     else match (a,b) with
       | True, _ | _, True -> True
       | False, a | a, False -> a
@@ -238,7 +239,8 @@ struct
    is the invariant still inforced ? *)
 
   let rec ( ** ) a b =
-    if a == b then a
+(*    if equal a b then a *)
+    if a == b then a 
     else match (a,b) with
       | True, a | a, True -> a
       | False, _ | _, False -> False
@@ -268,6 +270,7 @@ struct
     | Split (_,x, p,i,n) -> split x (neg (i ++ p)) False (neg (i ++ n))
 	      
   let rec ( // ) a b =  
+(*    if equal a b then False *)
     if a == b then False
     else match (a,b) with
       | False,_ | _, True -> False