File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -182,11 +182,13 @@ theorem qsmul_def (a : ℚ) (x : DivisibleHull M) :
182182theorem zero_qsmul (x : DivisibleHull M) : (0 : ℚ) • x = 0 := by
183183 simp [qsmul_def]
184184
185+ attribute [local instance ] LocalizedModule.moduleOfIsLocalization in
185186theorem 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
190192theorem 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
208211noncomputable
209212instance : Module ℚ (DivisibleHull M) where
210213 one_smul x := by
@@ -326,6 +329,7 @@ end LinearOrder
326329section OrderedGroup
327330variable {M : Type *} [AddCommGroup M] [LinearOrder M] [IsOrderedAddMonoid M]
328331
332+ attribute [local instance ] LocalizedModule.moduleOfIsLocalization in
329333instance : 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]
Original file line number Diff line number Diff line change @@ -46,6 +46,7 @@ given by `m/s ↦ (1/s) ⊗ₜ m`.
4646-/
4747theorem 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
You can’t perform that action at this time.
0 commit comments