{R : Type u_2} →
  [inst : Ring R] →
    {M : Type u_4} →
      [inst_1 : AddCommGroup M] →
        [inst_2 : Module R M] →
          {motive : IsSemisimpleModule R M → Sort u} →
            (t : IsSemisimpleModule R M) →
              ([toComplementedLattice : ComplementedLattice (Submodule R M)] → motive ⋯) → motive t