∀ {R : Type u_2} {A : Type u_3} [inst : CommSemiring R] [inst_1 : NonUnitalSemiring A] [inst_2 : Module R A]
  [inst_3 : SMulCommClass R A A] [inst_4 : IsScalarTower R A A] {C : Type u_1} [inst_5 : Semiring C]
  [inst_6 : Algebra R C] (φ : A →ₙₐ[R] C) (r : R),
  (algebraMap R C) ((algebraMap R (Unitization R A)) r).fst + φ ((algebraMap R (Unitization R A)) r).snd =
    (algebraMap R C) r