fact: Fixpoint RepWrapperT av {n} {A : Type} {B : A -> Type} (C : forall a, B a -> Type) (As : Vector.t A n) : ilist3 (B := B) As -> Type := match As return ilist3 (B := B) As -> Type with | Vector.nil => fun il => unit | Vector.cons a _ As' => fun il => prod (FacadeWrapper av (C a (prim_fst il))) (RepWrapperT av C _ (prim_snd il)) 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