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