fact: Definition embed (x : H10_PROBLEM) : H10p_PROBLEM := let (n, x) := x in let (p, q) := x in (embed_poly p, embed_poly q).
imports: Undecidability.H10(H10 Dio.dio_single H10p) Undecidability.Synthetic.Definitions Fin