∀ {R : Type u_1} {A : Type u_2} [inst : Ring R] [inst_1 : AddCommGroup A] [inst_2 : Module R A]
  [inst_3 : StarAddMonoid R] [inst_4 : StarAddMonoid A] [StarModule R A] {r : R},
  r ∈ skewAdjoint R → ∀ {a : A}, IsSelfAdjoint a → r • a ∈ skewAdjoint A