fact: Fixpoint Σ_Σ0 (A : fol_form Σ) := match A with | ⊥ => ⊥ | fol_atom r _ => @fol_atom Σ0 r vec_nil | fol_bin b A B => fol_bin b (Σ_Σ0 A) (Σ_Σ0 B) | fol_quant q A => fol_quant q (Σ_Σ0 A) end.
imports: List Arith Lia Max 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 fo_terms fo_logic fo_sat)