case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
rcases HasBesicovitchCovering.no_satelliteConfig (α := α) with ⟨N, τ, hτ, hN⟩
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
let P : Finset (α × ℝ) → Prop := fun t =>
  ((t : Set (α × ℝ)).PairwiseDisjoint fun p => closedBall p.1 p.2) ∧
    (∀ p : α × ℝ, p ∈ t → p.1 ∈ s) ∧ ∀ p : α × ℝ, p ∈ t → p.2 ∈ f p.1
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
this :
  ∀ (t : Finset (α × ℝ)),
    P t →
      ∃ u,
        t ⊆ u ∧
          P u ∧
            ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤
              ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
choose! F hF using this
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
let u n := (F^[n]) ∅
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
have u_succ : ∀ n : ℕ, u n.succ = F (u n) := fun n => by
  simp only [Function.comp_apply, Function.iterate_succ']
case intro.intro.intro.refine'_1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ ∀ (p : α × ℝ), (p ∈ ⋃ (n : ℕ), ↑(u n)) → p.fst ∈ s

case intro.intro.intro.refine'_2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ ∀ (p : α × ℝ), (p ∈ ⋃ (n : ℕ), ↑(u n)) → p.snd ∈ f p.fst

case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) = 0

case intro.intro.intro.refine'_4
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ PairwiseDisjoint (⋃ (n : ℕ), ↑(u n)) fun p => closedBall p.fst p.snd
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ ∃ t,
    Set.Countable t ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧
        (∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd) = 0 ∧
            PairwiseDisjoint t fun p => closedBall p.fst p.snd
refine' ⟨⋃ n, u n, countable_iUnion fun n => (u n).countable_toSet, _, _, _, _⟩
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
⊢ ∃ u,
    t ⊆ u ∧
      P u ∧
        ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤
          ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
⊢ ∀ (t : Finset (α × ℝ)),
    P t →
      ∃ u,
        t ⊆ u ∧
          P u ∧
            ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤
              ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
intro t ht
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ (s \ B)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
⊢ ∃ u,
    t ⊆ u ∧
      P u ∧
        ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤
          ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
set B := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.1 p.2 with hB
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ (s \ B)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ (s \ B)
have B_closed : IsClosed B :=
  isClosed_biUnion (Finset.finite_toSet _) fun i _ => isClosed_ball
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ s'
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ (s \ B)
set s' := s \ B
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ s'
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
this : ∀ (x : α), x ∈ s' → ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ s'
choose! r hr using this
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ?m.366630 v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ s'
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ s'
obtain ⟨v, vs', hμv, hv⟩ :
  ∃ v : Finset α,
    ↑v ⊆ s' ∧
      μ (s' \ ⋃ x ∈ v, closedBall x (r x)) ≤ N / (N + 1) * μ s' ∧
        (v : Set α).PairwiseDisjoint fun x : α => closedBall x (r x) :=
  haveI rI : ∀ x ∈ s', r x ∈ Ioo (0 : ℝ) 1 := fun x hx => (hr x hx).1.2
  exist_finset_disjoint_balls_large_measure μ hτ hN s' r (fun x hx => (rI x hx).1) fun x hx =>
    (rI x hx).2.le
case intro.intro.intro.refine'_1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ PairwiseDisjoint ↑(t ∪ Finset.image (fun x => (x, r x)) v) fun p => closedBall p.fst p.snd

case intro.intro.intro.refine'_2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ∀ (p : α × ℝ), p ∈ t ∪ Finset.image (fun x => (x, r x)) v → p.fst ∈ s

case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ∀ (p : α × ℝ), p ∈ t ∪ Finset.image (fun x => (x, r x)) v → p.snd ∈ f p.fst

case intro.intro.intro.refine'_4
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t ∪ Finset.image (fun x => (x, r x)) v), closedBall p.fst p.snd) ≤
    ↑N / (↑N + 1) * ↑↑μ s'
case intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ?m.366630 v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ∃ u, t ⊆ u ∧ P u ∧ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u), closedBall p.fst p.snd) ≤ ↑N / (↑N + 1) * ↑↑μ s'
refine' ⟨t ∪ Finset.image (fun x => (x, r x)) v, Finset.subset_union_left _ _, ⟨_, _, _⟩, _⟩
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
⊢ ∀ (x : α), x ∈ s' → ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
intro x hx
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
have xs : x ∈ s := ((mem_diff x).1 hx).1
case inl
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : B = ∅
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)

case inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
rcases eq_empty_or_nonempty B with (hB | hB)
case inl.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : B = ∅
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 1
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
case inl
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : B = ∅
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
rcases hf x xs 1 zero_lt_one with ⟨r, hr, h'r⟩
no goals
case inl.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : B = ∅
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 1
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
exact ⟨r, ⟨hr, h'r⟩, by simp only [hB, empty_disjoint]⟩
no goals
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : B = ∅
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 1
⊢ Disjoint B (closedBall x r)
simp only [hB, empty_disjoint]
case inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r : ℝ := infDist x B
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
case inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
let r := infDist x B
case inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r : ℝ := infDist x B
this : 0 < min r 1
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
case inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r : ℝ := infDist x B
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
have : 0 < min r 1 :=
  lt_min ((B_closed.not_mem_iff_infDist_pos hB).1 ((mem_diff x).1 hx).2) zero_lt_one
case inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r✝ : ℝ := infDist x B
this : 0 < min r✝ 1
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 (min r✝ 1)
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
case inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r : ℝ := infDist x B
this : 0 < min r 1
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
rcases hf x xs _ this with ⟨r, hr, h'r⟩
case inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r✝ : ℝ := infDist x B
this : 0 < min r✝ 1
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 (min r✝ 1)
⊢ Disjoint B (closedBall x r)
case inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r✝ : ℝ := infDist x B
this : 0 < min r✝ 1
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 (min r✝ 1)
⊢ ∃ r, r ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x r)
refine' ⟨r, ⟨hr, ⟨h'r.1, h'r.2.trans_le (min_le_right _ _)⟩⟩, _⟩
case inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r✝ : ℝ := infDist x B
this : 0 < min r✝ 1
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 (min r✝ 1)
⊢ Disjoint (closedBall x r) B
case inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r✝ : ℝ := infDist x B
this : 0 < min r✝ 1
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 (min r✝ 1)
⊢ Disjoint B (closedBall x r)
rw [disjoint_comm]
no goals
case inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB✝ : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
x : α
hx : x ∈ s'
xs : x ∈ s
hB : Set.Nonempty B
r✝ : ℝ := infDist x B
this : 0 < min r✝ 1
r : ℝ
hr : r ∈ f x
h'r : r ∈ Ioo 0 (min r✝ 1)
⊢ Disjoint (closedBall x r) B
exact disjoint_closedBall_of_lt_infDist (h'r.2.trans_le (min_le_left _ _))
case intro.intro.intro.refine'_1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ (PairwiseDisjoint ((fun x => (x, r x)) '' ↑v) fun p => closedBall p.fst p.snd) ∧
    ∀ ⦃i : α × ℝ⦄,
      i ∈ ↑t →
        ∀ ⦃j : α × ℝ⦄,
          j ∈ (fun x => (x, r x)) '' ↑v → i ≠ j → Disjoint (closedBall i.fst i.snd) (closedBall j.fst j.snd)
case intro.intro.intro.refine'_1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ PairwiseDisjoint ↑(t ∪ Finset.image (fun x => (x, r x)) v) fun p => closedBall p.fst p.snd
simp only [Finset.coe_union, pairwiseDisjoint_union, ht.1, true_and_iff, Finset.coe_image]
case intro.intro.intro.refine'_1.left
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ PairwiseDisjoint ((fun x => (x, r x)) '' ↑v) fun p => closedBall p.fst p.snd

case intro.intro.intro.refine'_1.right
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ∀ ⦃i : α × ℝ⦄,
    i ∈ ↑t →
      ∀ ⦃j : α × ℝ⦄, j ∈ (fun x => (x, r x)) '' ↑v → i ≠ j → Disjoint (closedBall i.fst i.snd) (closedBall j.fst j.snd)
case intro.intro.intro.refine'_1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ (PairwiseDisjoint ((fun x => (x, r x)) '' ↑v) fun p => closedBall p.fst p.snd) ∧
    ∀ ⦃i : α × ℝ⦄,
      i ∈ ↑t →
        ∀ ⦃j : α × ℝ⦄,
          j ∈ (fun x => (x, r x)) '' ↑v → i ≠ j → Disjoint (closedBall i.fst i.snd) (closedBall j.fst j.snd)
constructor
case intro.intro.intro.refine'_1.left
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ (fun x => (x, r x)) '' ↑v
q : α × ℝ
hq : q ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ q
⊢ (Disjoint on fun p => closedBall p.fst p.snd) p q
case intro.intro.intro.refine'_1.left
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ PairwiseDisjoint ((fun x => (x, r x)) '' ↑v) fun p => closedBall p.fst p.snd
intro p hp q hq hpq
case intro.intro.intro.refine'_1.left.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
q : α × ℝ
hq : q ∈ (fun x => (x, r x)) '' ↑v
p' : α
p'v : p' ∈ ↑v
hp : (p', r p') ∈ (fun x => (x, r x)) '' ↑v
hpq : (p', r p') ≠ q
⊢ (Disjoint on fun p => closedBall p.fst p.snd) (p', r p') q
case intro.intro.intro.refine'_1.left
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ (fun x => (x, r x)) '' ↑v
q : α × ℝ
hq : q ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ q
⊢ (Disjoint on fun p => closedBall p.fst p.snd) p q
rcases(mem_image _ _ _).1 hp with ⟨p', p'v, rfl⟩
case intro.intro.intro.refine'_1.left.intro.intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ ↑v
hp : (p', r p') ∈ (fun x => (x, r x)) '' ↑v
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : (p', r p') ≠ (q', r q')
⊢ (Disjoint on fun p => closedBall p.fst p.snd) (p', r p') (q', r q')
case intro.intro.intro.refine'_1.left.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
q : α × ℝ
hq : q ∈ (fun x => (x, r x)) '' ↑v
p' : α
p'v : p' ∈ ↑v
hp : (p', r p') ∈ (fun x => (x, r x)) '' ↑v
hpq : (p', r p') ≠ q
⊢ (Disjoint on fun p => closedBall p.fst p.snd) (p', r p') q
rcases(mem_image _ _ _).1 hq with ⟨q', q'v, rfl⟩
case intro.intro.intro.refine'_1.left.intro.intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ ↑v
hp : (p', r p') ∈ (fun x => (x, r x)) '' ↑v
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : (p', r p') ≠ (q', r q')
hp'q' : p' = (q', r q').fst
⊢ False
case intro.intro.intro.refine'_1.left.intro.intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ ↑v
hp : (p', r p') ∈ (fun x => (x, r x)) '' ↑v
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : (p', r p') ≠ (q', r q')
⊢ (Disjoint on fun p => closedBall p.fst p.snd) (p', r p') (q', r q')
refine' hv p'v q'v fun hp'q' => _
case intro.intro.intro.refine'_1.left.intro.intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ ↑v
hp : (p', r p') ∈ (fun x => (x, r x)) '' ↑v
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : ((q', r q').fst, r (q', r q').fst) ≠ (q', r q')
hp'q' : p' = (q', r q').fst
⊢ False
case intro.intro.intro.refine'_1.left.intro.intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ ↑v
hp : (p', r p') ∈ (fun x => (x, r x)) '' ↑v
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : (p', r p') ≠ (q', r q')
hp'q' : p' = (q', r q').fst
⊢ False
rw [hp'q'] at hpq
no goals
case intro.intro.intro.refine'_1.left.intro.intro.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ ↑v
hp : (p', r p') ∈ (fun x => (x, r x)) '' ↑v
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : ((q', r q').fst, r (q', r q').fst) ≠ (q', r q')
hp'q' : p' = (q', r q').fst
⊢ False
exact hpq rfl
case intro.intro.intro.refine'_1.right
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ ↑t
q : α × ℝ
hq : q ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ q
⊢ Disjoint (closedBall p.fst p.snd) (closedBall q.fst q.snd)
case intro.intro.intro.refine'_1.right
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ∀ ⦃i : α × ℝ⦄,
    i ∈ ↑t →
      ∀ ⦃j : α × ℝ⦄, j ∈ (fun x => (x, r x)) '' ↑v → i ≠ j → Disjoint (closedBall i.fst i.snd) (closedBall j.fst j.snd)
intro p hp q hq hpq
case intro.intro.intro.refine'_1.right.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ ↑t
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ (q', r q')
⊢ Disjoint (closedBall p.fst p.snd) (closedBall (q', r q').fst (q', r q').snd)
case intro.intro.intro.refine'_1.right
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ ↑t
q : α × ℝ
hq : q ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ q
⊢ Disjoint (closedBall p.fst p.snd) (closedBall q.fst q.snd)
rcases(mem_image _ _ _).1 hq with ⟨q', q'v, rfl⟩
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ ↑t
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ (q', r q')
⊢ closedBall p.fst p.snd ⊆ B
case intro.intro.intro.refine'_1.right.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ ↑t
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ (q', r q')
⊢ Disjoint (closedBall p.fst p.snd) (closedBall (q', r q').fst (q', r q').snd)
apply disjoint_of_subset_left _ (hr q' (vs' q'v)).2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ ↑t
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ (q', r q')
⊢ closedBall p.fst p.snd ⊆ ⋃ (x : α × ℝ) (_ : x ∈ ↑t), closedBall x.fst x.snd
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ ↑t
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ (q', r q')
⊢ closedBall p.fst p.snd ⊆ B
rw [hB, ← Finset.set_biUnion_coe]
no goals
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ ↑t
q' : α
q'v : q' ∈ ↑v
hq : (q', r q') ∈ (fun x => (x, r x)) '' ↑v
hpq : p ≠ (q', r q')
⊢ closedBall p.fst p.snd ⊆ ⋃ (x : α × ℝ) (_ : x ∈ ↑t), closedBall x.fst x.snd
exact subset_biUnion_of_mem (u := fun x : α × ℝ => closedBall x.1 x.2) hp
case intro.intro.intro.refine'_2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
⊢ p.fst ∈ s
case intro.intro.intro.refine'_2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ∀ (p : α × ℝ), p ∈ t ∪ Finset.image (fun x => (x, r x)) v → p.fst ∈ s
intro p hp
case intro.intro.intro.refine'_2.inl
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : p ∈ t
⊢ p.fst ∈ s

case intro.intro.intro.refine'_2.inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : p ∈ Finset.image (fun x => (x, r x)) v
⊢ p.fst ∈ s
case intro.intro.intro.refine'_2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
⊢ p.fst ∈ s
rcases Finset.mem_union.1 hp with (h'p | h'p)
no goals
case intro.intro.intro.refine'_2.inl
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : p ∈ t
⊢ p.fst ∈ s
exact ht.2.1 p h'p
case intro.intro.intro.refine'_2.inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ v
hp : (p', r p') ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : (p', r p') ∈ Finset.image (fun x => (x, r x)) v
⊢ (p', r p').fst ∈ s
case intro.intro.intro.refine'_2.inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : p ∈ Finset.image (fun x => (x, r x)) v
⊢ p.fst ∈ s
rcases Finset.mem_image.1 h'p with ⟨p', p'v, rfl⟩
no goals
case intro.intro.intro.refine'_2.inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ v
hp : (p', r p') ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : (p', r p') ∈ Finset.image (fun x => (x, r x)) v
⊢ (p', r p').fst ∈ s
exact ((mem_diff _).1 (vs' (Finset.mem_coe.2 p'v))).1
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
⊢ p.snd ∈ f p.fst
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ∀ (p : α × ℝ), p ∈ t ∪ Finset.image (fun x => (x, r x)) v → p.snd ∈ f p.fst
intro p hp
case intro.intro.intro.refine'_3.inl
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : p ∈ t
⊢ p.snd ∈ f p.fst

case intro.intro.intro.refine'_3.inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : p ∈ Finset.image (fun x => (x, r x)) v
⊢ p.snd ∈ f p.fst
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
⊢ p.snd ∈ f p.fst
rcases Finset.mem_union.1 hp with (h'p | h'p)
no goals
case intro.intro.intro.refine'_3.inl
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : p ∈ t
⊢ p.snd ∈ f p.fst
exact ht.2.2 p h'p
case intro.intro.intro.refine'_3.inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ v
hp : (p', r p') ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : (p', r p') ∈ Finset.image (fun x => (x, r x)) v
⊢ (p', r p').snd ∈ f (p', r p').fst
case intro.intro.intro.refine'_3.inr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p : α × ℝ
hp : p ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : p ∈ Finset.image (fun x => (x, r x)) v
⊢ p.snd ∈ f p.fst
rcases Finset.mem_image.1 h'p with ⟨p', p'v, rfl⟩
no goals
case intro.intro.intro.refine'_3.inr.intro.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
p' : α
p'v : p' ∈ v
hp : (p', r p') ∈ t ∪ Finset.image (fun x => (x, r x)) v
h'p : (p', r p') ∈ Finset.image (fun x => (x, r x)) v
⊢ (p', r p').snd ∈ f (p', r p').fst
exact (hr p' (vs' p'v)).1.1
case h.e'_3.h.e'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t ∪ Finset.image (fun x => (x, r x)) v), closedBall p.fst p.snd) =
    s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)
