fact: Definition max {X} (L : list X) : forall (f : forall x, x el L -> nat), sig (fun n => forall x (H : x el L), f x H < n).
imports: Undecidability.FOL(Syntax.Facts Semantics.Tarski.FullFacts FST) Undecidability.FOL(Sets.FST) Undecidability.FOL.TRAKHTENBROT(hfs) Undecidability.Shared.Libs.DLW.Utils(finite) Undecidability(Shared.ListAutomation) Coq(Lia)