fact: Definition gonly : Const := {| const_type := option False; ctype := fun o => match o with | None => alpha → alpha → alpha | Some f => match f with end end |}.
imports: List Arith Lia Morphisms Setoid Undecidability.HOU(calculus.calculus) Undecidability.HOU(unification.higher_order_unification unification.nth_order_unification concon.conservativity_constants concon.conservativity concon.constants) Undecidability.HOU(second_order.diophantine_equations second_order.goldfarb.reduction)