case intro.intro.intro.refine'_4
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t ∪ Finset.image (fun x => (x, r x)) v), closedBall p.fst p.snd) ≤
    ↑N / (↑N + 1) * ↑↑μ s'
convert hμv using 2
no goals
case h.e'_3.h.e'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
t : Finset (α × ℝ)
ht : P t
B : Set α := ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
hB : B = ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd
B_closed : IsClosed B
s' : Set α := s \ B
r : α → ℝ
hr : ∀ (x : α), x ∈ s' → r x ∈ f x ∩ Ioo 0 1 ∧ Disjoint B (closedBall x (r x))
v : Finset α
vs' : ↑v ⊆ s'
hμv : ↑↑μ (s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)) ≤ ↑N / (↑N + 1) * ↑↑μ s'
hv : PairwiseDisjoint ↑v fun x => closedBall x (r x)
⊢ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t ∪ Finset.image (fun x => (x, r x)) v), closedBall p.fst p.snd) =
    s' \ ⋃ (x : α) (_ : x ∈ v), closedBall x (r x)
rw [Finset.set_biUnion_union, ← diff_diff, Finset.set_biUnion_finset_image]
no goals
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
n : ℕ
⊢ u (Nat.succ n) = F (u n)
simp only [Function.comp_apply, Function.iterate_succ']
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
n : ℕ
⊢ P (u n)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
⊢ ∀ (n : ℕ), P (u n)
intro n
case zero
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
⊢ P (u Nat.zero)

case succ
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
n : ℕ
IH : P (u n)
⊢ P (u (Nat.succ n))
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
n : ℕ
⊢ P (u n)
induction' n with n IH
case zero
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
⊢ (PairwiseDisjoint ↑∅ fun p => closedBall p.fst p.snd) ∧
    (∀ (a : α) (b : ℝ), (a, b) ∈ ∅ → a ∈ s) ∧ ∀ (a : α) (b : ℝ), (a, b) ∈ ∅ → b ∈ f a
case zero
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
⊢ P (u Nat.zero)
simp only [Prod.forall, id.def, Function.iterate_zero, Nat.zero_eq]
no goals
case zero
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
⊢ (PairwiseDisjoint ↑∅ fun p => closedBall p.fst p.snd) ∧
    (∀ (a : α) (b : ℝ), (a, b) ∈ ∅ → a ∈ s) ∧ ∀ (a : α) (b : ℝ), (a, b) ∈ ∅ → b ∈ f a
simp only [Finset.not_mem_empty, IsEmpty.forall_iff, Finset.coe_empty, forall₂_true_iff,
  and_self_iff, pairwiseDisjoint_empty]
case succ
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
n : ℕ
IH : P (u n)
⊢ P (F (u n))
case succ
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
n : ℕ
IH : P (u n)
⊢ P (u (Nat.succ n))
rw [u_succ]
no goals
case succ
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
n : ℕ
IH : P (u n)
⊢ P (F (u n))
exact (hF (u n) IH).2.1
case intro.intro.intro.refine'_1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
p : α × ℝ
hp : p ∈ ⋃ (n : ℕ), ↑(u n)
⊢ p.fst ∈ s
case intro.intro.intro.refine'_1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ ∀ (p : α × ℝ), (p ∈ ⋃ (n : ℕ), ↑(u n)) → p.fst ∈ s
intro p hp
case intro.intro.intro.refine'_1.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
p : α × ℝ
hp : p ∈ ⋃ (n : ℕ), ↑(u n)
n : ℕ
hn : p ∈ ↑(u n)
⊢ p.fst ∈ s
case intro.intro.intro.refine'_1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
p : α × ℝ
hp : p ∈ ⋃ (n : ℕ), ↑(u n)
⊢ p.fst ∈ s
rcases mem_iUnion.1 hp with ⟨n, hn⟩
no goals
case intro.intro.intro.refine'_1.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
p : α × ℝ
hp : p ∈ ⋃ (n : ℕ), ↑(u n)
n : ℕ
hn : p ∈ ↑(u n)
⊢ p.fst ∈ s
exact (Pu n).2.1 p (Finset.mem_coe.1 hn)
case intro.intro.intro.refine'_2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
p : α × ℝ
hp : p ∈ ⋃ (n : ℕ), ↑(u n)
⊢ p.snd ∈ f p.fst
case intro.intro.intro.refine'_2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ ∀ (p : α × ℝ), (p ∈ ⋃ (n : ℕ), ↑(u n)) → p.snd ∈ f p.fst
intro p hp
case intro.intro.intro.refine'_2.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
p : α × ℝ
hp : p ∈ ⋃ (n : ℕ), ↑(u n)
n : ℕ
hn : p ∈ ↑(u n)
⊢ p.snd ∈ f p.fst
case intro.intro.intro.refine'_2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
p : α × ℝ
hp : p ∈ ⋃ (n : ℕ), ↑(u n)
⊢ p.snd ∈ f p.fst
rcases mem_iUnion.1 hp with ⟨n, hn⟩
no goals
case intro.intro.intro.refine'_2.intro
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
p : α × ℝ
hp : p ∈ ⋃ (n : ℕ), ↑(u n)
n : ℕ
hn : p ∈ ↑(u n)
⊢ p.snd ∈ f p.fst
exact (Pu n).2.2 p (Finset.mem_coe.1 hn)
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) = 0
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) = 0
have A :
  ∀ n,
    μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ n : ℕ, (u n : Set (α × ℝ))), closedBall p.fst p.snd) ≤
      μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) := by
  intro n
  apply measure_mono
  apply diff_subset_diff (Subset.refl _)
  exact biUnion_subset_biUnion_left (subset_iUnion (fun i => (u i : Set (α × ℝ))) n)
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
C : Tendsto (fun n => (↑N / (↑N + 1)) ^ n * ↑↑μ s) atTop (𝓝 0)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) = 0
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
C : Tendsto (fun n => (↑N / (↑N + 1)) ^ n * ↑↑μ s) atTop (𝓝 (0 * ↑↑μ s))
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) = 0
rw [MulZeroClass.zero_mul] at C
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
C : Tendsto (fun n => (↑N / (↑N + 1)) ^ n * ↑↑μ s) atTop (𝓝 0)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤ ⊥
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
C : Tendsto (fun n => (↑N / (↑N + 1)) ^ n * ↑↑μ s) atTop (𝓝 0)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) = 0
apply le_bot_iff.1
no goals
case intro.intro.intro.refine'_3
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
C : Tendsto (fun n => (↑N / (↑N + 1)) ^ n * ↑↑μ s) atTop (𝓝 0)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤ ⊥
exact le_of_tendsto_of_tendsto' tendsto_const_nhds C fun n => (A n).trans (B n)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
intro n
case h
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ⊆
    s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
