sig
  type 'a t =
      Same of ('a * 'a) array
    | Old of 'a array
    | New of 'a array
    | Replace of 'a array * 'a array
    | Unified of 'a array
  val all_same : 'a Patience_diff.Range.t list -> bool
  val old_only :
    'a Patience_diff.Range.t list -> 'a Patience_diff.Range.t list
  val new_only :
    'a Patience_diff.Range.t list -> 'a Patience_diff.Range.t list
  val t_of_sexp :
    (Sexplib.Sexp.t -> 'a) -> Sexplib.Sexp.t -> 'a Patience_diff.Range.t
  val sexp_of_t :
    ('a -> Sexplib.Sexp.t) -> 'a Patience_diff.Range.t -> Sexplib.Sexp.t
end