∀ {R : Type u₁} {S : Type u₂} [inst : Ring R] [inst_1 : Ring S] (f : R →+* S) {M M' : ModuleCat R} (g : M ⟶ M')
  (h : ↑((ModuleCat.restrictScalars f).obj (ModuleCat.of S S)) →ₗ[R] ↑M)
  (a : ↑((ModuleCat.restrictScalars f).obj (ModuleCat.of S S))),
  ((ModuleCat.Hom.hom (ModuleCat.CoextendScalars.map' f g)) h) a = (ModuleCat.Hom.hom g) (h a)