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