∀ {R : Type u} [inst : CommSemiring R] {M : Type u_1} [inst_1 : AddCommMonoid M] [inst_2 : Module R M] {N : Type u_2}
  [inst_3 : AddCommMonoid N] [inst_4 : Module R N] (f : M →ₚₗ[R] N) (m : M),
  f.ground m = (TensorProduct.lid R N) (f.toFun' R (1 ⊗ₜ[R] m))