Functor Binary_searchable_intf.Binary_searchable.Make1

module Make1: 
functor (T : Indexable1) -> S1  with type 'a t := 'a T.t

type 'a t 

val binary_search : ?pos:int ->
       ?len:int ->
       'a t ->
       compare:('a -> 'a -> int) -> 'a -> int option