fact: Fixpoint translate (phi : form') : form := match phi with | @fol_false _ => ⊥ | fol_atom tt v => atom tt (map translate_term v) | fol_bin fol_conj phi psi => translate phi ∧ translate psi | fol_bin fol_disj phi psi => translate phi ∨ translate psi | fol_bin fol_imp phi psi => translate phi → translate psi | fol_quant fol_ex phi => ∃ translate phi | fol_quant fol_fa phi => ∀ translate phi end.
imports: Undecidability.FOL(Syntax.Facts Semantics.Tarski.FullFacts Syntax.BinSig Semantics.FiniteTarski.Full) Undecidability.FOL.TRAKHTENBROT(fo_sat fo_sig fo_terms fo_logic fol_ops) Undecidability.Synthetic.DecidabilityFacts Vector Lia