sig
  val map :
    ('-> 'Lwt.t) ->
    'Ocsigen_lib_base.Option.t -> 'Ocsigen_lib_base.Option.t Lwt.t
  val get : (unit -> 'Lwt.t) -> 'Ocsigen_lib_base.Option.t -> 'Lwt.t
  val get' : 'Lwt.t -> 'Ocsigen_lib_base.Option.t -> 'Lwt.t
  val iter : ('-> unit Lwt.t) -> 'Ocsigen_lib_base.Option.t -> unit Lwt.t
  val bind :
    'Ocsigen_lib_base.Option.t ->
    ('-> 'Ocsigen_lib_base.Option.t Lwt.t) ->
    'Ocsigen_lib_base.Option.t Lwt.t
end