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