proposition: Lemma eval_same_atom t (vt:Vector.t D (ar_preds t)) : i_atom vt <-> @FullCore.i_atom _ _ D (tarski_full_tarski_interp I) t vt.
proof: Proof. destruct I. cbn. easy. Qed.
imports: Vector Undecidability.FOL(Syntax.Facts) Undecidability.FOL.Semantics.Tarski(FullFacts FragmentFacts) Undecidability.FOL.Semantics.FiniteTarski(Full Fragment) Undecidability.Shared(Dec) Undecidability.Shared.Libs.PSL(Numbers) Coq(Arith Lia List) Undecidability.Shared.Libs.DLW.Wf(wf_finite) Undecidability.Synthetic(Definitions)