is_empty in Multiset

This commit is contained in:
Simon Cruanes 2013-07-07 00:19:47 +02:00
parent f93c5865a4
commit 07480c6a82
2 changed files with 6 additions and 0 deletions

View file

@ -31,6 +31,8 @@ module type S = sig
val empty : t val empty : t
val is_empty : t -> bool
val mem : t -> elt -> bool val mem : t -> elt -> bool
val count : t -> elt -> int val count : t -> elt -> int
@ -78,6 +80,8 @@ module Make(O : Set.OrderedType) = struct
let empty = M.empty let empty = M.empty
let is_empty = M.is_empty
let mem ms x = M.mem x ms let mem ms x = M.mem x ms
let count ms x = let count ms x =

View file

@ -31,6 +31,8 @@ module type S = sig
val empty : t val empty : t
val is_empty : t -> bool
val mem : t -> elt -> bool val mem : t -> elt -> bool
val count : t -> elt -> int val count : t -> elt -> int