Cubicle 1.1.2 documentation and source : Intervals.power

let power n u =
  let l = List.map (power_bornes n) u.ints in
  union { u with ints = l }