Commit 7cedb6e8 authored by Kim Nguyễn's avatar Kim Nguyễn

Migrate to the new type substitution API (2/3).

parent 3a1e73e5
......@@ -219,8 +219,10 @@ module Make (T : E) : S with type s = T.t = struct
let compute ~empty ~full ~cup ~cap ~diff ~atom b =
let rec aux = function
| `True -> full
| `True -> full
| `False -> empty
| `Split (_,`Atm x,`True,_,_) when T.equal x T.empty -> empty
| `Split (_,`Atm x,`True,_,_) when T.equal x T.full -> full
| `Split(_,x, p,i,n) ->
let x1 = atom x in
let p = cap x1 (aux p) in
......
This diff is collapsed.
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