fact: Definition h10uc_eq a' b' (c : nat*nat*nat) := match c with (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 1+vx+vy*vy = vz end.
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)