sig
  type 'a t = 'a option
  val equal :
    ('a -> 'a -> bool) ->
    'a Misc.Stdlib.Option.t -> 'a Misc.Stdlib.Option.t -> bool
  val iter : ('a -> unit) -> 'a Misc.Stdlib.Option.t -> unit
  val map : ('a -> 'b) -> 'a Misc.Stdlib.Option.t -> 'b Misc.Stdlib.Option.t
  val fold : ('a -> 'b -> 'b) -> 'a Misc.Stdlib.Option.t -> 'b -> 'b
  val value_default :
    ('a -> 'b) -> default:'b -> 'a Misc.Stdlib.Option.t -> 'b
end