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