∀ {R : Type u_1} [inst : CommRing R] (r : R) {M : Type u_2} {M' : Type u_3} [inst_1 : AddCommGroup M]
  [inst_2 : Module R M] [inst_3 : AddCommGroup M'] [inst_4 : Module R M'] (x : M →ₗ[R] M'),
  r • ⊤ ≤ Submodule.comap (LinearMap.id x) (r • ⊤)