fact: Definition dio_rec_single_n := { m : nat & { p : dio_polynomial (pos m) (pos n) & { q : dio_polynomial (pos m) (pos n) | forall v, P v <-> exists w, ⟦p⟧ (vec_pos w) (vec_pos v) = ⟦q⟧ (vec_pos w) (vec_pos v) } } }.
imports: List Arith Undecidability.Shared.Libs.DLW(utils_tac utils_list sums pos vec subcode sss) Undecidability.MinskyMachines(mm_defs) Undecidability.FRACTRAN(FRACTRAN mm_fractran prime_seq FRACTRAN_sss) Undecidability.H10.Fractran(fractran_dio) Undecidability.H10.Dio(dio_logic dio_elem dio_single) Undecidability.MuRec.Util(recalg ra_utils recomp ra_recomp ra_dio_poly ra_mm ra_simul)