sig
  type tag = [ `AF_INET ]
  type address = Cf_ip4_addr.opaque Cf_ip4_addr.t * int
  val domain : tag Cf_socket.domain
  val to_sockaddr : address -> tag Cf_socket.sockaddr
  val of_sockaddr : tag Cf_socket.sockaddr -> address
  val unspecified : tag Cf_socket.sockaddr
end