We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 00dbc4e commit e8c7a0dCopy full SHA for e8c7a0d
Mathlib/RingTheory/Flat/TorsionFree.lean
@@ -63,6 +63,9 @@ lemma isSMulRegular_of_isRegular {r : R} (hr : IsRegular r) [Flat R M] :
63
rw [IsSMulRegular, h2]
64
simp [h, LinearEquiv.injective]
65
66
+instance Module.IsTorsionFree.ofFlat [Flat R M] : IsTorsionFree R M :=
67
+ ⟨fun _ hr ↦ Module.Flat.isSMulRegular_of_isRegular hr⟩
68
+
69
end Semiring
70
71
section Ring
0 commit comments