fact: Fixpoint subst_form `{falsity_flag} (σ : nat -> term) (phi : form) : form := match phi with | falsity => falsity | atom P v => atom P (map (subst_term σ) v) | bin op phi1 phi2 => bin op (subst_form σ phi1) (subst_form σ phi2) | quant op phi => quant op (subst_form (up σ) phi) end.
imports: Undecidability.Synthetic(Definitions DecidabilityFacts EnumerabilityFacts ListEnumerabilityFacts ReducibilityFacts) Undecidability(Shared.ListAutomation) Undecidability(Shared.Libs.PSL.Vectors.Vectors)