fact: Definition f (h: Heading) (topkt: @Tuple h -> input) (totup: input -> @Tuple h) (r: UnConstrQueryStructure (PacketHistorySchema h)) (inp: input) := If sent_to_me inp Then <ACCEPT> Else with r (In_History totup), if historically flag_true then <ACCEPT> else <DROP>.
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