Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 0 additions & 2 deletions FormalConjectures/GreensOpenProblems/19.lean
Original file line number Diff line number Diff line change
Expand Up @@ -51,8 +51,6 @@ noncomputable def S (d : G) (A : Finset (G Γ— G)) : Finset (G Γ— G) :=

end GroupDefs

/-- The group $G = \mathbb{F}_2^n = (Z/2Z)^n$. -/
abbrev 𝔽₂ (n : β„•) := Fin n β†’ ZMod 2

/--
True if the given exponent satisfies Green's conditions [Gr26].
Expand Down
5 changes: 0 additions & 5 deletions FormalConjectures/GreensOpenProblems/26.lean
Original file line number Diff line number Diff line change
Expand Up @@ -33,11 +33,6 @@ open scoped Pointwise

namespace Green26

/-- The vector space $\mathbb{F}_p^n$. -/
abbrev 𝔽 (p n : β„•) [Fact p.Prime] := Fin n β†’ ZMod p

/-- The vector space $\mathbb{F}_3^n$. -/
abbrev 𝔽₃ (n : β„•) := 𝔽 3 n

/-- The standard cube in $\mathbb{F}_p^n$ is the set of points with coordinates in $\{0, 1\}$. -/
def StandardCube {p : β„•} [Fact p.Prime] (n : β„•) : Set (𝔽 p n) :=
Expand Down
8 changes: 4 additions & 4 deletions FormalConjectures/GreensOpenProblems/31.lean
Original file line number Diff line number Diff line change
Expand Up @@ -137,8 +137,8 @@ where $N = 2^n$ [Gr24].
-/
@[category research open, AMS 5 11]
theorem green_31.variants.sidon_01n : answer(sorry) ↔
βˆƒ S : (n : β„•) β†’ Finset (Fin n β†’ ZMod 2),
(βˆ€ n, IsSidon (S n : Set (Fin n β†’ ZMod 2))) ∧
βˆƒ S : (n : β„•) β†’ Finset (𝔽₂ n),
(βˆ€ n, IsSidon (S n : Set (𝔽₂ n))) ∧
βˆ€αΆ  n in atTop, ((2 : ℝ) ^ n) ^ (0.51 : ℝ) ≀ (S n).card := by
sorry

Expand All @@ -147,8 +147,8 @@ The best-known upper bound for a Sidon subset of $\{0, 1\}^n$ ($N = 2^n$) is $N^
-/
@[category research solved, AMS 5 11]
theorem green_31.variants.sidon_01n_clz01 :
βˆƒ C : ℝ, βˆ€ n, βˆ€ S : Finset (Fin n β†’ ZMod 2),
IsSidon (S : Set (Fin n β†’ ZMod 2)) β†’ (S.card : ℝ) ≀ C * ((2 : ℝ) ^ n) ^ (0.5753 : ℝ) := by
βˆƒ C : ℝ, βˆ€ n, βˆ€ S : Finset (𝔽₂ n),
IsSidon (S : Set (𝔽₂ n)) β†’ (S.card : ℝ) ≀ C * ((2 : ℝ) ^ n) ^ (0.5753 : ℝ) := by
sorry

end Green31
10 changes: 5 additions & 5 deletions FormalConjectures/GreensOpenProblems/32.lean
Original file line number Diff line number Diff line change
Expand Up @@ -135,14 +135,14 @@ theorem green_32.variants.log_regime :
A set $A$ has a coset hole of size $L$ if there exists a subspace $W$ and a vector $v$ such that
the affine space $v + W$ has size at least $L$ and is disjoint from $A$.
-/
def HasCosetHole {n : β„•} (A : Finset (Fin n β†’ ZMod 2)) (L : β„•) : Prop :=
βˆƒ W : Submodule (ZMod 2) (Fin n β†’ ZMod 2), βˆƒ v : Fin n β†’ ZMod 2,
L ≀ Nat.card W ∧ βˆ€ w : W, v + (w : Fin n β†’ ZMod 2) βˆ‰ A
def HasCosetHole {n : β„•} (A : Finset (𝔽₂ n)) (L : β„•) : Prop :=
βˆƒ W : Submodule (ZMod 2) (𝔽₂ n), βˆƒ v : 𝔽₂ n,
L ≀ Nat.card W ∧ βˆ€ w : W, v + (w : 𝔽₂ n) βˆ‰ A

