fact: Fixpoint BuildFinUpTo (n : nat) {struct n} : list (Fin.t n) := match n return list (Fin.t n) with | 0 => nil | S n' => cons (@Fin.F1 _) (map (@Fin.FS _) (BuildFinUpTo n')) end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Fiat.ADT.Core Bedrock.Platform.Facade.DFModule Fiat.ADTNotation Bedrock.Platform.Facade.CompileUnit2 Fiat.Common.i3list Fiat.Common.ilist3 CertifiedExtraction.Core CertifiedExtraction.FacadeUtils CertifiedExtraction.StringMapUtils CertifiedExtraction.Extraction.Internal CertifiedExtraction.Extraction.Extraction