fact: Definition RefinedInsert h totup r d := If cf_cond OutgoingRule d Then (idx <- {idx: nat | UnConstrFreshIdx (r!"History")%QueryImpl idx}; ret (UpdateUnConstrRelation r (myqidx h) (BuildADT.EnsembleInsert {| elementIndex := idx; indexedElement := totup d |} (r!"History")%QueryImpl))) Else ret r.
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