∀ {R : Type u_1} {A : Type u_2} [inst : Monoid R] [inst_1 : Monoid A] [inst_2 : MulAction R A]
  [inst_3 : SMulCommClass R A A] [inst_4 : IsScalarTower R A A] [inst_5 : StarMul R] [inst_6 : StarMul A]
  [inst_7 : StarModule R A] (r : ↥(unitary R)) (a : ↥(unitary A)), ↑(r • a) = r • ↑a