sig
  type 'a t
  external cancel : 'Future.t -> bool -> bool = "ocamljava_future_cancel"
  external get : 'Future.t -> 'a = "ocamljava_future_get"
  external get_time : 'Future.t -> int64 -> TimeUnit.t -> 'a
    = "ocamljava_future_get_time"
  external is_cancelled : 'Future.t -> bool
    = "ocamljava_future_is_cancelled"
  external is_done : 'Future.t -> bool = "ocamljava_future_is_done"
end