Documentation

LeanPool.ThreeGap.LinftyFiveDistanceSharpArith

Arithmetic sharpness of the L∞ five-distance theorem g_∞ ≀ 5 on 𝕋² (dynamics-free) #

nnDist_count_plane_unconditional proves the upper bound: any Kronecker orbit on 𝕋² has at most five distinct sup-norm nearest-neighbour distances (the d = 2 case of Shutov's 2^d + 1). This file shows the bound is sharp by an explicit, dynamics-free witness, mirroring the Euclidean EuclideanRecords.sharp_attained but with the L∞ (sup-norm) defect, which is integer-exact: delta Ξ±* d = max(|r(4d)|, |r(15d)|)/47 for balanced residues mod 47 β€” no square roots.

The witness #

Ξ±* = (4/47, 15/47), N = 13. The scaled sup-norm defects M_d = max(|r(4d)|, |r(15d)|) for d = 1,…,13 are

[15, 17, 12, 16, 20, 23, 19, 21, 11, 9, 23, 8, 7],

with record minima at d = 1, 3, 9, 10, 12, 13 (values 15 > 12 > 11 > 9 > 8 > 7). The four records inside the doubling window (⌈13/2βŒ‰, 13] = (7, 13] are 9, 10, 12, 13 β€” giving the five distinct distances 12/47 > 11/47 > 9/47 > 8/47 > 7/47, realized at q = 6, 4, 3, 1, 0 (cutoffs D = 7, 9, 10, 12, 13).

Method (cross-field reuse) #

The minimax identity min_p max_k |dΞ±_k βˆ’ p_k| = max_k min_{p_k}|dΞ±_k βˆ’ p_k| (independent coordinates) makes the sup-norm defect exactly the max of two balanced residues β€” so every comparison is between integers, and the rationalβ†’irrational transport gap is linear (no √-gap): s ∈ (0, 1/1222) suffices. The combinatorial core (five_le_card_image_of_strictAnti_chain, inf_lt_inf) and the integer minimum (sq_residue_le) are reused verbatim from the Euclidean development.

noncomputable def ThreeGap.LinftyRecords.astar :
Fin 2 β†’ ℝ

The L∞ rational witness α* = (4/47, 15/47).

Equations
Instances For
    theorem ThreeGap.LinftyRecords.abs_residue_le (m r a : β„€) (hm : 0 < m) (h2r : 2 * |r| ≀ m) (hcong : m ∣ a - r) (k : β„€) :
    |↑r| ≀ |↑a - ↑m * ↑k|

    Per-coordinate integer minimum (L∞ crux). The balanced residue |r| lower-bounds |a βˆ’ mΒ·k| for every k β€” the absolute-value version of sq_residue_le.

    theorem ThreeGap.LinftyRecords.delta_astar (d nβ‚€ n₁ rβ‚€ r₁ M : β„€) (hr0 : 4 * d = rβ‚€ + 47 * nβ‚€) (hr1 : 15 * d = r₁ + 47 * n₁) (hb0 : 2 * |rβ‚€| ≀ 47) (hb1 : 2 * |r₁| ≀ 47) (hM0 : |rβ‚€| ≀ M) (hM1 : |r₁| ≀ M) (hMa : M = |rβ‚€| ∨ M = |r₁|) :
    SimApprox.delta astar d = ↑M / 47

    The witness defect is coordinatewise-exact. With Ξ±* = (4/47, 15/47), balanced residues 4d ≑ rβ‚€, 15d ≑ r₁ (mod 47) give delta Ξ±* d = M/47, where M = max(|rβ‚€|, |r₁|) (provided as M with |rβ‚€| ≀ M, |r₁| ≀ M, M ∈ {|rβ‚€|, |r₁|}). Upper bound at the rounding (nβ‚€, n₁); lower bound coordinatewise via abs_residue_le and norm_le_pi_norm (the sup norm dominates each coordinate).

    The thirteen witness defects delta Ξ±* d = M_d/47, d = 1,…,13, with M_d = [15,17,12,16,20,23,19,21,11,9,23,8,7] β€” from delta_astar at the balanced residues of 4d, 15d mod 47.

    nnDist as a prefix-minimum, and card β‰₯ 5 from the four record drops #

    theorem ThreeGap.LinftyRecords.nnDist_eq_inf (Ξ± : Fin 2 β†’ ℝ) {q : β„•} (hq : q ≀ 13) (hne : (Finset.Icc 1 (max q (13 - q))).Nonempty) :
    DeltaCost.nnDist Ξ± 13 q = (Finset.Icc 1 (max q (13 - q))).inf' hne fun (n : β„•) => SimApprox.delta Ξ± ↑n

    nnDist as a prefix-minimum of the L∞ defect. nnDist Ξ± 13 q is the infimum of delta Ξ± d over d ∈ [1, max(q, 13βˆ’q)] (via the repo's gapVal_eq_nnDist).

    theorem ThreeGap.LinftyRecords.card_ge_five (Ξ± : Fin 2 β†’ ℝ) (H1 : βˆ€ n ∈ Finset.Icc 1 7, SimApprox.delta Ξ± 9 < SimApprox.delta Ξ± ↑n) (H2 : βˆ€ n ∈ Finset.Icc 1 9, SimApprox.delta Ξ± 10 < SimApprox.delta Ξ± ↑n) (H3 : βˆ€ n ∈ Finset.Icc 1 10, SimApprox.delta Ξ± 12 < SimApprox.delta Ξ± ↑n) (H4 : βˆ€ n ∈ Finset.Icc 1 12, SimApprox.delta Ξ± 13 < SimApprox.delta Ξ± ↑n) :

    card β‰₯ 5 from the four record drops. If the defect drops strictly below the whole preceding prefix at d = 9, 10, 12, 13, then the five nnDist Ξ± 13 q at q = 6, 4, 3, 1, 0 are strictly decreasing, so the image has β‰₯ 5 elements.

    Rational β†’ irrational upgrade by Lipschitz-openness #

    theorem ThreeGap.LinftyRecords.delta_sub_le (Ξ± Ξ² : Fin 2 β†’ ℝ) (d : β„€) :
    SimApprox.delta Ξ± d ≀ SimApprox.delta Ξ² d + |↑d| * β€–Ξ± - Ξ²β€–

    delta Β· d is |d|-Lipschitz in Ξ±. (Both are distances to the lattice; perturbing Ξ± by Ξ± βˆ’ Ξ² moves dΒ·Ξ± by dΒ·(Ξ±βˆ’Ξ²).)

    noncomputable def ThreeGap.LinftyRecords.aprt (s : ℝ) :
    Fin 2 β†’ ℝ

    The perturbed witness Ξ±* + (s, 0) = (4/47 + s, 15/47).

    Equations
    Instances For
      theorem ThreeGap.LinftyRecords.transport (s : ℝ) (hs0 : 0 ≀ s) (m n : β„€) (Mm Mn : ℝ) (hm : SimApprox.delta astar m = Mm / 47) (hn : SimApprox.delta astar n = Mn / 47) (hgap : 47 * ((|↑m| + |↑n|) * s) < Mn - Mm) :

      Transport a defect inequality from Ξ±* to the perturbed witness.

      theorem ThreeGap.LinftyRecords.Hpair (s : ℝ) (hs0 : 0 ≀ s) (hsmall : 1222 * s < 1) (m n Mm Mn : β„€) (hm : SimApprox.delta astar m = ↑Mm / 47) (hn : SimApprox.delta astar n = ↑Mn / 47) (hc : |↑m| + |↑n| ≀ 26) (hgapZ : Mm + 1 ≀ Mn) :

      Bundles transport for an integer record gap: once s is small (1222Β·s < 1), an integer defect drop Mm + 1 ≀ Mn transports from Ξ±* to aprt s.

      theorem ThreeGap.LinftyRecords.H1_aprt (s : ℝ) (hs0 : 0 ≀ s) (hsmall : 1222 * s < 1) (n : β„•) :
      n ∈ Finset.Icc 1 7 β†’ SimApprox.delta (aprt s) 9 < SimApprox.delta (aprt s) ↑n
      theorem ThreeGap.LinftyRecords.H2_aprt (s : ℝ) (hs0 : 0 ≀ s) (hsmall : 1222 * s < 1) (n : β„•) :
      n ∈ Finset.Icc 1 9 β†’ SimApprox.delta (aprt s) 10 < SimApprox.delta (aprt s) ↑n
      theorem ThreeGap.LinftyRecords.H3_aprt (s : ℝ) (hs0 : 0 ≀ s) (hsmall : 1222 * s < 1) (n : β„•) :
      n ∈ Finset.Icc 1 10 β†’ SimApprox.delta (aprt s) 12 < SimApprox.delta (aprt s) ↑n
      theorem ThreeGap.LinftyRecords.H4_aprt (s : ℝ) (hs0 : 0 ≀ s) (hsmall : 1222 * s < 1) (n : β„•) :
      n ∈ Finset.Icc 1 12 β†’ SimApprox.delta (aprt s) 13 < SimApprox.delta (aprt s) ↑n
      theorem ThreeGap.LinftyRecords.sharp_attained :
      βˆƒ (Ξ± : Fin 2 β†’ ℝ), (βˆƒ (k : Fin 2), Irrational (Ξ± k)) ∧ βˆƒ (N : β„•), 2 ≀ N ∧ (Finset.image (DeltaCost.nnDist Ξ± N) (Finset.range (N + 1))).card = 5

      Arithmetic sharpness of the L∞ five-distance theorem g_∞ ≀ 5 on 𝕋². There is a Kronecker vector Ξ± with an irrational coordinate and an N β‰₯ 2 for which the orbit {0, Ξ±, …, NΞ±} on 𝕋² realizes exactly five distinct sup-norm nearest-neighbour distances β€” so the bound nnDist_count_plane_unconditional is sharp. The witness is Ξ± = (4/47 + s, 15/47) for a small irrational s: card β‰₯ 5 transports from the rational Ξ±* (Lipschitz), card ≀ 5 is the five-distance theorem itself. Entirely elementary β€” no homogeneous dynamics.