{R : Type u} →
  {S : Type v} →
    [inst : CommSemiring R] →
      [inst_1 : Semiring S] →
        [inst_2 : Algebra R S] →
          {M N : Submodule R S} →
            {motive : M.LinearDisjoint N → Sort u_1} →
              (t : M.LinearDisjoint N) → ((injective : Function.Injective ⇑(M.mulMap N)) → motive ⋯) → motive t