fact: Fixpoint ilist2_pair {n} {l : Vector.t A n} (il : ilist2 l) (l' : Vector.t A' n) : Type := match n return forall (l :Vector.t A n), ilist2 l -> Vector.t A' n -> Type with | 0 => fun _ _ _ => unit | S n' => fun l il l' => @prim_prod (C (Vector.hd l') (ilist2_hd' il)) (ilist2_pair (ilist2_tl' il) (Vector.tl l')) end l il l'.
imports: Coq.Lists.List Coq.Strings.String Coq.Arith.Arith Fiat.Common.ilist Fiat.Common.ilist2