∀ {R : Type u_3} {S : Type u_1} [inst : CommRing R] [inst_1 : CommRing S] (f : R →+* S) {X : ModuleCat R}
  {Y : ModuleCat S} (g : (ModuleCat.extendScalars f).obj X ⟶ Y) (r : R) (s : ↑X),
  (CategoryTheory.ConcreteCategory.hom g) (1 ⊗ₜ[R] (r • s)) =
    (RingHom.id R) r • (CategoryTheory.ConcreteCategory.hom g) (1 ⊗ₜ[R] s)