sig
  type 'a t = 'a list
  val compare :
    ('a -> 'a -> int) ->
    'a Misc.Stdlib.List.t -> 'a Misc.Stdlib.List.t -> int
  val equal :
    ('a -> 'a -> bool) ->
    'a Misc.Stdlib.List.t -> 'a Misc.Stdlib.List.t -> bool
  val some_if_all_elements_are_some :
    'a option Misc.Stdlib.List.t -> 'a Misc.Stdlib.List.t option
  val map2_prefix :
    ('a -> 'b -> 'c) ->
    'a Misc.Stdlib.List.t ->
    'b Misc.Stdlib.List.t -> 'c Misc.Stdlib.List.t * 'b Misc.Stdlib.List.t
  val split_at :
    int ->
    'a Misc.Stdlib.List.t -> 'a Misc.Stdlib.List.t * 'a Misc.Stdlib.List.t
  val is_prefix : equal:('a -> 'a -> bool) -> 'a list -> of_:'a list -> bool
  type 'a longest_common_prefix_result = private {
    longest_common_prefix : 'a list;
    first_without_longest_common_prefix : 'a list;
    second_without_longest_common_prefix : 'a list;
  }
  val find_and_chop_longest_common_prefix :
    equal:('a -> 'a -> bool) ->
    first:'a list ->
    second:'a list -> 'a Misc.Stdlib.List.longest_common_prefix_result
end