Module Stdlib.List

type !'a t = 'a list
val compare : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val some_if_all_elements_are_some : 'a option t -> 'a t option
val map2_prefix : ('a -> 'b -> 'c) -> 'a t -> 'b t -> 'c t * 'b t
val split_at : int -> 'a t -> 'a t * 'a t
val is_prefix : equal:('a -> 'a -> bool) -> 'a list -> of_:'a list -> bool
type !'a longest_common_prefix_result = private {
  1. longest_common_prefix : 'a list;
  2. first_without_longest_common_prefix : 'a list;
  3. 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 longest_common_prefix_result