let diff x y = wrap (Unhashconsed_Int_Intervals.diff x.v y.v)