let fold f x acc =
    Unhashconsed_Int_Intervals.fold f x.v acc