fact: Fixpoint Σunif_one_rel (A : 𝔽) : 𝔽' := match A with | ⊥ => ⊥ | fol_atom r v => @fol_atom Σ' tt (in_fot r ø##cast (convert_v v) (Ha _)) | fol_bin b A B => fol_bin b (Σunif_one_rel A) (Σunif_one_rel B) | fol_quant q A => fol_quant q (Σunif_one_rel A) end.
imports: List Arith Lia Undecidability.Shared.Libs.DLW.Utils(utils_tac) Undecidability.Shared.Libs.DLW.Vec(pos vec) Undecidability.FOL.TRAKHTENBROT(notations utils fol_ops fo_sig fo_terms fo_logic)