Module Private.Search

module type ARRAY = sig ... end
module type ENTRY = sig ... end
module type METRIC = sig ... end
module type S = sig ... end
module Make : functor (Entry : ENTRY) -> functor (Array : ARRAY with type elt = Entry.t) -> functor (Metric : METRIC with module Entry := Entry) -> S with module Entry := Entry and module Array := Array