∀ {R : Type u} {M : Type v} {N : Type w} [inst : Ring R] [inst_1 : TopologicalSpace R] [inst_2 : TopologicalSpace M]
  [inst_3 : AddCommGroup M] [inst_4 : AddCommGroup N] [inst_5 : Module R M] [ContinuousSMul R M] [inst_7 : Module R N]
  [ContinuousAdd M] [IsSimpleModule R N] (l : M →ₗ[R] N), IsClosed ↑l.ker ∨ Dense ↑l.ker