Metamath Proof Explorer


Theorem islbs2

Description: An equivalent formulation of the basis predicate in a vector space: a subset is a basis iff no element is in the span of the rest of the set. (Contributed by Mario Carneiro, 14-Jan-2015)

Ref Expression
Hypotheses islbs2.v V = Base W
islbs2.j J = LBasis W
islbs2.n N = LSpan W
Assertion islbs2 W LVec B J B V N B = V x B ¬ x N B x

Proof

Step Hyp Ref Expression
1 islbs2.v V = Base W
2 islbs2.j J = LBasis W
3 islbs2.n N = LSpan W
4 1 2 lbsss B J B V
5 4 adantl W LVec B J B V
6 1 2 3 lbssp B J N B = V
7 6 adantl W LVec B J N B = V
8 lveclmod W LVec W LMod
9 eqid Scalar W = Scalar W
10 9 lvecdrng W LVec Scalar W DivRing
11 eqid 0 Scalar W = 0 Scalar W
12 eqid 1 Scalar W = 1 Scalar W
13 11 12 drngunz Scalar W DivRing 1 Scalar W 0 Scalar W
14 10 13 syl W LVec 1 Scalar W 0 Scalar W
15 8 14 jca W LVec W LMod 1 Scalar W 0 Scalar W
16 2 3 9 12 11 lbsind2 W LMod 1 Scalar W 0 Scalar W B J x B ¬ x N B x
17 15 16 syl3an1 W LVec B J x B ¬ x N B x
18 17 3expa W LVec B J x B ¬ x N B x
19 18 ralrimiva W LVec B J x B ¬ x N B x
20 5 7 19 3jca W LVec B J B V N B = V x B ¬ x N B x
21 simpr1 W LVec B V N B = V x B ¬ x N B x B V
22 simpr2 W LVec B V N B = V x B ¬ x N B x N B = V
23 id x = y x = y
24 sneq x = y x = y
25 24 difeq2d x = y B x = B y
26 25 fveq2d x = y N B x = N B y
27 23 26 eleq12d x = y x N B x y N B y
28 27 notbid x = y ¬ x N B x ¬ y N B y
29 simplr3 W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W x B ¬ x N B x
30 simprl W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W y B
31 28 29 30 rspcdva W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W ¬ y N B y
32 simpll W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W W LVec
33 simprr W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W z Base Scalar W 0 Scalar W
34 eldifsn z Base Scalar W 0 Scalar W z Base Scalar W z 0 Scalar W
35 33 34 sylib W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W z Base Scalar W z 0 Scalar W
36 21 adantr W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W B V
37 36 30 sseldd W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W y V
38 eqid W = W
39 eqid Base Scalar W = Base Scalar W
40 1 9 38 39 11 3 lspsnvs W LVec z Base Scalar W z 0 Scalar W y V N z W y = N y
41 32 35 37 40 syl3anc W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W N z W y = N y
42 41 sseq1d W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W N z W y N B y N y N B y
43 eqid LSubSp W = LSubSp W
44 8 adantr W LVec B V N B = V x B ¬ x N B x W LMod
45 44 adantr W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W W LMod
46 36 ssdifssd W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W B y V
47 1 43 3 lspcl W LMod B y V N B y LSubSp W
48 45 46 47 syl2anc W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W N B y LSubSp W
49 35 simpld W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W z Base Scalar W
50 1 9 38 39 lmodvscl W LMod z Base Scalar W y V z W y V
51 45 49 37 50 syl3anc W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W z W y V
52 1 43 3 45 48 51 lspsnel5 W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W z W y N B y N z W y N B y
53 1 43 3 45 48 37 lspsnel5 W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W y N B y N y N B y
54 42 52 53 3bitr4d W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W z W y N B y y N B y
55 31 54 mtbird W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W ¬ z W y N B y
56 55 ralrimivva W LVec B V N B = V x B ¬ x N B x y B z Base Scalar W 0 Scalar W ¬ z W y N B y
57 1 9 38 39 2 3 11 islbs W LVec B J B V N B = V y B z Base Scalar W 0 Scalar W ¬ z W y N B y
58 57 adantr W LVec B V N B = V x B ¬ x N B x B J B V N B = V y B z Base Scalar W 0 Scalar W ¬ z W y N B y
59 21 22 56 58 mpbir3and W LVec B V N B = V x B ¬ x N B x B J
60 20 59 impbida W LVec B J B V N B = V x B ¬ x N B x