Commit 24872f86 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2003-03-22 23:08:40+00:00
parent f321c02d
...@@ -214,6 +214,7 @@ struct ...@@ -214,6 +214,7 @@ struct
split x (simplify p [i]) i (simplify n [i]) split x (simplify p [i]) i (simplify n [i])
let rec ( ++ ) a b = let rec ( ++ ) a b =
(* if equal a b then a *)
if a == b then a if a == b then a
else match (a,b) with else match (a,b) with
| True, _ | _, True -> True | True, _ | _, True -> True
...@@ -238,6 +239,7 @@ struct ...@@ -238,6 +239,7 @@ struct
is the invariant still inforced ? *) is the invariant still inforced ? *)
let rec ( ** ) a b = let rec ( ** ) a b =
(* if equal a b then a *)
if a == b then a if a == b then a
else match (a,b) with else match (a,b) with
| True, a | a, True -> a | True, a | a, True -> a
...@@ -268,6 +270,7 @@ struct ...@@ -268,6 +270,7 @@ struct
| Split (_,x, p,i,n) -> split x (neg (i ++ p)) False (neg (i ++ n)) | Split (_,x, p,i,n) -> split x (neg (i ++ p)) False (neg (i ++ n))
let rec ( // ) a b = let rec ( // ) a b =
(* if equal a b then False *)
if a == b then False if a == b then False
else match (a,b) with else match (a,b) with
| False,_ | _, True -> False | False,_ | _, True -> False
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment