sig
  type tag_t = [ `AF_INET ]
  type address_t = Cf_ip4_addr.opaque Cf_ip4_addr.t * int
  val domain : tag_t Cf_socket.domain_t
  val to_sockaddr : address_t -> tag_t Cf_socket.sockaddr_t
  val of_sockaddr : tag_t Cf_socket.sockaddr_t -> address_t
  val unspecified : tag_t Cf_socket.sockaddr_t
end