One commutative-aggregate map suffices: constant-surplus common holes against any second map (Erdős 624)
ProvedErdos624.one_structured_mapLet be a finite set with elements. For a map and write . For let be the set of -subsets .
Let be a finite commutative monoid, and arbitrary, and let (a commutative-aggregate map). Write .
Theorem. Let and with
Then there is a core with (depending only on ) such that for every map ,
So and an arbitrary second map miss, on average over the -sets through , at least common points. Context: Erdős Problem 624 asks whether , where is the least such that some () satisfies for all . By an earlier track-amplification result it would suffice to show that, for large , any two maps with have a common hole: a -set and a point missed by both maps on . This handles the case where one of the two maps is a commutative aggregate; the other map is unrestricted. These results do not settle Problem 624.
Formalization Note. Counting form with natural numbers (truncated subtraction is harmless since ); is an arbitrary Fintype with Fintype.card U = 2 ^ k.
import Mathlib import Definitions.Def_Erdos624_defs open Finset
namespace Erdos624
theorem one_structured_map {U : Type*} [Fintype U] [DecidableEq U] {M : Type*} [CommMonoid M] [Fintype M]
(k t d : ℕ) (hk : 3 ≤ k) (hU : Fintype.card U = 2 ^ k) (v : U → M) (ψ : M → U)
(h7 : Fintype.card M < (2 ^ k - 2 * t * (d - 1)).choose t)
(hd : 2 * t * d ≤ k - 2) (hb : 64 * (2 ^ (2 * t) - 1) ^ d ≤ (2 ^ (2 * t)) ^ d) :
∃ S : Finset U, #S ≤ k - 2 ∧ ∀ g : Finset U → U,
2 ^ k * #((powersetCard k (univ : Finset U)).filter (fun Y => S ⊆ Y)) ≤
64 * ∑ Y ∈ (powersetCard k (univ : Finset U)).filter (fun Y => S ⊆ Y),
(2 ^ k - #(Y.powerset.image (fun A => ψ (∏ x ∈ A, v x)) ∪ Y.powerset.image g)) := by sorry
end Erdos624