∀ {R : Type u} {M : Type u_1} {N : Type u_2} [inst : CommSemiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M]
  [inst_3 : AddCommMonoid N] [inst_4 : Module R N] {P : Submodule R M},
  P.FG →
    ∀ {t t' : TensorProduct R (↥P) N},
      (LinearMap.rTensor N P.subtype) t = (LinearMap.rTensor N P.subtype) t' →
        ∃ Q,
          ∃ (hPQ : P ≤ Q),
            Q.FG ∧
              (LinearMap.rTensor N (Submodule.inclusion hPQ)) t = (LinearMap.rTensor N (Submodule.inclusion hPQ)) t'