Metamath Proof Explorer


Theorem cmpsublem

Description: Lemma for cmpsub . (Contributed by Jeff Hankins, 28-Jun-2009)

Ref Expression
Hypothesis cmpsub.1 X = J
Assertion cmpsublem J Top S X c 𝒫 J S c d 𝒫 c Fin S d s 𝒫 J 𝑡 S J 𝑡 S = s t 𝒫 s Fin J 𝑡 S = t

Proof

Step Hyp Ref Expression
1 cmpsub.1 X = J
2 rabexg J Top y J | y S s V
3 2 ad2antrr J Top S X s 𝒫 J 𝑡 S y J | y S s V
4 ssrab2 y J | y S s J
5 elpwg y J | y S s V y J | y S s 𝒫 J y J | y S s J
6 4 5 mpbiri y J | y S s V y J | y S s 𝒫 J
7 3 6 syl J Top S X s 𝒫 J 𝑡 S y J | y S s 𝒫 J
8 unieq c = y J | y S s c = y J | y S s
9 8 sseq2d c = y J | y S s S c S y J | y S s
10 pweq c = y J | y S s 𝒫 c = 𝒫 y J | y S s
11 10 ineq1d c = y J | y S s 𝒫 c Fin = 𝒫 y J | y S s Fin
12 11 rexeqdv c = y J | y S s d 𝒫 c Fin S d d 𝒫 y J | y S s Fin S d
13 9 12 imbi12d c = y J | y S s S c d 𝒫 c Fin S d S y J | y S s d 𝒫 y J | y S s Fin S d
14 13 rspcva y J | y S s 𝒫 J c 𝒫 J S c d 𝒫 c Fin S d S y J | y S s d 𝒫 y J | y S s Fin S d
15 7 14 sylan J Top S X s 𝒫 J 𝑡 S c 𝒫 J S c d 𝒫 c Fin S d S y J | y S s d 𝒫 y J | y S s Fin S d
16 15 ex J Top S X s 𝒫 J 𝑡 S c 𝒫 J S c d 𝒫 c Fin S d S y J | y S s d 𝒫 y J | y S s Fin S d
17 1 restuni J Top S X S = J 𝑡 S
18 17 adantr J Top S X s 𝒫 J 𝑡 S S = J 𝑡 S
19 18 eqeq1d J Top S X s 𝒫 J 𝑡 S S = s J 𝑡 S = s
20 velpw s 𝒫 J 𝑡 S s J 𝑡 S
21 eleq2 S = s t S t s
22 eluni t s u t u u s
23 21 22 bitrdi S = s t S u t u u s
24 23 adantl J Top S X s J 𝑡 S S = s t S u t u u s
25 ssel s J 𝑡 S u s u J 𝑡 S
26 1 sseq2i S X S J
27 uniexg J Top J V
28 ssexg S J J V S V
29 28 ancoms J V S J S V
30 27 29 sylan J Top S J S V
31 26 30 sylan2b J Top S X S V
32 elrest J Top S V u J 𝑡 S w J u = w S
33 31 32 syldan J Top S X u J 𝑡 S w J u = w S
34 inss1 w S w
35 sseq1 u = w S u w w S w
36 34 35 mpbiri u = w S u w
37 36 sselda u = w S t u t w
38 37 3ad2antl3 J Top S X w J u = w S t u t w
39 38 3adant2 J Top S X w J u = w S u s t u t w
40 ineq1 y = w y S = w S
41 40 eleq1d y = w y S s w S s
42 simp12 J Top S X w J u = w S u s t u w J
43 eleq1 u = w S u s w S s
44 43 biimpa u = w S u s w S s
45 44 3ad2antl3 J Top S X w J u = w S u s w S s
46 45 3adant3 J Top S X w J u = w S u s t u w S s
47 41 42 46 elrabd J Top S X w J u = w S u s t u w y J | y S s
48 vex w V
49 eleq2 v = w t v t w
50 eleq1 v = w v y J | y S s w y J | y S s
51 49 50 anbi12d v = w t v v y J | y S s t w w y J | y S s
52 48 51 spcev t w w y J | y S s v t v v y J | y S s
53 39 47 52 syl2anc J Top S X w J u = w S u s t u v t v v y J | y S s
54 53 3exp J Top S X w J u = w S u s t u v t v v y J | y S s
55 54 rexlimdv3a J Top S X w J u = w S u s t u v t v v y J | y S s
56 33 55 sylbid J Top S X u J 𝑡 S u s t u v t v v y J | y S s
57 56 com23 J Top S X u s u J 𝑡 S t u v t v v y J | y S s
58 57 com4l u s u J 𝑡 S t u J Top S X v t v v y J | y S s
59 25 58 sylcom s J 𝑡 S u s t u J Top S X v t v v y J | y S s
60 59 com24 s J 𝑡 S J Top S X t u u s v t v v y J | y S s
61 60 impcom J Top S X s J 𝑡 S t u u s v t v v y J | y S s
62 61 impd J Top S X s J 𝑡 S t u u s v t v v y J | y S s
63 62 exlimdv J Top S X s J 𝑡 S u t u u s v t v v y J | y S s
64 63 adantr J Top S X s J 𝑡 S S = s u t u u s v t v v y J | y S s
65 24 64 sylbid J Top S X s J 𝑡 S S = s t S v t v v y J | y S s
66 65 ex J Top S X s J 𝑡 S S = s t S v t v v y J | y S s
67 20 66 sylan2b J Top S X s 𝒫 J 𝑡 S S = s t S v t v v y J | y S s
68 67 imp J Top S X s 𝒫 J 𝑡 S S = s t S v t v v y J | y S s
69 eluni t y J | y S s v t v v y J | y S s
70 68 69 syl6ibr J Top S X s 𝒫 J 𝑡 S S = s t S t y J | y S s
71 70 ssrdv J Top S X s 𝒫 J 𝑡 S S = s S y J | y S s
72 pm2.27 S y J | y S s S y J | y S s d 𝒫 y J | y S s Fin S d d 𝒫 y J | y S s Fin S d
73 elin d 𝒫 y J | y S s Fin d 𝒫 y J | y S s d Fin
74 vex t V
75 eqeq1 x = t x = z S t = z S
76 75 rexbidv x = t z d x = z S z d t = z S
77 74 76 elab t x | z d x = z S z d t = z S
78 velpw d 𝒫 y J | y S s d y J | y S s
79 ssel d y J | y S s z d z y J | y S s
80 ineq1 y = z y S = z S
81 80 eleq1d y = z y S s z S s
82 81 elrab z y J | y S s z J z S s
83 eleq1a z S s t = z S t s
84 82 83 simplbiim z y J | y S s t = z S t s
85 79 84 syl6 d y J | y S s z d t = z S t s
86 85 2a1d d y J | y S s S d J Top S X s 𝒫 J 𝑡 S S = s z d t = z S t s
87 86 adantr d y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s z d t = z S t s
88 78 87 sylanb d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s z d t = z S t s
89 88 3imp d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s z d t = z S t s
90 89 rexlimdv d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s z d t = z S t s
91 77 90 syl5bi d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s t x | z d x = z S t s
92 91 ssrdv d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s x | z d x = z S s
93 vex d V
94 93 abrexex x | z d x = z S V
95 94 elpw x | z d x = z S 𝒫 s x | z d x = z S s
96 92 95 sylibr d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s x | z d x = z S 𝒫 s
97 abrexfi d Fin x | z d x = z S Fin
98 97 ad2antlr d 𝒫 y J | y S s d Fin S d x | z d x = z S Fin
99 98 3adant3 d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s x | z d x = z S Fin
100 96 99 elind d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s x | z d x = z S 𝒫 s Fin
101 dfss S d S = S d
102 101 biimpi S d S = S d
103 uniiun d = z d z
104 103 ineq2i S d = S z d z
105 iunin2 z d S z = S z d z
106 incom S z = z S
107 106 a1i z d S z = z S
108 107 iuneq2i z d S z = z d z S
109 104 105 108 3eqtr2i S d = z d z S
110 102 109 eqtrdi S d S = z d z S
111 110 3ad2ant2 d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s S = z d z S
112 18 ad2antrl S d J Top S X s 𝒫 J 𝑡 S S = s S = J 𝑡 S
113 112 3adant1 d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s S = J 𝑡 S
114 vex z V
115 114 inex1 z S V
116 115 dfiun2 z d z S = x | z d x = z S
117 116 a1i d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s z d z S = x | z d x = z S
118 111 113 117 3eqtr3d d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s J 𝑡 S = x | z d x = z S
119 unieq t = x | z d x = z S t = x | z d x = z S
120 119 rspceeqv x | z d x = z S 𝒫 s Fin J 𝑡 S = x | z d x = z S t 𝒫 s Fin J 𝑡 S = t
121 100 118 120 syl2anc d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s t 𝒫 s Fin J 𝑡 S = t
122 121 3exp d 𝒫 y J | y S s d Fin S d J Top S X s 𝒫 J 𝑡 S S = s t 𝒫 s Fin J 𝑡 S = t
123 73 122 sylbi d 𝒫 y J | y S s Fin S d J Top S X s 𝒫 J 𝑡 S S = s t 𝒫 s Fin J 𝑡 S = t
124 123 rexlimiv d 𝒫 y J | y S s Fin S d J Top S X s 𝒫 J 𝑡 S S = s t 𝒫 s Fin J 𝑡 S = t
125 72 124 syl6 S y J | y S s S y J | y S s d 𝒫 y J | y S s Fin S d J Top S X s 𝒫 J 𝑡 S S = s t 𝒫 s Fin J 𝑡 S = t
126 125 com3r J Top S X s 𝒫 J 𝑡 S S = s S y J | y S s S y J | y S s d 𝒫 y J | y S s Fin S d t 𝒫 s Fin J 𝑡 S = t
127 71 126 mpd J Top S X s 𝒫 J 𝑡 S S = s S y J | y S s d 𝒫 y J | y S s Fin S d t 𝒫 s Fin J 𝑡 S = t
128 127 ex J Top S X s 𝒫 J 𝑡 S S = s S y J | y S s d 𝒫 y J | y S s Fin S d t 𝒫 s Fin J 𝑡 S = t
129 19 128 sylbird J Top S X s 𝒫 J 𝑡 S J 𝑡 S = s S y J | y S s d 𝒫 y J | y S s Fin S d t 𝒫 s Fin J 𝑡 S = t
130 129 com23 J Top S X s 𝒫 J 𝑡 S S y J | y S s d 𝒫 y J | y S s Fin S d J 𝑡 S = s t 𝒫 s Fin J 𝑡 S = t
131 16 130 syld J Top S X s 𝒫 J 𝑡 S c 𝒫 J S c d 𝒫 c Fin S d J 𝑡 S = s t 𝒫 s Fin J 𝑡 S = t
132 131 ralrimdva J Top S X c 𝒫 J S c d 𝒫 c Fin S d s 𝒫 J 𝑡 S J 𝑡 S = s t 𝒫 s Fin J 𝑡 S = t