fact: Fixpoint Σn_Σ2 (d r : nat) (A : fol_form Σn) : fol_form Σ2 := match A with | ⊥ => ⊥ | fol_atom _ v => r ∋ ⦉vec_map Σrel_var v⦊ | fol_bin b A B => fol_bin b (Σn_Σ2 d r A) (Σn_Σ2 d r B) | fol_quant fol_fa A => ∀ 0 ∈ (S d) ⤑ Σn_Σ2 (S d) (S r) A | fol_quant fol_ex A => ∃ 0 ∈ (S d) ⟑ Σn_Σ2 (S d) (S r) A end.
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.Shared.Libs.DLW.Wf(wf_finite) Undecidability.FOL.TRAKHTENBROT(notations decidable fol_ops fo_sig fo_terms fo_logic fo_sat membership hfs reln_hfs)