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 = Base W
lbsext.j J = LBasis W
lbsext.n N = LSpan W
lbsext.w φ W LVec
lbsext.c φ C V
lbsext.x φ x C ¬ x N C x
lbsext.s S = z 𝒫 V | C z x z ¬ x N z x
lbsext.p P = LSubSp W
lbsext.a φ A S
lbsext.z φ A
lbsext.r φ [⊂] Or A
lbsext.t T = u A N u x
Assertion lbsextlem3 φ A S

Proof

Step Hyp Ref Expression
1 lbsext.v V = Base W
2 lbsext.j J = LBasis W
3 lbsext.n N = LSpan W
4 lbsext.w φ W LVec
5 lbsext.c φ C V
6 lbsext.x φ x C ¬ x N C x
7 lbsext.s S = z 𝒫 V | C z x z ¬ x N z x
8 lbsext.p P = LSubSp W
9 lbsext.a φ A S
10 lbsext.z φ A
11 lbsext.r φ [⊂] Or A
12 lbsext.t T = u A N u x
13 7 ssrab3 S 𝒫 V
14 9 13 sstrdi φ A 𝒫 V
15 sspwuni A 𝒫 V A V
16 14 15 sylib φ A V
17 1 fvexi V V
18 17 elpw2 A 𝒫 V A V
19 16 18 sylibr φ A 𝒫 V
20 ssintub C z 𝒫 V | C z
21 simpl C z x z ¬ x N z x C z
22 21 a1i z 𝒫 V C z x z ¬ x N z x C z
23 22 ss2rabi z 𝒫 V | C z x z ¬ x N z x z 𝒫 V | C z
24 7 23 eqsstri S z 𝒫 V | C z
25 9 24 sstrdi φ A z 𝒫 V | C z
26 intss A z 𝒫 V | C z z 𝒫 V | C z A
27 25 26 syl φ z 𝒫 V | C z A
28 20 27 sstrid φ C A
29 intssuni A A A
30 10 29 syl φ A A
31 28 30 sstrd φ C A
32 eluni2 x A y A x y
33 simpll1 φ y A x y u A x N u x φ
34 lveclmod W LVec W LMod
35 4 34 syl φ W LMod
36 33 35 syl φ y A x y u A x N u x W LMod
37 33 9 syl φ y A x y u A x N u x A S
38 33 11 syl φ y A x y u A x N u x [⊂] Or A
39 simpll2 φ y A x y u A x N u x y A
40 simplr φ y A x y u A x N u x u A
41 sorpssun [⊂] Or A y A u A y u A
42 38 39 40 41 syl12anc φ y A x y u A x N u x y u A
43 37 42 sseldd φ y A x y u A x N u x y u S
44 13 43 sselid φ y A x y u A x N u x y u 𝒫 V
45 44 elpwid φ y A x y u A x N u x y u V
46 45 ssdifssd φ y A x y u A x N u x y u x V
47 ssun2 u y u
48 ssdif u y u u x y u x
49 47 48 mp1i φ y A x y u A x N u x u x y u x
50 1 3 lspss W LMod y u x V u x y u x N u x N y u x
51 36 46 49 50 syl3anc φ y A x y u A x N u x N u x N y u x
52 simpr φ y A x y u A x N u x x N u x
53 51 52 sseldd φ y A x y u A x N u x x N y u x
54 sseq2 z = y u C z C y u
55 difeq1 z = y u z x = y u x
56 55 fveq2d z = y u N z x = N y u x
57 56 eleq2d z = y u x N z x x N y u x
58 57 notbid z = y u ¬ x N z x ¬ x N y u x
59 58 raleqbi1dv z = y u x z ¬ x N z x x y u ¬ x N y u x
60 54 59 anbi12d z = y u C z x z ¬ x N z x C y u x y u ¬ x N y u x
61 60 7 elrab2 y u S y u 𝒫 V C y u x y u ¬ x N y u x
62 61 simprbi y u S C y u x y u ¬ x N y u x
63 62 simprd y u S x y u ¬ x N y u x
64 43 63 syl φ y A x y u A x N u x x y u ¬ x N y u x
65 simpll3 φ y A x y u A x N u x x y
66 elun1 x y x y u
67 65 66 syl φ y A x y u A x N u x x y u
68 rsp x y u ¬ x N y u x x y u ¬ x N y u x
69 64 67 68 sylc φ y A x y u A x N u x ¬ x N y u x
70 53 69 pm2.65da φ y A x y u A ¬ x N u x
71 70 nrexdv φ y A x y ¬ u A x N u x
72 1 2 3 4 5 6 7 8 9 10 11 12 lbsextlem2 φ T P A x T
73 72 simpld φ T P
74 1 8 lssss T P T V
75 73 74 syl φ T V
76 72 simprd φ A x T
77 1 3 lspss W LMod T V A x T N A x N T
78 35 75 76 77 syl3anc φ N A x N T
79 8 3 lspid W LMod T P N T = T
80 35 73 79 syl2anc φ N T = T
81 78 80 sseqtrd φ N A x T
82 81 3ad2ant1 φ y A x y N A x T
83 82 12 sseqtrdi φ y A x y N A x u A N u x
84 83 sseld φ y A x y x N A x x u A N u x
85 eliun x u A N u x u A x N u x
86 84 85 syl6ib φ y A x y x N A x u A x N u x
87 71 86 mtod φ y A x y ¬ x N A x
88 87 rexlimdv3a φ y A x y ¬ x N A x
89 32 88 syl5bi φ x A ¬ x N A x
90 89 ralrimiv φ x A ¬ x N A x
91 31 90 jca φ C A x A ¬ x N A x
92 sseq2 z = A C z C A
93 difeq1 z = A z x = A x
94 93 fveq2d z = A N z x = N A x
95 94 eleq2d z = A x N z x x N A x
96 95 notbid z = A ¬ x N z x ¬ x N A x
97 96 raleqbi1dv z = A x z ¬ x N z x x A ¬ x N A x
98 92 97 anbi12d z = A C z x z ¬ x N z x C A x A ¬ x N A x
99 98 7 elrab2 A S A 𝒫 V C A x A ¬ x N A x
100 19 91 99 sylanbrc φ A S