Skip to content

Commit f385661

Browse files
committed
chore(SetTheory): fix whitespace (leanprover-community#32899)
Extracted from leanprover-community#30658. Found by extending the commandStart linter to proof bodies.
1 parent 8b47904 commit f385661

File tree

10 files changed

+26
-26
lines changed

10 files changed

+26
-26
lines changed

Mathlib/SetTheory/Cardinal/Arithmetic.lean

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -611,15 +611,15 @@ theorem mk_equiv_eq_arrow_of_lift_eq (leq : lift.{v} #α = lift.{u} #β') :
611611
obtain ⟨e⟩ := lift_mk_eq'.mp leq
612612
have e₁ := lift_mk_eq'.mpr ⟨.equivCongr (.refl α) e⟩
613613
have e₂ := lift_mk_eq'.mpr ⟨.arrowCongr (.refl α) e⟩
614-
rw [lift_id'.{u,v}] at e₁ e₂
614+
rw [lift_id'.{u, v}] at e₁ e₂
615615
rw [← e₁, ← e₂, lift_inj, mk_perm_eq_self_power, power_def]
616616

617617
theorem mk_equiv_eq_arrow_of_eq (eq : #α = #β) : #(α ≃ β) = #(α → β) :=
618618
mk_equiv_eq_arrow_of_lift_eq congr(lift $eq)
619619

620620
theorem mk_equiv_of_lift_eq (leq : lift.{v} #α = lift.{u} #β') : #(α ≃ β') = 2 ^ lift.{v} #α := by
621-
erw [← (lift_mk_eq'.2 ⟨.equivCongr (.refl α) (lift_mk_eq'.1 leq).some⟩).trans (lift_id'.{u,v} _),
622-
lift_umax.{u,v}, mk_perm_eq_two_power, lift_power, lift_natCast]; rfl
621+
erw [← (lift_mk_eq'.2 ⟨.equivCongr (.refl α) (lift_mk_eq'.1 leq).some⟩).trans (lift_id'.{u, v} _),
622+
lift_umax.{u, v}, mk_perm_eq_two_power, lift_power, lift_natCast]; rfl
623623

624624
theorem mk_equiv_of_eq (eq : #α = #β) : #(α ≃ β) = 2 ^ #α := by
625625
rw [mk_equiv_of_lift_eq (lift_inj.mpr eq), lift_id]
@@ -640,7 +640,7 @@ theorem mk_surjective_eq_arrow_of_lift_le (lle : lift.{u} #β' ≤ lift.{v} #α)
640640
#{f : α → β' | Surjective f} = #(α → β') :=
641641
(mk_set_le _).antisymm <|
642642
have ⟨e⟩ : Nonempty (α ≃ α ⊕ β') := by
643-
simp_rw [← lift_mk_eq', mk_sum, lift_add, lift_lift]; rw [lift_umax.{u,v}, eq_comm]
643+
simp_rw [← lift_mk_eq', mk_sum, lift_add, lift_lift]; rw [lift_umax.{u, v}, eq_comm]
644644
exact add_eq_left (aleph0_le_lift.mpr <| aleph0_le_mk α) lle
645645
⟨⟨fun f ↦ ⟨fun a ↦ (e a).elim f id, fun b ↦ ⟨e.symm (.inr b), congr_arg _ (e.right_inv _)⟩⟩,
646646
fun f g h ↦ funext fun a ↦ by

Mathlib/SetTheory/Cardinal/Basic.lean

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -212,7 +212,7 @@ theorem sum_le_mk_mul_iSup {ι : Type u} (f : ι → Cardinal.{u}) : sum f ≤ #
212212
/-- The lift of a supremum is the supremum of the lifts. -/
213213
theorem lift_sSup {s : Set Cardinal} (hs : BddAbove s) :
214214
lift.{u} (sSup s) = sSup (lift.{u} '' s) := by
215-
apply ((le_csSup_iff' (bddAbove_image.{_,u} _ hs)).2 fun c hc => _).antisymm (csSup_le' _)
215+
apply ((le_csSup_iff' (bddAbove_image.{_, u} _ hs)).2 fun c hc => _).antisymm (csSup_le' _)
216216
· intro c hc
217217
by_contra h
218218
obtain ⟨d, rfl⟩ := Cardinal.mem_range_lift_of_le (not_le.1 h).le
@@ -751,7 +751,7 @@ theorem mk_iUnion_le {α ι : Type u} (f : ι → Set α) : #(⋃ i, f i) ≤ #
751751
theorem mk_iUnion_le_lift {α : Type u} {ι : Type v} (f : ι → Set α) :
752752
lift.{v} #(⋃ i, f i) ≤ lift.{u} #ι * ⨆ i, lift.{v} #(f i) := by
753753
refine mk_iUnion_le_sum_mk_lift.trans <| Eq.trans_le ?_ (sum_le_lift_mk_mul_iSup _)
754-
rw [← lift_sum, lift_id'.{_,u}]
754+
rw [← lift_sum, lift_id'.{_, u}]
755755

756756
theorem mk_sUnion_le {α : Type u} (A : Set (Set α)) : #(⋃₀ A) ≤ #A * ⨆ s : A, #s := by
757757
rw [sUnion_eq_iUnion]

Mathlib/SetTheory/Cardinal/Cofinality.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -366,7 +366,7 @@ theorem bsup_lt_ord {o : Ordinal} {f : ∀ a < o, Ordinal} {c : Ordinal} (ho : o
366366

367367
@[simp]
368368
theorem cof_zero : cof 0 = 0 := by
369-
refine LE.le.antisymm ?_ (Cardinal.zero_le _)
369+
refine LE.le.antisymm ?_ (Cardinal.zero_le _)
370370
rw [← card_zero]
371371
exact cof_le_card 0
372372

Mathlib/SetTheory/Cardinal/CountableCover.lean

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -59,11 +59,11 @@ lemma mk_subtype_le_of_countable_eventually_mem_aux {α ι : Type u} {a : Cardin
5959
obtain ⟨i, hi⟩ : ∃ i, x ∈ f i := (ht x hx).exists
6060
exact mem_iUnion_of_mem i hi
6161
calc #t ≤ #(⋃ i, f i) := mk_le_mk_of_subset this
62-
_ ≤ sum (fun i ↦ #(f i)) := mk_iUnion_le_sum_mk
63-
_ ≤ sum (fun _ ↦ a) := sum_le_sum _ _ h'f
64-
_ = #ι * a := by simp
65-
_ ≤ ℵ₀ * a := by grw [mk_le_aleph0]
66-
_ = a := aleph0_mul_eq ha
62+
_ ≤ sum (fun i ↦ #(f i)) := mk_iUnion_le_sum_mk
63+
_ ≤ sum (fun _ ↦ a) := sum_le_sum _ _ h'f
64+
_ = #ι * a := by simp
65+
_ ≤ ℵ₀ * a := by grw [mk_le_aleph0]
66+
_ = a := aleph0_mul_eq ha
6767

6868
/-- If a set `t` is eventually covered by a countable family of sets, all with cardinality at
6969
most `a`, then the cardinality of `t` is also bounded by `a`. -/

Mathlib/SetTheory/Cardinal/ENat.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -271,7 +271,7 @@ theorem toENat_lift {a : Cardinal.{v}} : toENat (lift.{u} a) = toENat a := by
271271
| inr ha => simp [toENat_eq_top.2, ha]
272272

273273
theorem toENat_congr {α : Type u} {β : Type v} (e : α ≃ β) : toENat #α = toENat #β := by
274-
rw [← toENat_lift, lift_mk_eq.{_, _,v}.mpr ⟨e⟩, toENat_lift]
274+
rw [← toENat_lift, lift_mk_eq.{_, _, v}.mpr ⟨e⟩, toENat_lift]
275275

276276
lemma toENat_le_iff_of_le_aleph0 {c c' : Cardinal} (h : c ≤ ℵ₀) :
277277
toENat c ≤ toENat c' ↔ c ≤ c' := by

Mathlib/SetTheory/Cardinal/Order.lean

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -637,7 +637,7 @@ theorem lift_eq_ofNat_iff {a : Cardinal.{u}} {n : ℕ} [n.AtLeastTwo] :
637637
@[simp]
638638
theorem nat_eq_lift_iff {n : ℕ} {a : Cardinal.{u}} :
639639
(n : Cardinal) = lift.{v} a ↔ (n : Cardinal) = a := by
640-
rw [← lift_natCast.{v,u} n, lift_inj]
640+
rw [← lift_natCast.{v, u} n, lift_inj]
641641

642642
@[simp]
643643
theorem zero_eq_lift_iff {a : Cardinal.{u}} :
@@ -656,7 +656,7 @@ theorem ofNat_eq_lift_iff {a : Cardinal.{u}} {n : ℕ} [n.AtLeastTwo] :
656656

657657
@[simp]
658658
theorem lift_le_nat_iff {a : Cardinal.{u}} {n : ℕ} : lift.{v} a ≤ n ↔ a ≤ n := by
659-
rw [← lift_natCast.{v,u}, lift_le]
659+
rw [← lift_natCast.{v, u}, lift_le]
660660

661661
@[simp]
662662
theorem lift_le_one_iff {a : Cardinal.{u}} :
@@ -670,7 +670,7 @@ theorem lift_le_ofNat_iff {a : Cardinal.{u}} {n : ℕ} [n.AtLeastTwo] :
670670

671671
@[simp]
672672
theorem nat_le_lift_iff {n : ℕ} {a : Cardinal.{u}} : n ≤ lift.{v} a ↔ n ≤ a := by
673-
rw [← lift_natCast.{v,u}, lift_le]
673+
rw [← lift_natCast.{v, u}, lift_le]
674674

675675
@[simp]
676676
theorem one_le_lift_iff {a : Cardinal.{u}} :
@@ -684,7 +684,7 @@ theorem ofNat_le_lift_iff {a : Cardinal.{u}} {n : ℕ} [n.AtLeastTwo] :
684684

685685
@[simp]
686686
theorem lift_lt_nat_iff {a : Cardinal.{u}} {n : ℕ} : lift.{v} a < n ↔ a < n := by
687-
rw [← lift_natCast.{v,u}, lift_lt]
687+
rw [← lift_natCast.{v, u}, lift_lt]
688688

689689
@[simp]
690690
theorem lift_lt_ofNat_iff {a : Cardinal.{u}} {n : ℕ} [n.AtLeastTwo] :
@@ -693,7 +693,7 @@ theorem lift_lt_ofNat_iff {a : Cardinal.{u}} {n : ℕ} [n.AtLeastTwo] :
693693

694694
@[simp]
695695
theorem nat_lt_lift_iff {n : ℕ} {a : Cardinal.{u}} : n < lift.{v} a ↔ n < a := by
696-
rw [← lift_natCast.{v,u}, lift_lt]
696+
rw [← lift_natCast.{v, u}, lift_lt]
697697

698698
@[simp]
699699
theorem zero_lt_lift_iff {a : Cardinal.{u}} :

Mathlib/SetTheory/Cardinal/Regular.lean

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -185,14 +185,14 @@ theorem card_iUnion_lt_iff_forall_of_isRegular {ι : Type u} {α : Type u} {t :
185185
simpa
186186

187187
theorem card_lt_of_card_biUnion_lt {α β : Type u} {s : Set α} {t : ∀ a ∈ s, Set β} {c : Cardinal}
188-
(h : #(⋃ a ∈ s, t a ‹_›) < c) (a : α) (ha : a ∈ s) : # (t a ha) < c := by
188+
(h : #(⋃ a ∈ s, t a ‹_›) < c) (a : α) (ha : a ∈ s) : #(t a ha) < c := by
189189
rw [biUnion_eq_iUnion] at h
190190
have := card_lt_of_card_iUnion_lt h
191191
simp_all only [iUnion_coe_set, Subtype.forall]
192192

193193
theorem card_biUnion_lt_iff_forall_of_isRegular {α β : Type u} {s : Set α} {t : ∀ a ∈ s, Set β}
194194
{c : Cardinal} (hc : c.IsRegular) (hs : #s < c) :
195-
#(⋃ a ∈ s, t a ‹_›) < c ↔ ∀ a (ha : a ∈ s), # (t a ha) < c := by
195+
#(⋃ a ∈ s, t a ‹_›) < c ↔ ∀ a (ha : a ∈ s), #(t a ha) < c := by
196196
rw [biUnion_eq_iUnion, card_iUnion_lt_iff_forall_of_isRegular hc hs, SetCoe.forall']
197197

198198
theorem nfpFamily_lt_ord_lift_of_isRegular {ι} {f : ι → Ordinal → Ordinal} {c} (hc : IsRegular c)

Mathlib/SetTheory/Cardinal/Subfield.lean

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -43,7 +43,7 @@ variable [DivisionRing α]
4343
private def operate : (Σ n, Operands s n → closure s) → closure s
4444
| ⟨.inl 0, f⟩ => f false + f true
4545
| ⟨.inl 1, f⟩ => f false * f true
46-
| ⟨.inl 2, f⟩ => - f ()
46+
| ⟨.inl 2, f⟩ => -f ()
4747
| ⟨.inl 3, f⟩ => (f ())⁻¹
4848
| ⟨.inl 4, _⟩ => 0
4949
| ⟨.inl 5, _⟩ => 1
@@ -74,7 +74,7 @@ lemma cardinalMk_closure_le_max : #(closure s) ≤ max #s ℵ₀ :=
7474
(Cardinal.mk_le_of_surjective <| surjective_ofWType s).trans <| by
7575
convert WType.cardinalMk_le_max_aleph0_of_finite' using 1
7676
· rw [lift_uzero, mk_sum, lift_uzero]
77-
have : lift.{u,0} #(Fin 6) < ℵ₀ := lift_lt_aleph0.mpr (lt_aleph0_of_finite _)
77+
have : lift.{u, 0} #(Fin 6) < ℵ₀ := lift_lt_aleph0.mpr (lt_aleph0_of_finite _)
7878
obtain h|h := lt_or_ge #s ℵ₀
7979
· rw [max_eq_right h.le, max_eq_right]
8080
exact (add_lt_aleph0 this h).le

Mathlib/SetTheory/Game/Ordinal.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,7 @@ termination_by o
4545
decreasing_by exact x.toOrd.prop
4646

4747
@[simp]
48-
theorem toPGame_leftMoves (o : Ordinal) : o.toPGame.LeftMoves = o.ToType := by
48+
theorem toPGame_leftMoves (o : Ordinal) : o.toPGame.LeftMoves = o.ToType := by
4949
rw [toPGame, LeftMoves]
5050

5151
@[simp]

Mathlib/SetTheory/Ordinal/Basic.lean

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1140,7 +1140,7 @@ theorem ord_aleph0 : ord.{u} ℵ₀ = ω := by
11401140
exact lt_aleph0_iff_fintype.2 ⟨Set.fintypeLTNat _⟩
11411141

11421142
@[simp]
1143-
theorem lift_ord (c) : Ordinal.lift.{u,v} (ord c) = ord (lift.{u,v} c) := by
1143+
theorem lift_ord (c) : Ordinal.lift.{u, v} (ord c) = ord (lift.{u, v} c) := by
11441144
refine le_antisymm (le_of_forall_lt fun a ha => ?_) ?_
11451145
· rcases Ordinal.lt_lift_iff.1 ha with ⟨a, _, rfl⟩
11461146
rwa [lt_ord, ← lift_card, lift_lt, ← lt_ord, ← Ordinal.lift_lt]
@@ -1232,7 +1232,7 @@ theorem lift_lt_univ (c : Cardinal) : lift.{u + 1, u} c < univ.{u, u + 1} := by
12321232

12331233
theorem lift_lt_univ' (c : Cardinal) : lift.{max (u + 1) v, u} c < univ.{u, v} := by
12341234
have := lift_lt.{_, max (u+1) v}.2 (lift_lt_univ c)
1235-
rw [lift_lift, lift_univ, univ_umax.{u,v}] at this
1235+
rw [lift_lift, lift_univ, univ_umax.{u, v}] at this
12361236
exact this
12371237

12381238
theorem aleph0_lt_univ : ℵ₀ < univ.{u, v} := by
@@ -1293,7 +1293,7 @@ end Cardinal
12931293
namespace Ordinal
12941294

12951295
@[simp]
1296-
theorem card_univ : card univ.{u,v} = Cardinal.univ.{u,v} :=
1296+
theorem card_univ : card univ.{u, v} = Cardinal.univ.{u, v} :=
12971297
rfl
12981298

12991299
@[simp]

0 commit comments

Comments
 (0)