/- 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. -/ import FormalConjecturesUtil

Ben Green's Open Problem 54

References:

    Ben Green's Open Problem 54

    Original formulation: M. Talagrand, Are All Sets of Positive Measure Essentially Convex?, in Operator Theory: Advances and Applications, 77, 1995 Birkhäuser Verlag Basel/Switzerland.

open MeasureTheory ProbabilityTheoryopen scoped Pointwise ENNReal namespace Green54

The infinite-dimensional Gaussian measure γ∞ on ℝ^ℕ, defined as the countable product of standard Gaussian measures.

noncomputable def gaussianMeasureInf : Measure ( ) := Measure.infinitePi (fun _ : => gaussianReal 0 1)

Let $K \subset \mathbb{R}^n$ be a balanced compact set (that is, $\lambda K \subseteq K$ whenever $|\lambda| \leq 1$) and suppose that the normalised Gaussian measure $\gamma_n(K) \geq 0.99$. Does $10K$ contain a compact convex set $C$ with $\gamma_n(C) \geq 0.01$?

@[category research open, AMS 46 52 60] theorem declaration uses 'sorry'green_54 : answer(sorry) K : Set ( ), IsCompact K Balanced K (0.99 : ℝ≥0∞) gaussianMeasureInf K C : Set ( ), IsCompact C Convex C C (10 : ) K (0.01 : ℝ≥0∞) gaussianMeasureInf C := True (K : Set ( )), IsCompact K Balanced K 0.99 gaussianMeasureInf K C, IsCompact C Convex C C 10 K 1e-2 gaussianMeasureInf C All goals completed! 🐙

The same statement is known to be false for 2K instead of 10K.

@[category research solved, AMS 46 52 60] theorem declaration uses 'sorry'green_54_known_case : ¬ ( K : Set ( ), IsCompact K Balanced K (0.99 : ℝ≥0∞) gaussianMeasureInf K C : Set ( ), IsCompact C Convex C C (2 : ) K (0.01 : ℝ≥0∞) gaussianMeasureInf C) := ¬ (K : Set ( )), IsCompact K Balanced K 0.99 gaussianMeasureInf K C, IsCompact C Convex C C 2 K 1e-2 gaussianMeasureInf C All goals completed! 🐙 end Green54