/-- The empty set in $\mathbb{F}_2^n$ has a coset hole (using the trivial subspace). -/
@[category test, AMS 5 11]
theorem hasCosetHole_empty (n : β„•) :
HasCosetHole (βˆ… : Finset (Fin n β†’ ZMod 2)) 0 := by
HasCosetHole (βˆ… : Finset (𝔽₂ n)) 0 := by
exact ⟨βŠ₯, 0, Nat.zero_le _, fun _ => by simp⟩

/--
Expand All @@ -153,7 +153,7 @@ size at least $100\sqrt{N}$ for sufficiently large $n$.
@[category research solved, AMS 5 11]
theorem green_32.variants.finite_field :
βˆ€αΆ  n in atTop,
βˆ€ A : Finset (Fin n β†’ ZMod 2), A.card = ⌊Real.sqrt (2^n : ℝ)βŒ‹β‚Š β†’
βˆ€ A : Finset (𝔽₂ n), A.card = ⌊Real.sqrt (2^n : ℝ)βŒ‹β‚Š β†’
HasCosetHole A ⌊100 * Real.sqrt (2^n : ℝ)βŒ‹β‚Š := by
sorry

Expand Down
2 changes: 0 additions & 2 deletions FormalConjectures/GreensOpenProblems/38.lean
Original file line number Diff line number Diff line change
Expand Up @@ -32,8 +32,6 @@ open scoped Pointwise

namespace Green38

/-- The vector space $\mathbb{F}_7^n$. -/
abbrev 𝔽₇ (n : β„•) := Fin n β†’ ZMod 7

/-- $A - A$ intersects $\{-1, 0, 1\}^n$ only at $0$. -/
def IntersectsOnlyAtZero {n : β„•} (A : Finset (𝔽₇ n)) : Prop :=
Expand Down
2 changes: 0 additions & 2 deletions FormalConjectures/GreensOpenProblems/40.lean
Original file line number Diff line number Diff line change
Expand Up @@ -34,8 +34,6 @@ open scoped ENNReal Pointwise

namespace Green40

/-- The vector space $\mathbb{F}_2^n$. -/
abbrev 𝔽₂ (n : β„•) := Fin n β†’ ZMod 2

/-- The Hamming ball of radius $r$ in $\mathbb{F}_2^n$. -/
def hammingBall (n r : β„•) : Set (𝔽₂ n) :=
Expand Down
2 changes: 0 additions & 2 deletions FormalConjectures/GreensOpenProblems/49.lean
Original file line number Diff line number Diff line change
Expand Up @@ -39,8 +39,6 @@ open scoped Pointwise Finset

namespace Green49

/-- The vector space $\mathbb{F}_2^n$. -/
abbrev 𝔽₂ (n : β„•) := Fin n β†’ ZMod 2

/--
Suppose that $A \subset \mathbb{F}_2^n$ is a set with $|A + A| \leq K|A|$. Is it true that $A$
Expand Down
6 changes: 3 additions & 3 deletions FormalConjectures/GreensOpenProblems/50.lean
Original file line number Diff line number Diff line change
Expand Up @@ -49,11 +49,11 @@ over $\mathbb{F}_2$.
-/
@[category research open, AMS 5 11]
theorem green_50 : answer(sorry) ↔
βˆƒ C > (0 : ℝ), βˆ€ n : β„•, βˆ€ A : Finset (Fin n β†’ ZMod 2),
βˆƒ C > (0 : ℝ), βˆ€ n : β„•, βˆ€ A : Finset (𝔽₂ n),
A.Nonempty β†’
let Ξ± : ℝ := A.dens
βˆƒ (W : Submodule (ZMod 2) (Fin n β†’ ZMod 2)) (v : Fin n β†’ ZMod 2),
v +α΅₯ (W : Set (Fin n β†’ ZMod 2)) βŠ† ↑(10 β€’ A) ∧
βˆƒ (W : Submodule (ZMod 2) (𝔽₂ n)) (v : 𝔽₂ n),
v +α΅₯ (W : Set (𝔽₂ n)) βŠ† ↑(10 β€’ A) ∧
(n : ℝ) - C * Real.logb 2 (1 / Ξ±) ≀ Module.finrank (ZMod 2) W := by
sorry

