fact: Definition NoIncomingConnectionsFilter : ADT StatefulFilterSig := Eval simpl in Def ADT { rep := QueryStructure Complete_PacketHistorySchema, Def Constructor0 "Init" : rep := empty,, Def Method1 "Filter" (r: rep) (inp: input) : rep * option result := res <- FilterMethod Complete_topkt Complete_totup r inp; `(r, _) <- Insert (Complete_totup inp) into r!"History"; ret (r, res) }%methDefParsing.
imports: Fiat.Narcissus.Examples.NetworkStack.IPv4Header Fiat.Narcissus.Examples.NetworkStack.TCP_Packet Bedrock.Word Coq.Arith.Arith Coq.Lists.List Fiat.QueryStructure.Automation.MasterPlan IndexedEnsembles Fiat.Narcissus.Examples.Guard.Core Fiat.Narcissus.Examples.Guard.IPTables Fiat.Narcissus.Examples.Guard.PacketFiltersLemmas Fiat.Narcissus.Examples.Guard.DropFields Coq.Sets.Ensembles