apply measure_mono
case h
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ (⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ⊆
    ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd
case h
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ⊆
    s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd
apply diff_subset_diff (Subset.refl _)
no goals
case h
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ (⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ⊆
    ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd
exact biUnion_subset_biUnion_left (subset_iUnion (fun i => (u i : Set (α × ℝ))) n)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
⊢ ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
intro n
case zero
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u Nat.zero), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ Nat.zero * ↑↑μ s

case succ
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
IH : ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u (Nat.succ n)), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ Nat.succ n * ↑↑μ s
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
induction' n with n IH
no goals
case succ
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
IH : ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u (Nat.succ n)), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ Nat.succ n * ↑↑μ s
calc
  μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n.succ), closedBall p.fst p.snd) ≤
      N / (N + 1) * μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) := by
    rw [u_succ]; exact (hF (u n) (Pu n)).2.2
  _ ≤ (N / (N + 1) : ℝ≥0∞) ^ n.succ * μ s := by
    rw [pow_succ, mul_assoc]; exact mul_le_mul_left' IH _
no goals
case zero
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u Nat.zero), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ Nat.zero * ↑↑μ s
simp only [le_refl, diff_empty, one_mul, iUnion_false, iUnion_empty, pow_zero, Nat.zero_eq,
  Function.iterate_zero, id.def, Finset.not_mem_empty]
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
IH : ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F (u n)), closedBall p.fst p.snd) ≤
    ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
