let range_of_index2_of_diff d =
  match d with
    Add (i2,i,_) -> 0
  | Delete (i2,i,_)
  | Change (i2,_,i,_) -> (range_of_index i2)