@@ -509,26 +509,10 @@ def smulNatTrans : R →+* End (forget₂ (ModuleCat R) AddCommGrpCat) where
509509 toFun r :=
510510 { app := fun M => M.smul r
511511 naturality := fun _ _ _ => smul_naturality _ r }
512- map_one' := NatTrans.ext (by
513- #adaptation_note /-- Prior to https://github.com/leanprover/lean4/pull/12244
514- this was just `cat_disch`. -/
515- simp +instances only [forget₂_obj, map_one, End.one_def]
516- cat_disch)
517- map_zero' := NatTrans.ext (by
518- #adaptation_note /-- Prior to https://github.com/leanprover/lean4/pull/12244
519- this was just `cat_disch`. -/
520- simp +instances only [forget₂_obj, map_zero]
521- cat_disch)
522- map_mul' _ _ := NatTrans.ext (by
523- #adaptation_note /-- Prior to https://github.com/leanprover/lean4/pull/12244
524- this was just `cat_disch`. -/
525- simp +instances only [forget₂_obj, map_mul, End.mul_def]
526- cat_disch)
527- map_add' _ _ := NatTrans.ext (by
528- #adaptation_note /-- Prior to https://github.com/leanprover/lean4/pull/12244
529- this was just `cat_disch`. -/
530- simp +instances only [forget₂_obj, map_add]
531- cat_disch)
512+ map_one' := by cat_disch
513+ map_zero' := by cat_disch
514+ map_mul' _ _ := by cat_disch
515+ map_add' _ _ := by cat_disch
532516
533517/-- Given `A : AddCommGrpCat` and a ring morphism `R →+* End A`, this is a type synonym
534518for `A`, on which we shall define a structure of `R`-module. -/
0 commit comments