sig
  type 'a t = {
    mine_start : int;
    mine_size : int;
    other_start : int;
    other_size : int;
    ranges : 'a Patience_diff.Range.t list;
  }
  val all_same : 'a Patience_diff.Hunk.t -> bool
end