(R : Type u) →
  (M : Type v) →
    (N : Type u_3) →
      [inst : Semiring R] →
        [inst_1 : AddCommGroup M] →
          [inst_2 : AddCommGroup N] → [inst_3 : Module R M] → [inst_4 : Module R N] → (M × N) ≃ₗ[R] N × M