Functor Binary_searchable_intf.Binary_searchable.Make1

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

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