proposition: Lemma seq_Vector_spec {n} (q : Fin.t n) : VectorDef.nth (seq_Vector n) q = q.
proof: Proof. elim: q; first done. move=> {}n q IH /=. by rewrite (Vector.nth_map _ _ q q erefl) IH. Qed.
imports: Undecidability(TM.SBTM) PeanoNat Lia List ssreflect ssrbool ssrfun