fact: Fixpoint fol_rels (A : 𝔽) := match A with | ⊥ => nil | fol_atom p v => p::nil | fol_bin c A B => fol_rels A ++ fol_rels B | fol_quant q A => fol_rels 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