fact: Definition acc2head : list (accessor * string) := [ (acc (in_ip4 // ipv4_len), "TotalLength"); (acc (in_ip4 // ipv4_id), "Identifier"); (acc (in_ip4 // ipv4_df), "DontFragment"); (acc (in_ip4 // ipv4_mf), "MultipleFragments"); (acc (in_ip4 // ipv4_fragment_offset), "FragmentOffset"); (acc (in_ip4 // ipv4_ttl), "TTL"); (acc (in_ip4 // ipv4_protocol), "Protocol"); (acc (in_ip4 // ipv4_source), "SourceAddress"); (acc (in_ip4 // ipv4_dest), "DestAddress"); (acc in_tsp, "TransportLayerPacket"); (acc in_chn, "Chain") ].
imports: Bedrock.Word Coq.Vectors.Vector IndexedEnsembles Fiat.Common.ilist2 Fiat.Common.EnumType Fiat.QueryStructure.Specification.Representation.QueryStructureNotations Fiat.Narcissus.Examples.Guard.Core Fiat.Narcissus.Examples.Guard.IPTables IPTables