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