{R : Type u_2} →
  {M : Type u_1} →
    [inst : Ring R] →
      [inst_1 : AddCommGroup M] →
        [inst_2 : Module R M] →
          (motive : Submodule R M × Submodule R M → Sort u_3) →
            (x : Submodule R M × Submodule R M) → ((N₁ N₂ : Submodule R M) → motive (N₁, N₂)) → motive x