{R : Type u} →
  {A : Type v} →
    [inst : Star R] →
      [inst_1 : Star A] →
        [inst_2 : SMul R A] →
          {motive : StarModule R A → Sort u_1} →
            (t : StarModule R A) →
              ((star_smul : ∀ (r : R) (a : A), star (r • a) = star r • star a) → motive ⋯) → motive t