English
There is no strictly larger subspace between s and (K x) ⊔ s in WCovBy sense.
Русский
Нет подпространения между s и (K x) ⊔ s внутри WCovBy.
LaTeX
$$$WCovBy\, s\, (K\,\cdot\, x) \;\sqcup\; s$$$
Lean4
/-- There is no vector subspace between `s` and `(K ∙ x) ⊔ s`, `WCovBy` version. -/
theorem wcovBy_span_singleton_sup (x : V) (s : Submodule K V) : WCovBy s ((K ∙ x) ⊔ s) :=
by
refine ⟨le_sup_right, fun q hpq hqp ↦ hqp.not_ge ?_⟩
rcases SetLike.exists_of_lt hpq with ⟨y, hyq, hyp⟩
obtain ⟨c, z, hz, rfl⟩ : ∃ c : K, ∃ z ∈ s, c • x + z = y := by simpa [mem_sup, mem_span_singleton] using hqp.le hyq
rcases eq_or_ne c 0 with rfl | hc
· simp [hz] at hyp
· have : x ∈ q := by rwa [q.add_mem_iff_left (hpq.le hz), q.smul_mem_iff hc] at hyq
simp [hpq.le, this]