IH : ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u (Nat.succ n)), closedBall p.fst p.snd) ≤
    ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
rw [u_succ]
no goals
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
IH : ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F (u n)), closedBall p.fst p.snd) ≤
    ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
exact (hF (u n) (Pu n)).2.2
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
IH : ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤
    ↑N / (↑N + 1) * ((↑N / (↑N + 1)) ^ n * ↑↑μ s)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
IH : ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ Nat.succ n * ↑↑μ s
rw [pow_succ, mul_assoc]
no goals
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
n : ℕ
IH : ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤
    ↑N / (↑N + 1) * ((↑N / (↑N + 1)) ^ n * ↑↑μ s)
exact mul_le_mul_left' IH _
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ Tendsto (fun x => (↑N / (↑N + 1)) ^ x) atTop (𝓝 0)
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ Tendsto (fun n => (↑N / (↑N + 1)) ^ n * ↑↑μ s) atTop (𝓝 (0 * ↑↑μ s))
apply ENNReal.Tendsto.mul_const _ (Or.inr (measure_lt_top μ s).ne)
case hr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N / (↑N + 1) < 1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ Tendsto (fun x => (↑N / (↑N + 1)) ^ x) atTop (𝓝 0)
apply ENNReal.tendsto_pow_atTop_nhds_0_of_lt_1
case hr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N < ↑N + 1

