fact: Definition h10uc_test a' b' x y z := let vx := godel_beta a' b' x in let vy := godel_beta a' b' y in let vz := godel_beta a' b' z in if eq_nat_dec (1+vx+vy*vy) vz then 0 else 1.
imports: List Arith Lia Undecidability.Shared.Libs.DLW(utils_tac utils_nat utils_list crt pos vec) Undecidability.MuRec.Util(recalg ra_utils ra_enum recomp ra_recomp beta ra_godel_beta) Undecidability.DiophantineConstraints(H10C Util.h10c_utils)