sig
  type 'a t = java'util'concurrent'Future java_instance
  val cancel : 'a Future.t -> bool -> bool
  val get : 'a Future.t -> 'a
  val get_time : 'a Future.t -> java_long -> TimeUnit.t -> 'a
  val is_cancelled : 'a Future.t -> bool
  val is_done : 'a Future.t -> bool
  val null : 'a Future.t
  external is_null : 'a Future.t -> bool = "java is_null"
  external is_not_null : 'a Future.t -> bool = "java is_not_null"
  val wrap : 'a Future.t -> 'a Future.t option
  val unwrap : 'a Future.t option -> 'a Future.t
end