fact: Definition addAnswersToCache (curTime : timeT) (this : QueryStructure RecResolverSchema) (answers : list resourceRecord) (authority : list resourceRecord) (additional : list resourceRecord) : Comp (QueryStructure RecResolverSchema) := `(this, _) <- @StatefulInsertAll RecResolverSchema _ _ _ this ``sCACHE () (answers ++ authority ++ additional) (@QSInsert _) (fun aal _ => ret (< sTTL :: curTime ^+ cachedTTL, sCACHETYPE :: ANSWER, sDOMAIN :: aal!sNAME, sQTYPE :: (RDataTypeToRRecordType (aal!sRDATA)), sCACHEDVALUE :: rRecord2CachedValue aal >, tt)) (fun a s => ret s); ret this.
imports: Coq.Vectors.Vector Coq.Strings.Ascii Coq.Bool.Bool Coq.Lists.List Bedrock.Word Bedrock.Memory Fiat.Computation.ListComputations Fiat.Computation.IfDec Fiat.QueryStructure.Specification.Operations.InsertAll Fiat.QueryStructure.Automation.AutoDB Fiat.Narcissus.Examples.DNS.DNSPacket Fiat.Narcissus.Formats.DomainNameOpt Fiat.Examples.DnsServer.RecursiveDNSSchema