proposition: Lemma vec_pos_spec {X} {n} (v : Vector.t X n) (i : Fin.t n) : vec_pos v i = Vector.nth v i.
proof: Proof. induction v; cbn; f_equal. - inversion i. - eapply (Fin.caseS' i); cbn; eauto. Qed.
imports: List Lia Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_nat) Undecidability.Shared.Libs.DLW.Vec(pos vec) Undecidability.H10(Dio.dio_single H10 Diophantine) Undecidability.MuRec.Util(recalg ra_dio_poly MuRec_computable ra_sem_eq ra_recomp)