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