fact: Definition tcp_input_pkt_of_pkt pkt := {| tcp_source_port := wordToN pkt.(SourcePort); tcp_dest_port := wordToN pkt.(DestPort); tcp_seq_num := wordToN pkt.(SeqNumber); tcp_ack_num := wordToN pkt.(AckNumber); tcp_ns := pkt.(NS); tcp_cwr := pkt.(CWR); tcp_ece := pkt.(ECE); tcp_ack := pkt.(ACK); tcp_psh := pkt.(PSH); tcp_rst := pkt.(RST); tcp_syn := pkt.(SYN); tcp_fin := pkt.(FIN); tcp_windowsize := wordToN pkt.(WindowSize); tcp_payload := pkt.(Payload) |}.
imports: Coq.Lists.List Fiat.Narcissus.Examples.Guard.Core