Tcp.Statetype action = | Passive_open| Recv_rst| Recv_synack of Sequence.t| Recv_ack of Sequence.t| Recv_fin| Send_syn of Sequence.t| Send_synack of Sequence.t| Send_rst| Send_fin of Sequence.t| Timeoutval pp_action : Format.formatter -> action -> unittype tcpstate = | Closed| Listen| Syn_rcvd of Sequence.t| Syn_sent of Sequence.t| Established| Close_wait| Last_ack of Sequence.t| Fin_wait_1 of Sequence.t| Fin_wait_2 of int| Closing of Sequence.t| Time_wait| Resetval pp_tcpstate : Format.formatter -> tcpstate -> unitval on_close : t -> unitval pp : Format.formatter -> t -> unit