(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-01-30 19:07:53 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-05 00:37:22 CET by Kim Nguyen>
*)
(* Modified by Kim Nguyen *)
| Branch(b1,i1,l1,r1), Branch(b2,i2,l2,r2) ->
b1 == b2 && i1 == i2 && (Node.equal l1 l2) && (Node.equal r1 r2)
- | _ -> false
+ | (Empty|Leaf _|Branch _), _ -> false
let hash = function
| Empty -> 0
let singleton k = leaf k
let is_singleton n =
- match Node.node n with Leaf _ -> true
- | _ -> false
+ match Node.node n with
+ | Leaf _ -> true
+ | Branch _ | Empty -> false
let mem (k:elt) n =
let kid = Uid.to_int (H.uid k) in