case hr.h0
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N + 1 ≠ 0 ∨ ↑N ≠ 0

case hr.ht
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N + 1 ≠ ⊤ ∨ ↑N ≠ ⊤
case hr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N / (↑N + 1) < 1
rw [ENNReal.div_lt_iff, one_mul]
case hr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N + 0 < ↑N + 1
case hr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N < ↑N + 1
conv_lhs => rw [← add_zero (N : ℝ≥0∞)]
no goals
case hr
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N + 0 < ↑N + 1
exact ENNReal.add_lt_add_left (ENNReal.nat_ne_top N) zero_lt_one
no goals
case hr.h0
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N + 1 ≠ 0 ∨ ↑N ≠ 0
simp only [true_or_iff, add_eq_zero_iff, Ne.def, not_false_iff, one_ne_zero, and_false_iff]
no goals
case hr.ht
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
A :
  ∀ (n : ℕ),
    ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ ⋃ (n : ℕ), ↑(u n)), closedBall p.fst p.snd) ≤
      ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd)
B : ∀ (n : ℕ), ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ u n), closedBall p.fst p.snd) ≤ (↑N / (↑N + 1)) ^ n * ↑↑μ s
⊢ ↑N + 1 ≠ ⊤ ∨ ↑N ≠ ⊤
simp only [ENNReal.nat_ne_top, Ne.def, not_false_iff, or_true_iff]
case intro.intro.intro.refine'_4
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ Directed (fun x x_1 => x ⊆ x_1) fun n => ↑(u n)
case intro.intro.intro.refine'_4
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ PairwiseDisjoint (⋃ (n : ℕ), ↑(u n)) fun p => closedBall p.fst p.snd
refine' (pairwiseDisjoint_iUnion _).2 fun n => (Pu n).1
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ ↑(u n) ≤ ↑(u (n + 1))
case intro.intro.intro.refine'_4
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
⊢ Directed (fun x x_1 => x ⊆ x_1) fun n => ↑(u n)
apply (monotone_nat_of_le_succ fun n => ?_).directed_le
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ ↑(u n) ≤ ↑(F (u n))
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ ↑(u n) ≤ ↑(u (n + 1))
rw [← Nat.succ_eq_add_one, u_succ]
no goals
α : Type u_1
inst✝⁵ : MetricSpace α
β : Type u
inst✝⁴ : SecondCountableTopology α
inst✝³ : MeasurableSpace α
inst✝² : OpensMeasurableSpace α
inst✝¹ : HasBesicovitchCovering α
μ : MeasureTheory.Measure α
inst✝ : IsFiniteMeasure μ
f : α → Set ℝ
s : Set α
hf : ∀ (x : α), x ∈ s → ∀ (δ : ℝ), δ > 0 → Set.Nonempty (f x ∩ Ioo 0 δ)
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty (SatelliteConfig α N τ)
P : Finset (α × ℝ) → Prop :=
  fun t =>
    (PairwiseDisjoint ↑t fun p => closedBall p.fst p.snd) ∧
      (∀ (p : α × ℝ), p ∈ t → p.fst ∈ s) ∧ ∀ (p : α × ℝ), p ∈ t → p.snd ∈ f p.fst
F : Finset (α × ℝ) → Finset (α × ℝ)
hF :
  ∀ (t : Finset (α × ℝ)),
    P t →
      t ⊆ F t ∧
        P (F t) ∧
          ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ F t), closedBall p.fst p.snd) ≤
            ↑N / (↑N + 1) * ↑↑μ (s \ ⋃ (p : α × ℝ) (_ : p ∈ t), closedBall p.fst p.snd)
u : ℕ → Finset (α × ℝ) := fun n => (F^[n]) ∅
u_succ : ∀ (n : ℕ), u (Nat.succ n) = F (u n)
Pu : ∀ (n : ℕ), P (u n)
n : ℕ
⊢ ↑(u n) ≤ ↑(F (u n))
exact (hF (u n) (Pu n)).1