@@ -97,14 +97,17 @@ some order making the group into a partially ordered group. -/
9797structure GroupCone (G : Type *) [CommGroup G] extends Submonoid G where
9898 eq_one_of_mem_of_inv_mem' {a} : a ∈ carrier → a⁻¹ ∈ carrier → a = 1
9999
100+ set_option linter.deprecated false in
100101@[to_additive (attr := deprecated " no replacement" (since := " 2026-03-28" ))]
101102instance GroupCone.instSetLike (G : Type *) [CommGroup G] : SetLike (GroupCone G) G where
102103 coe C := C.carrier
103104 coe_injective' p q h := by cases p; cases q; congr; exact SetLike.ext' h
104105
106+ set_option linter.deprecated false in
105107@[to_additive (attr := deprecated " no replacement" (since := " 2026-03-28" ))]
106108instance (G : Type *) [CommGroup G] : PartialOrder (GroupCone G) := .ofSetLike (GroupCone G) G
107109
110+ set_option linter.deprecated false in
108111@[to_additive (attr := deprecated " no replacement" (since := " 2026-03-28" ))]
109112instance GroupCone.instGroupConeClass (G : Type *) [CommGroup G] :
110113 GroupConeClass (GroupCone G) G where
@@ -118,6 +121,7 @@ initialize_simps_projections AddGroupCone (carrier → coe, as_prefix coe)
118121namespace GroupCone
119122variable {H : Type *} [CommGroup H] [PartialOrder H] [IsOrderedMonoid H] {a : H}
120123
124+ set_option linter.deprecated false in
121125variable (H) in
122126/-- The cone of elements that are at least 1. -/
123127@[to_additive (attr := deprecated Submonoid.oneLE.isMulPointed (since := " 2026-03-28" ))
@@ -126,13 +130,19 @@ def oneLE : GroupCone H where
126130 __ := Submonoid.oneLE H
127131 eq_one_of_mem_of_inv_mem' {a} := by simpa using ge_antisymm
128132
133+ set_option linter.deprecated false in
129134@[to_additive (attr := simp, deprecated " no replacement" (since := " 2026-03-28" ))]
130135lemma oneLE_toSubmonoid : (oneLE H).toSubmonoid = .oneLE H := rfl
136+
137+ set_option linter.deprecated false in
131138@[to_additive (attr := simp, deprecated " no replacement" (since := " 2026-03-28" ))]
132139lemma mem_oneLE : a ∈ oneLE H ↔ 1 ≤ a := Iff.rfl
140+
141+ set_option linter.deprecated false in
133142@[to_additive (attr := simp, norm_cast, deprecated " no replacement" (since := " 2026-03-28" ))]
134143lemma coe_oneLE : oneLE H = {x : H | 1 ≤ x} := rfl
135144
145+ set_option linter.deprecated false in
136146@[to_additive (attr := deprecated Submonoid.oneLE.isMulSpanning (since := " 2026-03-28" ))]
137147instance oneLE.hasMemOrInvMem {H : Type *} [CommGroup H] [LinearOrder H] [IsOrderedMonoid H] :
138148 HasMemOrInvMem (oneLE H) where
@@ -142,6 +152,7 @@ end GroupCone
142152
143153variable {S G : Type *} [CommGroup G] [SetLike S G] (C : S)
144154
155+ set_option linter.deprecated false in
145156/-- Construct a partial order by designating a cone in an abelian group. -/
146157@[to_additive (attr := deprecated PartialOrder.mkOfSubmonoid (since := " 2026-03-28" ))
147158/-- Construct a partial order by designating a cone in an abelian group. -/ ]
@@ -152,11 +163,13 @@ abbrev PartialOrder.mkOfGroupCone [GroupConeClass S G] : PartialOrder G where
152163 le_antisymm a b nab nba := by
153164 simpa [div_eq_one, eq_comm] using eq_one_of_mem_of_inv_mem nab (by simpa using nba)
154165
166+ set_option linter.deprecated false in
155167@[to_additive (attr := simp, deprecated PartialOrder.mkOfSubmonoid_le_iff (since := " 2026-03-28" ))]
156168lemma PartialOrder.mkOfGroupCone_le_iff {S G : Type *} [CommGroup G] [SetLike S G]
157169 [GroupConeClass S G] {C : S} {a b : G} :
158170 (mkOfGroupCone C).le a b ↔ b / a ∈ C := Iff.rfl
159171
172+ set_option linter.deprecated false in
160173/-- Construct a linear order by designating a maximal cone in an abelian group. -/
161174@[to_additive (attr := deprecated LinearOrder.mkOfSubmonoid (since := " 2026-03-28" ))
162175/-- Construct a linear order by designating a maximal cone in an abelian group. -/ ]
@@ -166,6 +179,7 @@ abbrev LinearOrder.mkOfGroupCone
166179 le_total a b := by simpa using mem_or_inv_mem C (b / a)
167180 toDecidableLE _ := _
168181
182+ set_option linter.deprecated false in
169183/-- Construct a partially ordered abelian group by designating a cone in an abelian group. -/
170184@[to_additive (attr := deprecated IsOrderedMonoid.mkOfSubmonoid (since := " 2026-03-28" ))
171185 /-- Construct a partially ordered abelian group by designating a cone in an abelian group. -/ ]
0 commit comments