fact: Definition h10c_nat (c : h10c) := match c with | h10c_one x => recomp 0 x | h10c_plus x y z => recomp 1 (recomp z (recomp x y)) | h10c_mult x y z => recomp 2 (recomp z (recomp x y)) end.
imports: List Arith Lia Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_nat utils_list) Undecidability.Shared.Libs.DLW.Vec(pos vec) Undecidability.MuRec.Util(recalg ra_utils ra_enum recomp ra_recomp beta ra_godel_beta) Undecidability.DiophantineConstraints(H10C Util.h10c_utils)