fact: Fixpoint fol_vars A := match A with | ⊥ => nil | fol_atom p v => flat_map fo_term_vars (vec_list v) | fol_bin c A B => fol_vars A ++ fol_vars B | fol_quant q A => flat_map (fun n => match n with 0 => nil | S n => n::nil end) (fol_vars 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