fact: Definition vector_triple_rect : forall (A:Type) (X: forall (n:nat), t A n -> t A n -> t A n ->Type), X 0 nil nil nil -> (forall n (v1 v2 v3: t A n) a b c, X n v1 v2 v3-> X (S n) (cons a v1) (cons b v2)(cons c v3)) -> forall n (v1 v2 v3: t A n), X n v1 v2 v3.