Skip to content

Commit 23fe746

Browse files
kim-emclaude
andcommitted
fix: revert CCL/Group.lean and CCL/Finset.lean to master
The @[to_dual existing] attributes in these files are incompatible with the ConditionallyCompletePartialOrder instance from leanprover-community#35047. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
1 parent 315df84 commit 23fe746

File tree

2 files changed

+0
-26
lines changed

2 files changed

+0
-26
lines changed

Mathlib/Order/ConditionallyCompleteLattice/Finset.lean

Lines changed: 0 additions & 20 deletions
Original file line numberDiff line numberDiff line change
@@ -175,21 +175,6 @@ theorem exists_eq_ciSup_of_finite [Nonempty ι] [Finite ι] {f : ι → α} :
175175
theorem exists_eq_ciInf_of_finite [Nonempty ι] [Finite ι] {f : ι → α} : ∃ i, f i = ⨅ i, f i :=
176176
Nonempty.csInf_mem (range_nonempty f) (finite_range f)
177177

178-
-- Register dual pairs in this section for downstream `@[to_dual]` usage.
179-
-- Note: Finset.Nonempty.csSup_eq_max' and Finset.ciSup_eq_max'_image cannot be registered
180-
-- because Finset.max' / Finset.min' are not registered as @[to_dual] pairs.
181-
attribute [to_dual existing] Finset.Nonempty.csSup_mem
182-
attribute [to_dual existing] Set.Nonempty.csSup_mem
183-
attribute [to_dual existing Set.Finite.lt_csInf_iff] Set.Finite.csSup_lt_iff
184-
attribute [to_dual existing] Finset.ciSup_mem_image
185-
attribute [to_dual existing] Set.Finite.ciSup_mem_image
186-
attribute [to_dual existing Set.Finite.lt_ciInf_iff] Set.Finite.ciSup_lt_iff
187-
attribute [to_dual existing List.iInf_mem_map_of_exists_le_sInf_empty]
188-
List.iSup_mem_map_of_exists_sSup_empty_le
189-
attribute [to_dual existing Multiset.iInf_mem_map_of_exists_le_sInf_empty]
190-
Multiset.iSup_mem_map_of_exists_sSup_empty_le
191-
attribute [to_dual existing] exists_eq_ciSup_of_finite
192-
193178
end ListMultiset
194179

195180
end ConditionallyCompleteLinearOrder
@@ -208,8 +193,6 @@ lemma le_ciSup (i : ι) : f i ≤ ⨆ j, f j := by
208193
lemma ciInf_le (i : ι) : ⨅ j, f j ≤ f i :=
209194
le_ciSup (α := αᵒᵈ) f i
210195

211-
attribute [to_dual existing Finite.ciInf_le] Finite.le_ciSup
212-
213196
end Finite
214197

215198
/-!
@@ -247,9 +230,6 @@ lemma sup'_univ_eq_ciSup (f : ι → α) : univ.sup' univ_nonempty f = ⨆ i, f
247230
lemma inf'_univ_eq_ciInf (f : ι → α) : univ.inf' univ_nonempty f = ⨅ i, f i := by
248231
simp [inf'_eq_csInf_image, iInf]
249232

250-
-- Note: sup'_eq_csSup_image / inf'_eq_csInf_image cannot be registered because
251-
-- Finset.sup' / Finset.inf' are not registered as @[to_dual] pairs.
252-
253233
end ConditionallyCompleteLattice
254234

255235
section ConditionallyCompleteLinearOrderBot

Mathlib/Order/ConditionallyCompleteLattice/Group.lean

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -34,8 +34,6 @@ lemma ciInf_mul_ciInf_le_ciInf_mul [MulLeftMono α] [MulRightMono α]
3434
(⨅ i, f i) * ⨅ i, g i ≤ ⨅ i, f i * g i :=
3535
le_ciInf fun i ↦ mul_le_mul' (ciInf_le hf i) (ciInf_le hg i)
3636

37-
attribute [to_dual existing ciInf_mul_ciInf_le_ciInf_mul] ciSup_mul_le_ciSup_mul_ciSup
38-
3937
end Mul
4038

4139
section Group
@@ -73,8 +71,4 @@ theorem ciSup_mul_ciSup_le [MulLeftMono α] [MulRightMono α] {a : α} {g : ι
7371
(H : ∀ i j, g i * h j ≤ a) : iSup g * iSup h ≤ a :=
7472
ciSup_mul_le fun _ => mul_ciSup_le <| H _
7573

76-
attribute [to_dual existing le_mul_ciInf] mul_ciSup_le
77-
attribute [to_dual existing le_ciInf_mul] ciSup_mul_le
78-
attribute [to_dual existing le_ciInf_mul_ciInf] ciSup_mul_ciSup_le
79-
8074
end Group

0 commit comments

Comments
 (0)