fact: Fixpoint fol_height A := match A with | ⊥ => 1 | fol_atom p v => 1 | fol_bin c A B => 1 + max (fol_height A) (fol_height B) | fol_quant q A => 1 + fol_height A end.
imports: List Arith Lia Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_list utils_nat finite) Undecidability.Shared.Libs.DLW.Vec(pos vec) Undecidability.FOL.TRAKHTENBROT(notations utils fol_ops fo_sig fo_terms) Undecidability.Shared.ListAutomation