fact: Fixpoint list2Telescope av (l : list {T : _ & prod (NameTag av T) (Comp T)}) : Telescope av:= match l with | nil => Nil | cons a l' => Cons (fst (projT2 a)) (snd (projT2 a)) (fun _ => list2Telescope l') 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