sig val not_authorized : OBus_error.name val obtain_authorization : action_id:string -> ?xid:int -> pid:int -> unit -> bool Lwt.t end