∀ {R : Type u} {M : Type v} [inst : Semiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M] {A : Type u_1}
  [inst_3 : SetLike A M] [inst_4 : AddSubmonoidClass A M] [inst_5 : SMulMemClass A R M] (S' : A),
  ⇑(SMulMemClass.subtype S') = Subtype.val