Skip to content

Commit 36603a2

Browse files
vihdzpb-mehta
authored andcommitted
chore: rename Order.cof_eqOrder.exists_cof_eq (leanprover-community#39851)
1 parent 589431f commit 36603a2

3 files changed

Lines changed: 16 additions & 12 deletions

File tree

Mathlib/SetTheory/Cardinal/Cofinality/Basic.lean

Lines changed: 8 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -48,17 +48,19 @@ theorem le_cof_iff {c : Cardinal} : c ≤ cof α ↔ ∀ s : Set α, IsCofinal s
4848
@[deprecated (since := "2026-02-18")] alias le_cof := le_cof_iff
4949

5050
variable (α) in
51-
theorem cof_eq : ∃ s : Set α, IsCofinal s ∧ #s = cof α := by
51+
theorem exists_cof_eq : ∃ s : Set α, IsCofinal s ∧ #s = cof α := by
5252
obtain ⟨s, hs⟩ := ciInf_mem fun s : {s : Set α // IsCofinal s} ↦ #s
5353
exact ⟨s.1, s.2, hs⟩
5454

55+
@[deprecated (since := "2026-05-25")] alias cof_eq := exists_cof_eq
56+
5557
variable (α) in
5658
theorem cof_le_cardinalMk : cof α ≤ #α :=
5759
cof_le .univ |>.trans_eq mk_univ
5860

5961
theorem cof_eq_zero_iff : cof α = 0 ↔ IsEmpty α := by
6062
refine ⟨fun _ ↦ ?_, fun _ ↦ by simp [cof]⟩
61-
obtain ⟨s, hs, hs'⟩ := cof_eq α
63+
obtain ⟨s, hs, hs'⟩ := exists_cof_eq α
6264
simp_all [mk_eq_zero_iff, isCofinal_empty_iff]
6365

6466
@[simp]
@@ -74,7 +76,7 @@ theorem cof_ne_zero [h : Nonempty α] : cof α ≠ 0 :=
7476

7577
theorem cof_eq_one_iff : cof α = 1 ↔ ∃ x : α, IsTop x := by
7678
refine ⟨fun h ↦ ?_, fun ⟨t, ht⟩ ↦ ?_⟩
77-
· obtain ⟨s, hs, hs'⟩ := cof_eq α
79+
· obtain ⟨s, hs, hs'⟩ := exists_cof_eq α
7880
rw [h, mk_set_eq_one_iff] at hs'
7981
obtain ⟨t, rfl⟩ := hs'
8082
use t
@@ -132,9 +134,9 @@ theorem cof_congr_of_strictMono {f : α → γ} (hf : StrictMono f) (hf' : IsCof
132134
simpa using lift_cof_congr_of_strictMono hf hf'
133135

134136
@[simp]
135-
theorem cof_lt_aleph0_iff : Order.cof α < ℵ₀ ↔ Order.cof α ≤ 1 := by
137+
theorem cof_lt_aleph0_iff : cof α < ℵ₀ ↔ cof α ≤ 1 := by
136138
refine ⟨fun h ↦ ?_, (lt_of_le_of_lt · one_lt_aleph0)⟩
137-
obtain ⟨s, hs, hs'⟩ := Order.cof_eq α
139+
obtain ⟨s, hs, hs'⟩ := exists_cof_eq α
138140
have hf : s.Finite := by
139141
rw [Set.Finite, ← mk_lt_aleph0_iff]
140142
exact hs'.trans_lt h
@@ -143,7 +145,7 @@ theorem cof_lt_aleph0_iff : Order.cof α < ℵ₀ ↔ Order.cof α ≤ 1 := by
143145
simpa
144146

145147
@[simp]
146-
theorem aleph0_le_cof_iff : ℵ₀ ≤ Order.cof α ↔ 1 < Order.cof α := by
148+
theorem aleph0_le_cof_iff : ℵ₀ ≤ cof α ↔ 1 < cof α := by
147149
simp [← not_lt]
148150

149151
theorem aleph0_le_cof [Nonempty α] [NoMaxOrder α] : ℵ₀ ≤ cof α := by

Mathlib/SetTheory/Cardinal/Cofinality/Ordinal.lean

Lines changed: 7 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -151,9 +151,9 @@ theorem cof_omega0 : cof ω = ℵ₀ :=
151151

152152
@[deprecated (since := "2026-02-18")] alias cof_eq_one_iff_is_succ := cof_eq_one_iff
153153

154-
theorem ord_cof_eq (α : Type*) [LinearOrder α] [WellFoundedLT α] :
154+
theorem exists_ord_cof_eq (α : Type*) [LinearOrder α] [WellFoundedLT α] :
155155
∃ s : Set α, IsCofinal s ∧ typeLT s = (Order.cof α).ord := by
156-
obtain ⟨s, hs, hs'⟩ := Order.cof_eq α
156+
obtain ⟨s, hs, hs'⟩ := exists_cof_eq α
157157
obtain ⟨r, hr, hr'⟩ := exists_ord_eq s
158158
have ht := hs.trans (isCofinal_setOf_imp_lt r)
159159
refine ⟨_, ht, (ord_le.2 (cof_le ht)).antisymm' ?_⟩
@@ -166,10 +166,12 @@ theorem ord_cof_eq (α : Type*) [LinearOrder α] [WellFoundedLT α] :
166166
· obtain ⟨x, z, hz, rfl⟩ := x
167167
exact (hz _ hxy').asymm hxy
168168

169+
@[deprecated (since := "2026-05-25")] alias ord_cof_eq := exists_ord_cof_eq
170+
169171
@[simp]
170172
theorem _root_.Order.cof_ord_cof (α : Type*) [LinearOrder α] [WellFoundedLT α] :
171173
(Order.cof α).ord.cof = Order.cof α := by
172-
obtain ⟨s, hs, hs'⟩ := ord_cof_eq α
174+
obtain ⟨s, hs, hs'⟩ := exists_ord_cof_eq α
173175
rw [← hs', cof_type]
174176
apply le_antisymm
175177
· rw [← card_ord (Order.cof α), ← hs', card_type]
@@ -547,7 +549,7 @@ theorem cof_eq' (r : α → α → Prop) [H : IsWellOrder α r] (h : IsSuccLimit
547549
let := linearOrderOfSTO r
548550
have : WellFoundedLT α := H.toIsWellFounded
549551
have : NoMaxOrder α := isSuccPrelimit_type_lt_iff.1 h.isSuccPrelimit
550-
obtain ⟨s, hs, hs'⟩ := Order.cof_eq α
552+
obtain ⟨s, hs, hs'⟩ := exists_cof_eq α
551553
refine ⟨s, ?_, hs'⟩
552554
rwa [← not_bddAbove_iff_isCofinal, not_bddAbove_iff] at hs
553555

@@ -631,7 +633,7 @@ theorem lt_power_cof_ord {c : Cardinal} (hc : ℵ₀ ≤ c) : c < c ^ c.ord.cof
631633
have : NoMaxOrder α := by
632634
rw [← isSuccPrelimit_type_lt_iff, ← hα]
633635
exact (isSuccLimit_ord hc).isSuccPrelimit
634-
obtain ⟨s, hs, hs'⟩ := ord_cof_eq α
636+
obtain ⟨s, hs, hs'⟩ := exists_ord_cof_eq α
635637
rw [hα, cof_type, ← card_ord (Order.cof _), ← hs', card_type, ← prod_const']
636638
refine (mk_iUnion_le_sum_mk.trans' ?_).trans_lt (sum_lt_prod _ _ fun i ↦ mk_Iio_lt i.1 hα)
637639
rw [← mk_univ, ← isCofinal_iff_iUnion_Iio_eq_univ.1 hs, iUnion_coe_set]

Mathlib/SetTheory/Ordinal/FundamentalSequence.lean

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -111,7 +111,7 @@ end IsFundamentalSeq
111111
/-- Every ordinal has a fundamental sequence. -/
112112
theorem exists_isFundamentalSeq (ha : o.cof.ord = a) : ∃ f : Iio a → Iio o, IsFundamentalSeq f := by
113113
subst ha
114-
obtain ⟨s, hs, hs'⟩ := ord_cof_eq o.ToType
114+
obtain ⟨s, hs, hs'⟩ := exists_ord_cof_eq o.ToType
115115
rw [cof_toType] at hs'
116116
let g := (OrderIso.setCongr _ _ (congrArg _ hs'.symm)).trans <|
117117
.ofRelIsoLT (enum (α := s) (· < ·))

0 commit comments

Comments
 (0)