fact: Fixpoint fo_term_map t := match t with | in_var x => in_var (f x) | in_fot s v => in_fot s (vec_map fo_term_map v) end.
imports: List Arith 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 decidable fol_ops fo_sig)