fact: Definition cond_proto (proto: EnumType ["ICMP"; "TCP"; "UDP"]) : condition ipv4_input_pkt := fun pkt => N.eqb pkt.(ipv4_protocol) (N_of_fin proto).
imports: Coq.Lists.List Fiat.Narcissus.Examples.Guard.Core Coq.Vectors.Vector