awhecmu/canonical-drafter-extract-mathlib huggingface dataset:
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
inr : (↑w : Set (↑(u i) : Type u_1)) ⊆ (fun (x : (↑(u i) : Type u_1)) ↦ (↑(↑x : (↑s : Type u_1)) : α)) ⁻¹' s
⊢ (↑(Finset.image (fun (x : (↑(u i) : Type u_1)) ↦ (↑(↑x : (↑s : Type u_1)) : α)) w) : Set α) ⊆ s

Tactic:
simp only [image_subset_iff, Finset.coe_image]

Premises used: Finset.coe_image, Set.image_subset_iff
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
y : (↑(u i) : Type u_1)
inr :
  y ∈ (↑w : Set (↑(u i) : Type u_1)) →
    Membership.mem (γ := Set (↑(u i) : Type u_1))
      ((fun (x : (↑(u i) : Type u_1)) ↦ (↑(↑x : (↑s : Type u_1)) : α)) ⁻¹' s) y
⊢ y ∈ (↑w : Set (↑(u i) : Type u_1)) →
    Membership.mem (γ := Set (↑(u i) : Type u_1))
      ((fun (x : (↑(u i) : Type u_1)) ↦ (↑(↑x : (↑s : Type u_1)) : α)) ⁻¹' s) y

Tactic:
_
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
y : (↑(u i) : Type u_1)
h_1 : y ∈ (↑w : Set (↑(u i) : Type u_1))
⊢ Membership.mem (γ := Set (↑(u i) : Type u_1)) ((fun (x : (↑(u i) : Type u_1)) ↦ (↑(↑x : (↑s : Type u_1)) : α)) ⁻¹' s)
    y

Tactic:
simp only [Subtype.coe_prop, mem_preimage]

Premises used: Subtype.coe_prop, Set.mem_preimage
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
H :
  (μ : (a : Set α) → ℝ≥0∞) (o \ ⋃ x ∈ w, closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
rw :
  (μ : (a : Set α) → ℝ≥0∞) (s \ ⋃ y ∈ w, closedBall (↑(↑y : (↑s : Type u_1)) : α) (r (↑(↑y : (↑s : Type u_1)) : α))) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
⊢ (μ : (a : Set α) → ℝ≥0∞)
      (s \
        ⋃ (x : α),
          ⋃ (_ :
            Membership.mem (γ := Finset α)
              (Finset.image (fun (x : (↑(u i) : Type u_1)) ↦ (↑(↑x : (↑s : Type u_1)) : α)) w) x),
            closedBall x (r x)) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)

Tactic:
rw [Finset.set_biUnion_finset_image]

Premises used: Finset.set_biUnion_finset_image
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
H :
  (μ : (a : Set α) → ℝ≥0∞) (o \ ⋃ x ∈ w, closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
⊢ (μ : (a : Set α) → ℝ≥0∞) (s \ ⋃ y ∈ w, closedBall (↑(↑y : (↑s : Type u_1)) : α) (r (↑(↑y : (↑s : Type u_1)) : α))) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)

Tactic:
le_trans (measure_mono (diff_subset_diff so (Subset.refl _))) H

Premises used: Set.diff_subset_diff, Set.Subset.refl, MeasureTheory.measure_mono, le_trans
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
H :
  (μ : (a : Set α) → ℝ≥0∞) (o \ ⋃ x ∈ w, closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
⊢ (μ : (a : Set α) → ℝ≥0∞) (s \ ⋃ y ∈ w, closedBall (↑(↑y : (↑s : Type u_1)) : α) (r (↑(↑y : (↑s : Type u_1)) : α))) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)

Tactic:
exact le_trans (measure_mono (diff_subset_diff so (Subset.refl _))) H

Premises used: Set.diff_subset_diff, Set.Subset.refl, MeasureTheory.measure_mono, le_trans
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
inr :
  (μ : (a : Set α) → ℝ≥0∞) (o \ ⋃ x ∈ w, closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
⊢ (μ : (a : Set α) → ℝ≥0∞)
      (s \
        ⋃ (x : α),
          ⋃ (_ :
            Membership.mem (γ := Finset α)
              (Finset.image (fun (x : (↑(u i) : Type u_1)) ↦ (↑(↑x : (↑s : Type u_1)) : α)) w) x),
            closedBall x (r x)) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)

Tactic:
suffices H : μ (o \ ⋃ x ∈ w, closedBall (↑x) (r ↑x)) ≤ N / (N + 1) * μ s by
      rw [Finset.set_biUnion_finset_image]
      exact le_trans (measure_mono (diff_subset_diff so (Subset.refl _))) H
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
⊢ Ne (α := ℝ≥0∞)
    ((μ : (a : Set α) → ℝ≥0∞)
        ((⋃ x ∈ w, closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) ∩ o) :
      ℝ≥0∞)
    (∞ : ℝ≥0∞)

Tactic:
finiteness
-- Module: Mathlib.MeasureTheory.Covering.Besicovitch
Goal:
α : Type u_1
inst : MetricSpace α
inst_1 : SecondCountableTopology α
inst_2 : MeasurableSpace α
inst_3 : OpensMeasurableSpace α
μ : Measure α
inst_4 : IsFiniteMeasure μ
N : ℕ
τ : ℝ
hτ : 1 < τ
hN : IsEmpty.{u_1 + 1} (SatelliteConfig α N τ)
s : Set α
r : α → ℝ
rpos : ∀ x ∈ s, 0 < r x
rle : ∀ x ∈ s, r x ≤ 1
hμs : LT.lt (α := ℝ≥0∞) (0 : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
h : Nonempty α
Npos : N ≠ 0
o : Set α
so : s ⊆ o
omeas : MeasurableSet o
μo : Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) o : ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)
a : BallPackage (↑s : Type u_1) α :=
  { c := fun (x : (↑s : Type u_1)) ↦ (↑x : α), r := fun (x : (↑s : Type u_1)) ↦ r (↑x : α), rpos := ⋯, r_bound := 1,
    r_le := ⋯ }
u : Fin N → Set (↑s : Type u_1)
hu : ∀ (i : Fin N), (u i).PairwiseDisjoint (α := Set α) fun (j : (↑s : Type u_1)) ↦ closedBall (a.c j) (a.r j)
hu' : range a.c ⊆ ⋃ (i : Fin N), ⋃ j ∈ u i, ball (a.c j) (a.r j)
u_count : ∀ (i : Fin N), (u i).Countable
v : Fin N → Set α := fun (i : Fin N) ↦ ⋃ x ∈ u i, closedBall (↑x : α) (r (↑x : α))
A : s = ⋃ (i : Fin N), s ∩ v i
S :
  LE.le (α := ℝ≥0∞)
    (∑ _i : Fin N, HDiv.hDiv (α := ℝ≥0∞) (β := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) ((↑N : ℝ≥0∞) : ℝ≥0∞))
    (∑ i : Fin N, (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i))
i : Fin N
hi :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    (μ : (a : Set α) → ℝ≥0∞) (s ∩ v i)
B :
  Eq (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) (o ∩ v i) : ℝ≥0∞)
    (∑' (x : (↑(u i) : Type u_1)),
        (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) :
      ℝ≥0∞)
w : Finset (↑(u i) : Type u_1)
hw :
  HDiv.hDiv (α := ℝ≥0∞) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞) (HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) <
    ∑ x ∈ w, (μ : (a : Set α) → ℝ≥0∞) (o ∩ closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α)))
inr :
  (μ : (a : Set α) → ℝ≥0∞) o ≤
    HAdd.hAdd (α := ℝ≥0∞)
      ((μ : (a : Set α) → ℝ≥0∞)
          ((⋃ x ∈ w, closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) ∩ o) :
        ℝ≥0∞)
      (HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞))
rw : NullMeasurableSet ((⋃ x ∈ w, closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) ∩ o) μ
⊢ (μ : (a : Set α) → ℝ≥0∞) (o \ ⋃ x ∈ w, closedBall (↑(↑x : (↑s : Type u_1)) : α) (r (↑(↑x : (↑s : Type u_1)) : α))) ≤
    HMul.hMul (β := ℝ≥0∞) ((↑N : ℝ≥0∞) / HAdd.hAdd (α := ℝ≥0∞) (↑N : ℝ≥0∞) 1) ((μ : (a : Set α) → ℝ≥0∞) s : ℝ≥0∞)

Tactic:
rw [← diff_inter_self_eq_diff,
      measure_diff_le_iff_le_add _ inter_subset_right (by finiteness)]

Premises used: MeasureTheory.measure_diff_le_iff_le_add, Set.diff_inter_self_eq_diff, Set.inter_subset_right