(R : Type u) →
  (M : Type v) →
    (M₂ : Type w) →
      (M₃ : Type y) →
        (M₄ : Type z) →
          (S : Type u_3) →
            [inst : Semiring R] →
              [inst_1 : Semiring S] →
                [inst_2 : AddCommMonoid M] →
                  [inst_3 : AddCommMonoid M₂] →
                    [inst_4 : AddCommMonoid M₃] →
                      [inst_5 : AddCommMonoid M₄] →
                        [inst_6 : Module R M] →
                          [inst_7 : Module R M₂] →
                            [inst_8 : Module R M₃] →
                              [inst_9 : Module R M₄] →
                                [inst_10 : Module S M₃] →
                                  [inst_11 : Module S M₄] →
                                    [inst_12 : SMulCommClass R S M₃] →
                                      [inst_13 : SMulCommClass R S M₄] →
                                        (M →ₗ[R] M₃) × (M₂ →ₗ[R] M₄) →ₗ[S] M × M₂ →ₗ[R] M₃ × M₄