Statistical Notes

1. Alpha Mixing🔗

Created: 2026-08-04 · Last updated: 2026-08-12

This note is the first in a series that will discuss the α mixing coefficient, or strong mixing coefficient. It's a convenient measure of dependence between random variables. My main reference the book E. Rio (2017).

Probability space.

To properly define the coefficient in Lean, we first introduce a probability space Ω with measure .

open MeasureTheory open ProbabilityTheory variable {Ω : Type*} [MeasureSpace Ω] [IsProbabilityMeasure ( : Measure Ω)]

The types of the elements of Ω are left unspecified: they could be real values or something more exotic.

Definition of α-mixing coefficient

The α-mixing coefficient between two σ-algebras 𝓐 and 𝓑 is defined by \alpha(\mathcal{A} , \mathcal{B}) := 2\sup\{|\mathbb{P}(A \cap B) - \mathbb{P}(A)\mathbb{P}(B)| : (A,B) \in \mathcal{A} \times \mathcal{B}\}.

By default, the measure of a set, ℙ A say, is an extended non-negative real number ([0,∞], ℝ≥0∞ or ENNReal for short). Substractions on [0,∞] are not always well-defined. Thus, the slightly convoluted definition below: we cast everything to real numbers, take its absolute value, and then cast the result back up to ENNReal. The α-mixing coefficient is also ENNReal as the supremum of a possibly (as far as Lean knows) empty set.

noncomputable def αMixingCoeff (𝓐 𝓑 : MeasurableSpace Ω) : ENNReal := 2 * (A : Set Ω) (B : Set Ω) (_ : 𝓐.MeasurableSet' A) (_ : 𝓑.MeasurableSet' B), ENNReal.ofReal |Measure.real (A B) - Measure.real A * Measure.real B|

The α-mixing coefficient measures the dependence between 𝓐 and 𝓑. For instance, α(𝓐, 𝓑) is zero iff 𝓐 and 𝓑 are independent.

