Metamath Proof Explorer


Theorem lspsnvs

Description: A nonzero scalar product does not change the span of a singleton. ( spansncol analog.) (Contributed by NM, 23-Apr-2014)

Ref Expression
Hypotheses lspsnvs.v ⊢ V = Base W
lspsnvs.f ⊢ F = Scalar ⁡ W
lspsnvs.t ⊢ · ˙ = ⋅ W
lspsnvs.k ⊢ K = Base F
lspsnvs.o ⊢ 0 ˙ = 0 F
lspsnvs.n ⊢ N = LSpan ⁡ W
Assertion lspsnvs ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → N ⁡ R · ˙ X = N ⁡ X

Proof

Step Hyp Ref Expression
1 lspsnvs.v ⊢ V = Base W
2 lspsnvs.f ⊢ F = Scalar ⁡ W
3 lspsnvs.t ⊢ · ˙ = ⋅ W
4 lspsnvs.k ⊢ K = Base F
5 lspsnvs.o ⊢ 0 ˙ = 0 F
6 lspsnvs.n ⊢ N = LSpan ⁡ W
7 lveclmod ⊢ W ∈ LVec → W ∈ LMod
8 7 3ad2ant1 ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → W ∈ LMod
9 simp2l ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → R ∈ K
10 simp3 ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → X ∈ V
11 2 4 1 3 6 lspsnvsi ⊢ W ∈ LMod ∧ R ∈ K ∧ X ∈ V → N ⁡ R · ˙ X ⊆ N ⁡ X
12 8 9 10 11 syl3anc ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → N ⁡ R · ˙ X ⊆ N ⁡ X
13 2 lvecdrng ⊢ W ∈ LVec → F ∈ DivRing
14 13 3ad2ant1 ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → F ∈ DivRing
15 simp2r ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → R ≠ 0 ˙
16 eqid ⊢ ⋅ F = ⋅ F
17 eqid ⊢ 1 F = 1 F
18 eqid ⊢ inv r ⁡ F = inv r ⁡ F
19 4 5 16 17 18 drnginvrl ⊢ F ∈ DivRing ∧ R ∈ K ∧ R ≠ 0 ˙ → inv r ⁡ F ⁡ R ⋅ F R = 1 F
20 14 9 15 19 syl3anc ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → inv r ⁡ F ⁡ R ⋅ F R = 1 F
21 20 oveq1d ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → inv r ⁡ F ⁡ R ⋅ F R · ˙ X = 1 F · ˙ X
22 4 5 18 drnginvrcl ⊢ F ∈ DivRing ∧ R ∈ K ∧ R ≠ 0 ˙ → inv r ⁡ F ⁡ R ∈ K
23 14 9 15 22 syl3anc ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → inv r ⁡ F ⁡ R ∈ K
24 1 2 3 4 16 lmodvsass ⊢ W ∈ LMod ∧ inv r ⁡ F ⁡ R ∈ K ∧ R ∈ K ∧ X ∈ V → inv r ⁡ F ⁡ R ⋅ F R · ˙ X = inv r ⁡ F ⁡ R · ˙ R · ˙ X
25 8 23 9 10 24 syl13anc ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → inv r ⁡ F ⁡ R ⋅ F R · ˙ X = inv r ⁡ F ⁡ R · ˙ R · ˙ X
26 1 2 3 17 lmodvs1 ⊢ W ∈ LMod ∧ X ∈ V → 1 F · ˙ X = X
27 8 10 26 syl2anc ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → 1 F · ˙ X = X
28 21 25 27 3eqtr3d ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → inv r ⁡ F ⁡ R · ˙ R · ˙ X = X
29 28 sneqd ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → inv r ⁡ F ⁡ R · ˙ R · ˙ X = X
30 29 fveq2d ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → N ⁡ inv r ⁡ F ⁡ R · ˙ R · ˙ X = N ⁡ X
31 1 2 3 4 lmodvscl ⊢ W ∈ LMod ∧ R ∈ K ∧ X ∈ V → R · ˙ X ∈ V
32 8 9 10 31 syl3anc ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → R · ˙ X ∈ V
33 2 4 1 3 6 lspsnvsi ⊢ W ∈ LMod ∧ inv r ⁡ F ⁡ R ∈ K ∧ R · ˙ X ∈ V → N ⁡ inv r ⁡ F ⁡ R · ˙ R · ˙ X ⊆ N ⁡ R · ˙ X
34 8 23 32 33 syl3anc ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → N ⁡ inv r ⁡ F ⁡ R · ˙ R · ˙ X ⊆ N ⁡ R · ˙ X
35 30 34 eqsstrrd ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → N ⁡ X ⊆ N ⁡ R · ˙ X
36 12 35 eqssd ⊢ W ∈ LVec ∧ R ∈ K ∧ R ≠ 0 ˙ ∧ X ∈ V → N ⁡ R · ˙ X = N ⁡ X