fact: Definition std_interp_f (f : syms) : vec nat (ar_syms f) -> nat := match f with | Zero => fun _ => 0 | Succ => fun v => S (Vector.hd v) | Plus => fun v => Vector.hd v + Vector.hd (Vector.tl v) | Mult => fun v => Vector.hd v * Vector.hd (Vector.tl v) end.
imports: PeanoNat Lia Vector Undecidability.SOL(SOL PA2) Undecidability.Shared.Libs.PSL(Vectors) Undecidability.SOL.Util(Syntax Subst Tarski) Undecidability.Synthetic(Definitions DecidabilityFacts EnumerabilityFacts ListEnumerabilityFacts ReducibilityFacts) Undecidability.Shared.Dec