Tcp.StateSourcetype 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| Timeouttype 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| Reset