∀ {R : Type u} {A : Type v} [inst : CommSemiring R] [inst_1 : Ring A] [inst_2 : Algebra R A] [inst_3 : InvolutiveStar R]
  [inst_4 : StarRing A] [StarModule R A] (a : A), spectrum R (star a) = star (spectrum R a)