fact: Fixpoint copy {A} (n : nat) (x : A) : list A := match n with | 0 => nil | S n' => x::copy n' x end.
imports: Fiat.Common.Equality Fiat.Parsers.ParserFromParserADT Coq.ZArith.BinInt Fiat.Parsers.Refinement.Tactics Fiat.Common.BoolFacts Fiat.ADTNotation.BuildComputationalADT Fiat.Common.NatFacts Fiat.Parsers.StringLike.FirstCharSuchThat Coq.Strings.Ascii Coq.extraction.ExtrOcamlBasic Coq.extraction.ExtrOcamlNatInt Coq.extraction.ExtrOcamlZInt Coq.extraction.ExtrOcamlString Coq.extraction.ExtrOcamlIntConv Fiat.Parsers.ExtrOcamlPrimitives