Metamath Proof Explorer


Theorem vitalilem2

Description: Lemma for vitali . (Contributed by Mario Carneiro, 16-Jun-2014)

Ref Expression
Hypotheses vitali.1 ˙ = x y | x 0 1 y 0 1 x y
vitali.2 S = 0 1 / ˙
vitali.3 φ F Fn S
vitali.4 φ z S z F z z
vitali.5 φ G : 1-1 onto 1 1
vitali.6 T = n s | s G n ran F
vitali.7 φ ¬ ran F 𝒫 dom vol
Assertion vitalilem2 φ ran F 0 1 0 1 m T m m T m 1 2

Proof

Step Hyp Ref Expression
1 vitali.1 ˙ = x y | x 0 1 y 0 1 x y
2 vitali.2 S = 0 1 / ˙
3 vitali.3 φ F Fn S
4 vitali.4 φ z S z F z z
5 vitali.5 φ G : 1-1 onto 1 1
6 vitali.6 T = n s | s G n ran F
7 vitali.7 φ ¬ ran F 𝒫 dom vol
8 neeq1 v ˙ = z v ˙ z
9 1 vitalilem1 ˙ Er 0 1
10 erdm ˙ Er 0 1 dom ˙ = 0 1
11 9 10 ax-mp dom ˙ = 0 1
12 11 eleq2i v dom ˙ v 0 1
13 ecdmn0 v dom ˙ v ˙
14 12 13 bitr3i v 0 1 v ˙
15 14 biimpi v 0 1 v ˙
16 2 8 15 ectocl z S z
17 16 adantl φ z S z
18 sseq1 w ˙ = z w ˙ 0 1 z 0 1
19 9 a1i w 0 1 ˙ Er 0 1
20 19 ecss w 0 1 w ˙ 0 1
21 2 18 20 ectocl z S z 0 1
22 21 adantl φ z S z 0 1
23 22 sseld φ z S F z z F z 0 1
24 17 23 embantd φ z S z F z z F z 0 1
25 24 ralimdva φ z S z F z z z S F z 0 1
26 4 25 mpd φ z S F z 0 1
27 ffnfv F : S 0 1 F Fn S z S F z 0 1
28 3 26 27 sylanbrc φ F : S 0 1
29 28 frnd φ ran F 0 1
30 5 adantr φ v 0 1 G : 1-1 onto 1 1
31 f1ocnv G : 1-1 onto 1 1 G -1 : 1 1 1-1 onto
32 f1of G -1 : 1 1 1-1 onto G -1 : 1 1
33 30 31 32 3syl φ v 0 1 G -1 : 1 1
34 14 bilani φ v 0 1 v ˙
35 neeq1 z = v ˙ z v ˙
36 fveq2 z = v ˙ F z = F v ˙
37 id z = v ˙ z = v ˙
38 36 37 eleq12d z = v ˙ F z z F v ˙ v ˙
39 35 38 imbi12d z = v ˙ z F z z v ˙ F v ˙ v ˙
40 4 adantr φ v 0 1 z S z F z z
41 ovex 0 1 V
42 erex ˙ Er 0 1 0 1 V ˙ V
43 9 41 42 mp2 ˙ V
44 43 ecelqsi v 0 1 v ˙ 0 1 / ˙
45 44 adantl φ v 0 1 v ˙ 0 1 / ˙
46 45 2 eleqtrrdi φ v 0 1 v ˙ S
47 39 40 46 rspcdva φ v 0 1 v ˙ F v ˙ v ˙
48 34 47 mpd φ v 0 1 F v ˙ v ˙
49 fvex F v ˙ V
50 vex v V
51 49 50 elec F v ˙ v ˙ v ˙ F v ˙
52 oveq12 x = v y = F v ˙ x y = v F v ˙
53 52 eleq1d x = v y = F v ˙ x y v F v ˙
54 53 1 brab2a v ˙ F v ˙ v 0 1 F v ˙ 0 1 v F v ˙
55 51 54 bitri F v ˙ v ˙ v 0 1 F v ˙ 0 1 v F v ˙
56 48 55 sylib φ v 0 1 v 0 1 F v ˙ 0 1 v F v ˙
57 56 simprd φ v 0 1 v F v ˙
58 elicc01 v 0 1 v 0 v v 1
59 58 bilani φ v 0 1 v 0 v v 1
60 59 simp1d φ v 0 1 v
61 56 simpld φ v 0 1 v 0 1 F v ˙ 0 1
62 61 simprd φ v 0 1 F v ˙ 0 1
63 elicc01 F v ˙ 0 1 F v ˙ 0 F v ˙ F v ˙ 1
64 62 63 sylib φ v 0 1 F v ˙ 0 F v ˙ F v ˙ 1
65 64 simp1d φ v 0 1 F v ˙
66 60 65 resubcld φ v 0 1 v F v ˙
67 65 60 resubcld φ v 0 1 F v ˙ v
68 1red φ v 0 1 1
69 59 simp2d φ v 0 1 0 v
70 65 60 subge02d φ v 0 1 0 v F v ˙ v F v ˙
71 69 70 mpbid φ v 0 1 F v ˙ v F v ˙
72 64 simp3d φ v 0 1 F v ˙ 1
73 67 65 68 71 72 letrd φ v 0 1 F v ˙ v 1
74 67 68 lenegd φ v 0 1 F v ˙ v 1 1 F v ˙ v
75 73 74 mpbid φ v 0 1 1 F v ˙ v
76 65 recnd φ v 0 1 F v ˙
77 60 recnd φ v 0 1 v
78 76 77 negsubdi2d φ v 0 1 F v ˙ v = v F v ˙
79 75 78 breqtrd φ v 0 1 1 v F v ˙
80 64 simp2d φ v 0 1 0 F v ˙
81 60 65 subge02d φ v 0 1 0 F v ˙ v F v ˙ v
82 80 81 mpbid φ v 0 1 v F v ˙ v
83 59 simp3d φ v 0 1 v 1
84 66 60 68 82 83 letrd φ v 0 1 v F v ˙ 1
85 neg1rr 1
86 1re 1
87 85 86 elicc2i v F v ˙ 1 1 v F v ˙ 1 v F v ˙ v F v ˙ 1
88 66 79 84 87 syl3anbrc φ v 0 1 v F v ˙ 1 1
89 57 88 elind φ v 0 1 v F v ˙ 1 1
90 33 89 ffvelcdmd φ v 0 1 G -1 v F v ˙
91 oveq1 s = v s G G -1 v F v ˙ = v G G -1 v F v ˙
92 91 eleq1d s = v s G G -1 v F v ˙ ran F v G G -1 v F v ˙ ran F
93 f1ocnvfv2 G : 1-1 onto 1 1 v F v ˙ 1 1 G G -1 v F v ˙ = v F v ˙
94 5 89 93 syl2an2r φ v 0 1 G G -1 v F v ˙ = v F v ˙
95 94 oveq2d φ v 0 1 v G G -1 v F v ˙ = v v F v ˙
96 77 76 nncand φ v 0 1 v v F v ˙ = F v ˙
97 95 96 eqtrd φ v 0 1 v G G -1 v F v ˙ = F v ˙
98 fnfvelrn F Fn S v ˙ S F v ˙ ran F
99 3 46 98 syl2an2r φ v 0 1 F v ˙ ran F
100 97 99 eqeltrd φ v 0 1 v G G -1 v F v ˙ ran F
101 92 60 100 elrabd φ v 0 1 v s | s G G -1 v F v ˙ ran F
102 fveq2 n = G -1 v F v ˙ G n = G G -1 v F v ˙
103 102 oveq2d n = G -1 v F v ˙ s G n = s G G -1 v F v ˙
104 103 eleq1d n = G -1 v F v ˙ s G n ran F s G G -1 v F v ˙ ran F
105 104 rabbidv n = G -1 v F v ˙ s | s G n ran F = s | s G G -1 v F v ˙ ran F
106 reex V
107 106 rabex s | s G G -1 v F v ˙ ran F V
108 105 6 107 fvmpt G -1 v F v ˙ T G -1 v F v ˙ = s | s G G -1 v F v ˙ ran F
109 90 108 syl φ v 0 1 T G -1 v F v ˙ = s | s G G -1 v F v ˙ ran F
110 101 109 eleqtrrd φ v 0 1 v T G -1 v F v ˙
111 fveq2 m = G -1 v F v ˙ T m = T G -1 v F v ˙
112 111 eliuni G -1 v F v ˙ v T G -1 v F v ˙ v m T m
113 90 110 112 syl2anc φ v 0 1 v m T m
114 113 ex φ v 0 1 v m T m
115 114 ssrdv φ 0 1 m T m
116 eliun x m T m m x T m
117 fveq2 n = m G n = G m
118 117 oveq2d n = m s G n = s G m
119 118 eleq1d n = m s G n ran F s G m ran F
120 119 rabbidv n = m s | s G n ran F = s | s G m ran F
121 106 rabex s | s G m ran F V
122 120 6 121 fvmpt m T m = s | s G m ran F
123 122 adantl φ m T m = s | s G m ran F
124 123 eleq2d φ m x T m x s | s G m ran F
125 124 biimpa φ m x T m x s | s G m ran F
126 oveq1 s = x s G m = x G m
127 126 eleq1d s = x s G m ran F x G m ran F
128 127 elrab x s | s G m ran F x x G m ran F
129 125 128 sylib φ m x T m x x G m ran F
130 129 simpld φ m x T m x
131 85 a1i φ m x T m 1
132 iccssre 1 1 1 1
133 85 86 132 mp2an 1 1
134 f1of G : 1-1 onto 1 1 G : 1 1
135 5 134 syl φ G : 1 1
136 135 ffvelcdmda φ m G m 1 1
137 136 elin2d φ m G m 1 1
138 133 137 sselid φ m G m
139 138 adantr φ m x T m G m
140 137 adantr φ m x T m G m 1 1
141 85 86 elicc2i G m 1 1 G m 1 G m G m 1
142 140 141 sylib φ m x T m G m 1 G m G m 1
143 142 simp2d φ m x T m 1 G m
144 29 ad2antrr φ m x T m ran F 0 1
145 129 simprd φ m x T m x G m ran F
146 144 145 sseldd φ m x T m x G m 0 1
147 elicc01 x G m 0 1 x G m 0 x G m x G m 1
148 146 147 sylib φ m x T m x G m 0 x G m x G m 1
149 148 simp2d φ m x T m 0 x G m
150 130 139 subge0d φ m x T m 0 x G m G m x
151 149 150 mpbid φ m x T m G m x
152 131 139 130 143 151 letrd φ m x T m 1 x
153 peano2re G m G m + 1
154 139 153 syl φ m x T m G m + 1
155 2re 2
156 155 a1i φ m x T m 2
157 148 simp3d φ m x T m x G m 1
158 1red φ m x T m 1
159 130 139 158 lesubadd2d φ m x T m x G m 1 x G m + 1
160 157 159 mpbid φ m x T m x G m + 1
161 142 simp3d φ m x T m G m 1
162 139 158 158 161 leadd1dd φ m x T m G m + 1 1 + 1
163 df-2 2 = 1 + 1
164 162 163 breqtrrdi φ m x T m G m + 1 2
165 130 154 156 160 164 letrd φ m x T m x 2
166 85 155 elicc2i x 1 2 x 1 x x 2
167 130 152 165 166 syl3anbrc φ m x T m x 1 2
168 167 rexlimdva2 φ m x T m x 1 2
169 116 168 biimtrid φ x m T m x 1 2
170 169 ssrdv φ m T m 1 2
171 29 115 170 3jca φ ran F 0 1 0 1 m T m m T m 1 2