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