Binary_searchable.Make
val binary_search : ?pos:int -> ?len:int -> T.t -> compare:(T.elt -> 'key -> int) ->
[ `Last_strictly_less_than | `Last_less_than_or_equal_to | `Last_equal_to | `First_equal_to | `First_greater_than_or_equal_to | `First_strictly_greater_than ] -> 'key -> int option
See Binary_search.binary_search
in binary_search.ml