fact: Fixpoint dio_move {k k'} (P : dio_polynomial (pos k) (pos (S k'))) : dio_polynomial (pos (S k)) (pos k') := match P with | dp_nat n => dp_nat n | dp_var n => dp_var (Fin.FS n) | dp_par p => Fin.caseS' p _ (dp_var (Fin.F1)) dp_par | dp_comp op P1 P2 => dp_comp op (dio_move P1) (dio_move P2) end.
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)