fact: Variable (Σ : fo_signature) (ls : list (syms Σ)) (lr : list (rels Σ)) (X : Type) (M : fo_model Σ X) (φ : nat -> X) (Y : Type) (N : fo_model Σ Y) (ψ : nat -> Y) (i : X -> Y) (j : Y -> X) (E : forall x, i (j x) = x) (Hs : forall s v, s ∊ ls -> i (fom_syms M s v) = fom_syms N s (vec_map i v)) (Hr : forall r v, r ∊ lr -> fom_rels M r v <-> fom_rels N r (vec_map i v)).
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