∀ (R : Type u_2) (M : Type u_1) [inst : Ring R] [inst_1 : AddCommGroup M] [inst_2 : Module R M]
  (motive : (∃ s ⊆ isotypicComponents R M, ⊤ = sSup s) → Prop) (x : ∃ s ⊆ isotypicComponents R M, ⊤ = sSup s),
  (∀ (w : Set (Submodule R M)) (h : w ⊆ isotypicComponents R M) (eq : ⊤ = sSup w), motive ⋯) → motive x