Skip to content

Commit 34b2fa7

Browse files
committed
fix
1 parent 4f75eda commit 34b2fa7

2 files changed

Lines changed: 5 additions & 0 deletions

File tree

Mathlib/GroupTheory/DivisibleHull.lean

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -182,11 +182,13 @@ theorem qsmul_def (a : ℚ) (x : DivisibleHull M) :
182182
theorem zero_qsmul (x : DivisibleHull M) : (0 : ℚ) • x = 0 := by
183183
simp [qsmul_def]
184184

185+
attribute [local instance] LocalizedModule.moduleOfIsLocalization in
185186
theorem qsmul_of_nonneg {a : ℚ} (h : 0 ≤ a) (x : DivisibleHull M) :
186187
a • x = (show ℚ≥0 from ⟨a, h⟩) • x := by
187188
have := h.eq_or_lt
188189
aesop (add simp [qsmul_def, abs_of_pos])
189190

191+
attribute [local instance] LocalizedModule.moduleOfIsLocalization in
190192
theorem qsmul_of_nonpos {a : ℚ} (h : a ≤ 0) (x : DivisibleHull M) :
191193
a • x = -((show ℚ≥0 from ⟨-a, Left.nonneg_neg_iff.mpr h⟩) • x) := by
192194
have := h.eq_or_lt
@@ -205,6 +207,7 @@ theorem qsmul_mk (a : ℚ) (m : M) (s : ℕ+) :
205207
simpa using h
206208
simp [nnqsmul_mk, this, ← neg_mk]
207209

210+
attribute [local instance] LocalizedModule.moduleOfIsLocalization in
208211
noncomputable
209212
instance : Module ℚ (DivisibleHull M) where
210213
one_smul x := by
@@ -326,6 +329,7 @@ end LinearOrder
326329
section OrderedGroup
327330
variable {M : Type*} [AddCommGroup M] [LinearOrder M] [IsOrderedAddMonoid M]
328331

332+
attribute [local instance] LocalizedModule.moduleOfIsLocalization in
329333
instance : IsStrictOrderedModule ℚ (DivisibleHull M) where
330334
smul_lt_smul_of_pos_left a ha b c h := by
331335
simp_rw [qsmul_of_nonneg ha.le]

Mathlib/RingTheory/Localization/BaseChange.lean

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -46,6 +46,7 @@ given by `m/s ↦ (1/s) ⊗ₜ m`.
4646
-/
4747
theorem isLocalizedModule_iff_isBaseChange : IsLocalizedModule S f ↔ IsBaseChange A f := by
4848
refine ⟨fun _ ↦ IsLocalizedModule.isBaseChange S A f, fun h ↦ ?_⟩
49+
letI : Module A (LocalizedModule S M) := LocalizedModule.moduleOfIsLocalization ..
4950
have : IsBaseChange A (LocalizedModule.mkLinearMap S M) := IsLocalizedModule.isBaseChange S A _
5051
let e := (this.equiv.symm.trans h.equiv).restrictScalars R
5152
convert IsLocalizedModule.of_linearEquiv S (LocalizedModule.mkLinearMap S M) e

0 commit comments

Comments
 (0)