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