fact: Fixpoint fol_syms (A : 𝔽) := match A with | ⊥ => nil | fol_atom p v => flat_map fo_term_syms (vec_list v) | fol_bin c A B => fol_syms A ++ fol_syms B | fol_quant q A => fol_syms A end.
imports: List Arith Lia Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_list utils_nat finite) Undecidability.Shared.Libs.DLW.Vec(pos vec) Undecidability.FOL.TRAKHTENBROT(notations utils fol_ops fo_sig fo_terms) Undecidability.Shared.ListAutomation