sig type t val length : Functors.T_LENGTH_AND_COMPSUB.t -> int val compare_substring : Functors.T_LENGTH_AND_COMPSUB.t * int * int -> Functors.T_LENGTH_AND_COMPSUB.t * int * int -> int end