Commit 8d0d7e1b authored by Pietro Abate's avatar Pietro Abate

Micro improvement in Bool.compute

parent 880ea5e9
......@@ -164,10 +164,11 @@ struct
| True -> full
| False -> empty
| Split(_,x, p,i,n) ->
let p = cap (atom x) (aux p)
and i = aux i
and n = diff (aux n) (atom x) in
cup (cup p i) n
let x1 = atom x in
let p = cap x1 (aux p)
and i = aux i
and n = diff (aux n) x1 in
cup (cup p i) n
in
aux b
......
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