fact: Fixpoint TruncateList {A} (a: A) n l := match n, l with | 0, _ => nil | S n, nil => a :: TruncateList a n nil | S n, h :: t => h :: TruncateList a n t end.
imports: Fiat.QueryStructure.Implementation.DataStructures.BagADT.QueryStructureImplementation Fiat.ADT.Core Bedrock.Platform.Facade.examples.TuplesF CertifiedExtraction.Utils Bedrock.Memory CertifiedExtraction.Extraction.QueryStructures.Basics