example {𝓐 𝓑 : MeasurableSpace Ω} : αMixingCoeff 𝓐 𝓑 = 0 Indep 𝓐 𝓑 := Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩαMixingCoeff 𝓐 𝓑 = 0 Indep 𝓐 𝓑 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ω2 * A, B, (_ : MeasurableSpace.MeasurableSet' 𝓐 A), (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| = 0 Indep 𝓐 𝓑 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ω2 * A, B, (_ : MeasurableSpace.MeasurableSet' 𝓐 A), (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| = 0 (t1 t2 : Set Ω), MeasurableSet t1 MeasurableSet t2 (t1 t2) = t1 * t2 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ω(∀ (i i_1 : Set Ω), MeasurableSpace.MeasurableSet' 𝓐 i MeasurableSpace.MeasurableSet' 𝓑 i_1 .real (i i_1) = .real i * .real i_1) (t1 t2 : Set Ω), MeasurableSet t1 MeasurableSet t2 (t1 t2) = t1 * t2 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ω(∀ (i i_1 : Set Ω), MeasurableSpace.MeasurableSet' 𝓐 i MeasurableSpace.MeasurableSet' 𝓑 i_1 .real (i i_1) = .real i * .real i_1) (t1 t2 : Set Ω), MeasurableSet t1 MeasurableSet t2 (t1 t2) = t1 * t2Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ω(∀ (t1 t2 : Set Ω), MeasurableSet t1 MeasurableSet t2 (t1 t2) = t1 * t2) (i i_1 : Set Ω), MeasurableSpace.MeasurableSet' 𝓐 i MeasurableSpace.MeasurableSet' 𝓑 i_1 .real (i i_1) = .real i * .real i_1 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ω(∀ (i i_1 : Set Ω), MeasurableSpace.MeasurableSet' 𝓐 i MeasurableSpace.MeasurableSet' 𝓑 i_1 .real (i i_1) = .real i * .real i_1) (t1 t2 : Set Ω), MeasurableSet t1 MeasurableSet t2 (t1 t2) = t1 * t2Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ω(∀ (t1 t2 : Set Ω), MeasurableSet t1 MeasurableSet t2 (t1 t2) = t1 * t2) (i i_1 : Set Ω), MeasurableSpace.MeasurableSet' 𝓐 i MeasurableSpace.MeasurableSet' 𝓑 i_1 .real (i i_1) = .real i * .real i_1 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ωh: (t1 t2 : Set Ω), MeasurableSet t1 MeasurableSet t2 (t1 t2) = t1 * t2A:Set ΩB:Set ΩhA:MeasurableSpace.MeasurableSet' 𝓐 AhB:MeasurableSpace.MeasurableSet' 𝓑 B.real (A B) = .real A * .real B Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ωh: (i i_1 : Set Ω), MeasurableSpace.MeasurableSet' 𝓐 i MeasurableSpace.MeasurableSet' 𝓑 i_1 .real (i i_1) = .real i * .real i_1A:Set ΩB:Set ΩhA:MeasurableSet AhB:MeasurableSet B (A B) = A * B Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ωh: (i i_1 : Set Ω), MeasurableSpace.MeasurableSet' 𝓐 i MeasurableSpace.MeasurableSet' 𝓑 i_1 .real (i i_1) = .real i * .real i_1A:Set ΩB:Set ΩhA:MeasurableSet AhB:MeasurableSet Bheq:.real (A B) = .real A * .real B (A B) = A * B Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ωh: (i i_1 : Set Ω), MeasurableSpace.MeasurableSet' 𝓐 i MeasurableSpace.MeasurableSet' 𝓑 i_1 .real (i i_1) = .real i * .real i_1A:Set ΩB:Set ΩhA:MeasurableSet AhB:MeasurableSet Bheq:( (A B)).toReal = ( A * B).toReal (A B) = A * B All goals completed! 🐙 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace Ωh: (t1 t2 : Set Ω), MeasurableSet t1 MeasurableSet t2 (t1 t2) = t1 * t2A:Set ΩB:Set ΩhA:MeasurableSpace.MeasurableSet' 𝓐 AhB:MeasurableSpace.MeasurableSet' 𝓑 B.real (A B) = .real A * .real B All goals completed! 🐙

On the other end of the spectrum, the maximum value is 1/2. We start with an intermediate lemma to handle a simple arithmetic operation in ENNReal.

lemma ennreal_two_mul_quarter : (2:ENNReal) * (1/4) = 1/2 := 2 * (1 / 4) = 1 / 2 ENNReal.toReal 2 * (1 / 4).toReal = (1 / 2).toReal All goals completed! 🐙

Now the nice lemma with the ugly proof.

example {𝓐 𝓑 : MeasurableSpace Ω} (hBmeas : 𝓑 MeasureSpace.toMeasurableSpace) : αMixingCoeff 𝓐 𝓑 1/2 := Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceαMixingCoeff 𝓐 𝓑 1 / 2 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpace2 * A, B, (_ : MeasurableSpace.MeasurableSet' 𝓐 A), (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 2 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpace2 * A, B, (_ : MeasurableSpace.MeasurableSet' 𝓐 A), (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| 2 * (1 / 4) Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpace A, B, (_ : MeasurableSpace.MeasurableSet' 𝓐 A), (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpace (i : Set Ω), B, (_ : MeasurableSpace.MeasurableSet' 𝓐 i), (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (i B) - .real i * .real B| 1 / 4; Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set Ω B, (_ : MeasurableSpace.MeasurableSet' 𝓐 A), (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set Ω (i : Set Ω), (_ : MeasurableSpace.MeasurableSet' 𝓐 A), (_ : MeasurableSpace.MeasurableSet' 𝓑 i), ENNReal.ofReal |.real (A i) - .real A * .real i| 1 / 4; Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ω (_ : MeasurableSpace.MeasurableSet' 𝓐 A), (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set ΩMeasurableSpace.MeasurableSet' 𝓐 A (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 4; Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 A (_ : MeasurableSpace.MeasurableSet' 𝓑 B), ENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AMeasurableSpace.MeasurableSet' 𝓑 B ENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 4; Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet BENNReal.ofReal |.real (A B) - .real A * .real B| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real AENNReal.ofReal |.real (A B) - p * .real B| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real BENNReal.ofReal |.real (A B) - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)ENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r pENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 pENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1ENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1ENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1hr0:0 rENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1hr0:0 rhunion:.real (A B) + r = p + qENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1hr0:0 rhunion:.real (A B) + r = p + qhsum2:p + q - r 1ENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1hr0:0 rhunion:.real (A B) + r = p + qhsum2:p + q - r 1hpq_sub_r_le:p * q - r 1 / 4ENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1hr0:0 rhunion:.real (A B) + r = p + qhsum2:p + q - r 1hpq_sub_r_le:p * q - r 1 / 4hr_sub_pq_le:r - p * q 1 / 4ENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1hr0:0 rhunion:.real (A B) + r = p + qhsum2:p + q - r 1hpq_sub_r_le:p * q - r 1 / 4hr_sub_pq_le:r - p * q 1 / 4habs:|r - p * q| 1 / 4ENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1hr0:0 rhunion:.real (A B) + r = p + qhsum2:p + q - r 1hpq_sub_r_le:p * q - r 1 / 4hr_sub_pq_le:r - p * q 1 / 4habs:|r - p * q| 1 / 4hq4:1 / 4 = ENNReal.ofReal (1 / 4)ENNReal.ofReal |r - p * q| 1 / 4 Ω:Type u_1inst✝¹:MeasureSpace Ωinst✝:IsProbabilityMeasure 𝓐:MeasurableSpace Ω𝓑:MeasurableSpace ΩhBmeas:𝓑 inst✝¹.toMeasurableSpaceA:Set ΩB:Set Ωi✝:MeasurableSpace.MeasurableSet' 𝓐 AhB':MeasurableSpace.MeasurableSet' 𝓑 BhB:MeasurableSet Bp: := .real Aq: := .real Br: := .real (A B)hrp:r phrq:r qhp0:0 phq0:0 qhp1:p 1hq1:q 1hr0:0 rhunion:.real (A B) + r = p + qhsum2:p + q - r 1hpq_sub_r_le:p * q - r 1 / 4hr_sub_pq_le:r - p * q 1 / 4habs:|r - p * q| 1 / 4hq4:1 / 4 = ENNReal.ofReal (1 / 4)ENNReal.ofReal |r - p * q| ENNReal.ofReal (1 / 4) All goals completed! 🐙

I'm sure the proof could be shorter and more readable with a better definition. What I've tried before:

  • expressing the strong mixing coefficient as the covariance of indicator functions;

  • staying in the ENNReal domain instead of casting to Real.

None of those approaches gave simpler proofs, so I stuck to the one you can read now.

In the next note, we'll introduce the strong mixing coefficient between two random variables.

References

  • Rio, E. (2017). Asymptotic Theory of Weakly Dependent Random Processes. In Probability Theory and Stochastic Modeling. Springer Berlin Heidelberg. 10.1007/978-3-662-54323-8