Expand Down
2 changes: 0 additions & 2 deletions FormalConjectures/GreensOpenProblems/51.lean
Original file line number Diff line number Diff line change
Expand Up @@ -36,8 +36,6 @@ open scoped Pointwise

namespace Green51

/-- The group $G = \mathbb{F}_2^n = (Z/2Z)^n$. -/
abbrev 𝔽₂ (n : β„•) := Fin n β†’ ZMod 2

/-- The maximum dimension of a coset contained in the set $A$. -/
noncomputable def maxCosetDim (n : β„•) (A : Set (𝔽₂ n)) : β„• :=
Expand Down
2 changes: 1 addition & 1 deletion FormalConjectures/GreensOpenProblems/9.lean
Original file line number Diff line number Diff line change
Expand Up @@ -59,7 +59,7 @@ Problem 9 (iii): is $r_4(\mathbf{F}_5^n) \ll N^{1-c}$, where $N=5^n$?
-/
@[category research open, AMS 5]
theorem green_9_iii : answer(sorry) ↔
βˆƒ c > (0 : ℝ), (fun (n : β„•) ↦ ((Finset.univ : Finset (Fin n β†’ ZMod 5)).maxAPFreeCard 4 : ℝ))
βˆƒ c > (0 : ℝ), (fun (n : β„•) ↦ ((Finset.univ : Finset (𝔽₅ n)).maxAPFreeCard 4 : ℝ))
β‰ͺ fun (n : β„•) ↦ ((5 : ℝ) ^ n) ^ (1 - c) := by
sorry

Expand Down
1 change: 1 addition & 0 deletions FormalConjecturesForMathlib.lean
Original file line number Diff line number Diff line change
Expand Up @@ -103,6 +103,7 @@ public import FormalConjecturesForMathlib.Data.Real.NearestInt
public import FormalConjecturesForMathlib.Data.Set.Density
public import FormalConjecturesForMathlib.Data.Set.Interval
public import FormalConjecturesForMathlib.Data.Set.Triplewise
public import FormalConjecturesForMathlib.Data.ZMod.Fp
public import FormalConjecturesForMathlib.Data.ZMod.PerfectDifferenceSet
public import FormalConjecturesForMathlib.FieldTheory.MvRatFunc.Defs
public import FormalConjecturesForMathlib.Geometry.Euclidean
Expand Down
43 changes: 43 additions & 0 deletions FormalConjecturesForMathlib/Data/ZMod/Fp.lean
Original file line number Diff line number Diff line change
@@ -0,0 +1,43 @@
/-
Copyright 2026 The Formal Conjectures Authors.

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

https://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
-/
module

public import Mathlib.Data.ZMod.Basic

@[expose] public section

/-!
# Notation for finite field vector spaces

This file defines the notation `𝔽 p n` for the vector space `Fin n β†’ ZMod p`
over the finite field of order `p`, and provides standard abbreviations for
small primes.
-/

/-- `𝔽 p n` is the vector space `(Z/pZ)^n`. When `p` is prime, this is $\mathbb{F}_p^n$. -/
abbrev 𝔽 (p n : β„•) := Fin n β†’ ZMod p

/-- `𝔽₂ n` is the vector space $\mathbb{F}_2^n$. -/
abbrev 𝔽₂ (n : β„•) := 𝔽 2 n

/-- `𝔽₃ n` is the vector space $\mathbb{F}_3^n$. -/
abbrev 𝔽₃ (n : β„•) := 𝔽 3 n

/-- `𝔽₅ n` is the vector space $\mathbb{F}_5^n$. -/
abbrev 𝔽₅ (n : β„•) := 𝔽 5 n

/-- `𝔽₇ n` is the vector space $\mathbb{F}_7^n$. -/
abbrev 𝔽₇ (n : β„•) := 𝔽 7 n
Comment thread
mo271 marked this conversation as resolved.
Loading