fact: Variable (M : fo_model Σ' X) (Xfin : finite_t X) (Mdec : fo_model_dec M) (He : forall x y, fom_rels M e (x##y##ø) <-> x = y) (φ : nat -> X) (HM : fol_sem M φ (Σsyms_Σnosyms ls A)).
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 fol_ops fo_sig utils fo_terms fo_logic fo_sat) Undecidability.Shared.ListAutomation