∀ {R : Type u_1} (A : Type u_2) [inst : CommSemiring R] [inst_1 : StarRing R] [inst_2 : Semiring A] [inst_3 : StarMul A]
  [inst_4 : Algebra R A] [StarModule R A] {r : R}, IsSelfAdjoint r → IsSelfAdjoint ((algebraMap R A) r)