fact: Definition guard_process_packet (rep: ComputationalADT.cRep GuardImpl) (bs: bytes) (chain: IPTables.chain) : (ComputationalADT.cRep GuardImpl * option result) := match IPTables.input_of_bytes chain bs with | Some input => simp (CallMethod GuardImpl "Filter" rep input) | None => (rep, Some DROP) end.
imports: Narcissus.Examples.Guard.StatefulGuard Fiat.QueryStructure.Automation.MasterPlan Narcissus.Examples.Guard.Core Narcissus.OCamlExtraction.Extraction