let borne_inf = function | {ints = (Large (v, ex), _)::_} -> v, ex | _ -> invalid_arg "Intervals.borne_inf : No finite lower bound"