fact: Fixpoint eval (p : poly) (L : list nat) := match p with | poly_cnst n => n | poly_var n => nth n L 0 | poly_add p1 p2 => eval p1 L + eval p2 L | poly_mul p1 p2 => eval p1 L * eval p2 L end.
imports: Undecidability.H10(H10 dio_single dio_logic) Undecidability.PCP.Util.PCP_facts Undecidability.Shared.Libs.PSL.FiniteTypes Undecidability.L.Datatypes(LNat LProd) Undecidability.L(Tactics.LTactics Computability.MuRec Computability.Synthetic Tactics.GenEncode) Undecidability.Shared.Libs.DLW.Vec(pos) Undecidability.L.Datatypes.List(List_basics List_extra) Nat Datatypes