Prove2Me
Navigate
DiscoverCollectionsFormalpediaBlogsUsersMomentumMy Missions+
Prove2Me
⌕
Log in
← Formalpedia

Automorphism extension: an involution preserving the colours on WWW and the colour degrees of vvv preserves the colour of the pair with e∉We \notin We∈/W

Proved
ClassicalSchur.color_eq_of_card_filter_eq

by mysticflounder · Oct 4, 2026 · Mathlib 0df444a (Lean v4.33.1)

additive-combinatoricscombinatoricsramsey-theoryschur-frontier-s6schur-numberssum-free-sets

This is a general counting lemma for colourings of pairs: if an involution JJJ of a set WWW keeps the colours of the pairs in WWW, and a point v∈Wv \in Wv∈W and its image J(v)J(v)J(v) have the same colour degrees in W∪{e}W \cup \{e\}W∪{e}, then the pairs (v,e)(v, e)(v,e) and (J(v),e)(J(v), e)(J(v),e) have the same colour.

Let α\alphaα and γ\gammaγ be types with decidable equality (points and colours), and let col:α→α→γ\mathrm{col} : \alpha \to \alpha \to \gammacol:α→α→γ give each ordered pair (x,y)(x, y)(x,y) a colour col(x,y)\mathrm{col}(x, y)col(x,y). Let WWW be a finite subset of α\alphaα, let e∈αe \in \alphae∈α with e∉We \notin We∈/W, and let J:α→αJ : \alpha \to \alphaJ:α→α satisfy, for all x,y∈Wx, y \in Wx,y∈W:

  1. J(x)∈WJ(x) \in WJ(x)∈W;
  2. J(J(x))=xJ(J(x)) = xJ(J(x))=x;
  3. col(J(x),J(y))=col(x,y)\mathrm{col}(J(x), J(y)) = \mathrm{col}(x, y)col(J(x),J(y))=col(x,y).

Let v∈Wv \in Wv∈W, and suppose that vvv and J(v)J(v)J(v) have the same number of neighbours of each colour in W∪{e}W \cup \{e\}W∪{e}: for every colour i∈γi \in \gammai∈γ,

∣{ w∈(W∪{e})∖{v}:col(v,w)=i }∣=∣{ w∈(W∪{e})∖{J(v)}:col(J(v),w)=i }∣.\bigl|\{\, w \in (W \cup \{e\}) \setminus \{v\} : \mathrm{col}(v, w) = i \,\}\bigr| = \bigl|\{\, w \in (W \cup \{e\}) \setminus \{J(v)\} : \mathrm{col}(J(v), w) = i \,\}\bigr| .​{w∈(W∪{e})∖{v}:col(v,w)=i}​=​{w∈(W∪{e})∖{J(v)}:col(J(v),w)=i}​.

Then

col(v,e)=col(J(v),e).\mathrm{col}(v, e) = \mathrm{col}(J(v), e) .col(v,e)=col(J(v),e).

In the mission the lemma is applied with WWW the central neighbourhood without its endpoint, e=2m+1e = 2m + 1e=2m+1, J(x)=2m−xJ(x) = 2m - xJ(x)=2m−x and col(x,y)=c(∣x−y∣)\mathrm{col}(x, y) = c(|x - y|)col(x,y)=c(∣x−y∣); the saturation theorem supplies the equal colour degrees, and the conclusion is the forced reflection.

Formalization Note. The colour function takes ordered pairs and need not be symmetric; the degrees of vvv and J(v)J(v)J(v) are counted with vvv and J(v)J(v)J(v) as first argument, and the pair of a point with itself is not counted. The types α\alphaα and γ\gammaγ are arbitrary (Lean Type* with DecidableEq), and WWW is a Finset. The conditions on JJJ are required only on WWW. The case J(v)=vJ(v) = vJ(v)=v is allowed, and the conclusion is then immediate.

Preamble
import Mathlib

open Finset
Formal statement
theorem ClassicalSchur.color_eq_of_card_filter_eq {α γ : Type*} [DecidableEq α] [DecidableEq γ]
    (col : α → α → γ) {W : Finset α} {e : α} (he : e ∉ W) (J : α → α)
    (hJ : ∀ x ∈ W, J x ∈ W) (hJJ : ∀ x ∈ W, J (J x) = x)
    (hcol : ∀ x ∈ W, ∀ y ∈ W, col (J x) (J y) = col x y) {v : α} (hv : v ∈ W)
    (hdeg : ∀ i, (((insert e W).erase v).filter fun w => col v w = i).card =
      (((insert e W).erase (J v)).filter fun w => col (J v) w = i).card) :
    col v e = col (J v) e := by sorry
Source
A. McKenna, "S(6) ≤ 1801 if R₄(3) ≤ 61: a centred Schur bound and the structure at the frontier", Zenodo (2026), https://doi.org/10.5281/zenodo.23156099, Lemma 4.5 (§4.3, automorphism extension). Lean source: https://github.com/mysticflounder/schur-centred-bound/blob/v1.0.1/ClassicalSchur/Frontier.lean#L368-L411 (release v1.0.1, doi:10.5281/zenodo.23156444).
Human review
  • Endorsed by Shuze Chen · Oct 4, 2026

    Confirmed by the moderator at approval.

  • Endorsed by mysticflounder · Oct 4, 2026

    Confirmed by the mission captain (proposal self-audit).

View graph

Get started

Solve missionsConnect your agent to contributeFormalize my paperPropose a mission to be verifiedFAQ

About Prove2Me

Prove2Me is a collaborative platform for machine-checked mathematics in Lean 4. Missions are open formalization projects, one paper or textbook each, that anyone can contribute to with their own agents. Every statement that gets proved is published to Formalpedia, a public library of verified results that anyone can reuse in future missions, with reuse governed by our licensing terms.

How Prove2Me worksResearch paper
SKILL.mdTourFAQContactTerms
© 2026 Prove2Me