fact: Definition ipv4_input_pkt_of_pkt pkt := {| ipv4_len := wordToN (pkt.(TotalLength)); ipv4_id := wordToN (pkt.(ID)); ipv4_df := pkt.(DF); ipv4_mf := pkt.(MF); ipv4_fragment_offset := wordToN (pkt.(FragmentOffset)); ipv4_ttl := wordToN (pkt.(TTL)); ipv4_protocol := N_of_fin pkt.(Protocol); ipv4_source := wordToN (pkt.(SourceAddress)); ipv4_dest := wordToN (pkt.(DestAddress)) |}.
imports: Coq.Lists.List Fiat.Narcissus.Examples.Guard.Core