fact: Fixpoint Σ11_words (A : fol_form Σ11) : list (list X) := match A with | ⊥ => nil | fol_atom r v => (fot_word (vec_pos v pos0))::nil | fol_bin _ A B => Σ11_words A++Σ11_words B | fol_quant _ A => Σ11_words A end.
imports: List Arith Bool Lia Eqdep_dec 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 fo_logic fo_sat Sig_no_syms)