sig
  type 'a t constraint 'a = [< Unix_syscalls.Socket.Address.t ]
  val unix :
    Unix_syscalls.Socket.Address.Unix.t Unix_syscalls.Socket.Family.t
  val inet :
    Unix_syscalls.Socket.Address.Inet.t Unix_syscalls.Socket.Family.t
  val to_string :
    [< Unix_syscalls.Socket.Address.t ] Unix_syscalls.Socket.Family.t ->
    string
end