diff options
Diffstat (limited to '')
| -rw-r--r-- | src/Identifiers.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Identifiers.ml b/src/Identifiers.ml index dc8ae320..22b52119 100644 --- a/src/Identifiers.ml +++ b/src/Identifiers.ml @@ -38,6 +38,10 @@ module type Id = sig val map : ('a -> 'b) -> 'a vector -> 'b vector + val for_all : ('a -> bool) -> 'a vector -> bool + + val exists : ('a -> bool) -> 'a vector -> bool + module Set : Set.S with type elt = id val set_to_string : Set.t -> string @@ -98,6 +102,10 @@ module IdGen () : Id = struct let map = List.map + let for_all = List.for_all + + let exists = List.exists + module Set = Set.Make (struct type t = id |