∀ {R : Type u} {S : Type v} (A : Type w) [inst : CommSemiring R] [inst_1 : CommSemiring S] [inst_2 : Semiring A]
  [inst_3 : Algebra R A] (f : S →+* R) (s : S), (algebraMap S A) s = (algebraMap R A) (f s)