fact: Fixpoint seq_Vector (n : nat) : Vector.t (Fin.t n) n := match n return Vector.t (Fin.t n) n with | 0 => Vector.nil (Fin.t 0) | S n' => Vector.cons (Fin.t (S n')) (Fin.F1) n' (Vector.map (Fin.R 1) (seq_Vector n')) end.
imports: Undecidability(TM.SBTM) PeanoNat Lia List ssreflect ssrbool ssrfun