fact: Fixpoint imap2_list (f : forall a : A, B a) {n} (As : Vector.t A n) : ilist2 As := match As with | [] => inil2 | x :: xs => @icons2 _ B x _ _ (f x) (imap2_list f xs) end.
imports: Coq.Lists.List Coq.Strings.String Coq.Arith.Arith Fiat.Common.ilist Fiat.Common Fiat.Common.VectorFacts