fact: Fixpoint embed_poly p : term := match p with | dp_nat_pfree n => num n | dp_var_pfree k => $k | dp_comp_pfree do_add_pfree a b => (embed_poly a) ⊕ (embed_poly b) | dp_comp_pfree do_mul_pfree a b => (embed_poly a) ⊗ (embed_poly b) end.
imports: Undecidability.Synthetic.Definitions Undecidability.FOL(Syntax.Facts Deduction.FullNDFacts Semantics.Tarski.FullFacts Semantics.Tarski.FullSoundness) Undecidability.FOL.PA Undecidability.FOL.Arithmetics(TarskiFacts DeductionFacts NatModel) Undecidability.H10(H10p) List Lia