Skip to content

Commit 0854ea2

Browse files
committed
suggested change
1 parent 7d620cc commit 0854ea2

1 file changed

Lines changed: 8 additions & 8 deletions

File tree

Mathlib/RingTheory/ClassGroup.lean

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -442,15 +442,15 @@ theorem FractionalIdeal.map_ringEquivOfRingEquiv_toPrincipalIdeal {S L : Type*}
442442
← FractionalIdeal.ringEquivOfRingEquiv_symm_eq, hu]
443443
rfl
444444

445-
/-- A ring isomorphism `P ≃+* P'` induces an isomorphism on their class groups. -/
445+
/-- A ring isomorphism `R ≃+* R'` induces an isomorphism on their class groups. -/
446446
@[simps!]
447-
noncomputable def ClassGroup.mulEquiv {P P' : Type*} [CommRing P] [IsDomain P] [CommRing P']
448-
[IsDomain P'] (g : P ≃+* P') : ClassGroup P ≃* ClassGroup P' :=
449-
(ClassGroup.equiv (R := P) (FractionRing P)).trans
450-
((QuotientGroup.congr (toPrincipalIdeal P (FractionRing P)).range
451-
(toPrincipalIdeal P' (FractionRing P')).range
452-
(Units.mapEquiv (FractionalIdeal.ringEquivOfRingEquiv (FractionRing P) (FractionRing P') g))
447+
noncomputable def ClassGroup.mulEquiv {R' : Type*} [CommRing R'] [IsDomain R'] (g : R ≃+* R') :
448+
ClassGroup R ≃* ClassGroup R' :=
449+
(ClassGroup.equiv (R := R) (FractionRing R)).trans
450+
((QuotientGroup.congr (toPrincipalIdeal R (FractionRing R)).range
451+
(toPrincipalIdeal R' (FractionRing R')).range
452+
(Units.mapEquiv (FractionalIdeal.ringEquivOfRingEquiv (FractionRing R) (FractionRing R') g))
453453
(FractionalIdeal.map_ringEquivOfRingEquiv_toPrincipalIdeal g)).trans
454-
(ClassGroup.equiv (FractionRing P')).symm)
454+
(ClassGroup.equiv (FractionRing R')).symm)
455455

456456
end MulEquiv

0 commit comments

Comments
 (0)