Metamath Proof Explorer


Theorem lbsextlem3

Description: Lemma for lbsext . A chain in S has an upper bound in S . (Contributed by Mario Carneiro, 25-Jun-2014)

Ref Expression
Hypotheses lbsext.v V=BaseW
lbsext.j J=LBasisW
lbsext.n N=LSpanW
lbsext.w φWLVec
lbsext.c φCV
lbsext.x φxC¬xNCx
lbsext.s S=z𝒫V|Czxz¬xNzx
lbsext.p P=LSubSpW
lbsext.a φAS
lbsext.z φA
lbsext.r φ[⊂]OrA
lbsext.t T=uANux
Assertion lbsextlem3 φAS

Proof

Step Hyp Ref Expression
1 lbsext.v V=BaseW
2 lbsext.j J=LBasisW
3 lbsext.n N=LSpanW
4 lbsext.w φWLVec
5 lbsext.c φCV
6 lbsext.x φxC¬xNCx
7 lbsext.s S=z𝒫V|Czxz¬xNzx
8 lbsext.p P=LSubSpW
9 lbsext.a φAS
10 lbsext.z φA
11 lbsext.r φ[⊂]OrA
12 lbsext.t T=uANux
13 7 ssrab3 S𝒫V
14 9 13 sstrdi φA𝒫V
15 sspwuni A𝒫VAV
16 14 15 sylib φAV
17 1 fvexi VV
18 17 elpw2 A𝒫VAV
19 16 18 sylibr φA𝒫V
20 ssintub Cz𝒫V|Cz
21 simpl Czxz¬xNzxCz
22 21 a1i z𝒫VCzxz¬xNzxCz
23 22 ss2rabi z𝒫V|Czxz¬xNzxz𝒫V|Cz
24 7 23 eqsstri Sz𝒫V|Cz
25 9 24 sstrdi φAz𝒫V|Cz
26 intss Az𝒫V|Czz𝒫V|CzA
27 25 26 syl φz𝒫V|CzA
28 20 27 sstrid φCA
29 intssuni AAA
30 10 29 syl φAA
31 28 30 sstrd φCA
32 eluni2 xAyAxy
33 simpll1 φyAxyuAxNuxφ
34 lveclmod WLVecWLMod
35 4 34 syl φWLMod
36 33 35 syl φyAxyuAxNuxWLMod
37 33 9 syl φyAxyuAxNuxAS
38 33 11 syl φyAxyuAxNux[⊂]OrA
39 simpll2 φyAxyuAxNuxyA
40 simplr φyAxyuAxNuxuA
41 sorpssun [⊂]OrAyAuAyuA
42 38 39 40 41 syl12anc φyAxyuAxNuxyuA
43 37 42 sseldd φyAxyuAxNuxyuS
44 13 43 sselid φyAxyuAxNuxyu𝒫V
45 44 elpwid φyAxyuAxNuxyuV
46 45 ssdifssd φyAxyuAxNuxyuxV
47 ssun2 uyu
48 ssdif uyuuxyux
49 47 48 mp1i φyAxyuAxNuxuxyux
50 1 3 lspss WLModyuxVuxyuxNuxNyux
51 36 46 49 50 syl3anc φyAxyuAxNuxNuxNyux
52 simpr φyAxyuAxNuxxNux
53 51 52 sseldd φyAxyuAxNuxxNyux
54 sseq2 z=yuCzCyu
55 difeq1 z=yuzx=yux
56 55 fveq2d z=yuNzx=Nyux
57 56 eleq2d z=yuxNzxxNyux
58 57 notbid z=yu¬xNzx¬xNyux
59 58 raleqbi1dv z=yuxz¬xNzxxyu¬xNyux
60 54 59 anbi12d z=yuCzxz¬xNzxCyuxyu¬xNyux
61 60 7 elrab2 yuSyu𝒫VCyuxyu¬xNyux
62 61 simprbi yuSCyuxyu¬xNyux
63 62 simprd yuSxyu¬xNyux
64 43 63 syl φyAxyuAxNuxxyu¬xNyux
65 simpll3 φyAxyuAxNuxxy
66 elun1 xyxyu
67 65 66 syl φyAxyuAxNuxxyu
68 rsp xyu¬xNyuxxyu¬xNyux
69 64 67 68 sylc φyAxyuAxNux¬xNyux
70 53 69 pm2.65da φyAxyuA¬xNux
71 70 nrexdv φyAxy¬uAxNux
72 1 2 3 4 5 6 7 8 9 10 11 12 lbsextlem2 φTPAxT
73 72 simpld φTP
74 1 8 lssss TPTV
75 73 74 syl φTV
76 72 simprd φAxT
77 1 3 lspss WLModTVAxTNAxNT
78 35 75 76 77 syl3anc φNAxNT
79 8 3 lspid WLModTPNT=T
80 35 73 79 syl2anc φNT=T
81 78 80 sseqtrd φNAxT
82 81 3ad2ant1 φyAxyNAxT
83 82 12 sseqtrdi φyAxyNAxuANux
84 83 sseld φyAxyxNAxxuANux
85 eliun xuANuxuAxNux
86 84 85 imbitrdi φyAxyxNAxuAxNux
87 71 86 mtod φyAxy¬xNAx
88 87 rexlimdv3a φyAxy¬xNAx
89 32 88 biimtrid φxA¬xNAx
90 89 ralrimiv φxA¬xNAx
91 31 90 jca φCAxA¬xNAx
92 sseq2 z=ACzCA
93 difeq1 z=Azx=Ax
94 93 fveq2d z=ANzx=NAx
95 94 eleq2d z=AxNzxxNAx
96 95 notbid z=A¬xNzx¬xNAx
97 96 raleqbi1dv z=Axz¬xNzxxA¬xNAx
98 92 97 anbi12d z=ACzxz¬xNzxCAxA¬xNAx
99 98 7 elrab2 ASA𝒫VCAxA¬xNAx
100 19 91 99 sylanbrc φAS