fact: Fixpoint join {X n} (v : t X n) (rho : nat -> X) := match v with | Vector.nil _ => rho | Vector.cons _ x n w => join w (x.:rho) end.
imports: Undecidability.FOL.Arithmetics(FA Signature) Undecidability.FOL(PA) Lia List Vector