let empty_ugraph = empty_bag, UriManager.UriSet.empty, false
let oblivion_ugraph = empty_bag, UriManager.UriSet.empty, true
let empty_ugraph = empty_bag, UriManager.UriSet.empty, false
let oblivion_ugraph = empty_bag, UriManager.UriSet.empty, true
-(* print_ugraph ugraph; *)
- let keys = MAL.fold (fun k _ acc -> k::acc) b [] in
+ let keys =
+ MAL.fold
+ (fun k v acc ->
+ SOF.union acc (SOF.union (SOF.singleton k)
+ (SOF.union v.eq_closure (SOF.union v.gt_closure v.ge_closure))))
+ b SOF.empty
+ in
+ let keys = SOF.elements keys in
let seen = SOF.add x seen in
let t1, seen = aux (k+1) seen (SOF.elements (repr x b).eq_closure) in
let t3, seen = aux (k+1) seen (SOF.elements (repr x b).gt_closure) in
let seen = SOF.add x seen in
let t1, seen = aux (k+1) seen (SOF.elements (repr x b).eq_closure) in
let t3, seen = aux (k+1) seen (SOF.elements (repr x b).gt_closure) in