type 'a t
val binary_search : ('a t, 'a) binary_search
val binary_search_segmented : ('a t, 'a) binary_search_segmented