fact: Definition FilterMethodGen {h T} cont (topkt: @Tuple h -> input) (totup: input -> @Tuple h) (r: T) (inp: input) := If OutgoingRule.(cf_cond) inp Then <ACCEPT> Else ( If negb (IncomingRule.(cf_cond) inp) Then ret None Else with r (cont totup), if historically (OutgoingToRule' inp) then <ACCEPT> else <DROP>).
imports: Fiat.Narcissus.Examples.NetworkStack.IPv4Header Fiat.Narcissus.Examples.NetworkStack.TCP_Packet Bedrock.Word Coq.Arith.Arith Coq.Lists.List Fiat.QueryStructure.Automation.MasterPlan Fiat.Common.Ensembles.IndexedEnsembles Fiat.Narcissus.Examples.Guard.Core Fiat.Narcissus.Examples.Guard.IPTables Fiat.Narcissus.Examples.Guard.PacketFiltersLemmas Fiat.Narcissus.Examples.Guard.DropFields