Metamath Proof Explorer


Theorem wessf1ornlem

Description: Given a function F on a well-ordered domain A there exists a subset of A such that F restricted to such subset is injective and onto the range of F (without using the axiom of choice). (Contributed by Glauco Siliprandi, 17-Aug-2020)

Ref Expression
Hypotheses wessf1ornlem.f φ F Fn A
wessf1ornlem.a φ A V
wessf1ornlem.r φ R We A
wessf1ornlem.g G = y ran F ι x F -1 y | z F -1 y ¬ z R x
Assertion wessf1ornlem φ x 𝒫 A F x : x 1-1 onto ran F

Proof

Step Hyp Ref Expression
1 wessf1ornlem.f φ F Fn A
2 wessf1ornlem.a φ A V
3 wessf1ornlem.r φ R We A
4 wessf1ornlem.g G = y ran F ι x F -1 y | z F -1 y ¬ z R x
5 cnvimass F -1 u dom F
6 1 fndmd φ dom F = A
7 6 adantr φ u ran F dom F = A
8 5 7 sseqtrid φ u ran F F -1 u A
9 3 adantr φ u ran F R We A
10 5 6 sseqtrid φ F -1 u A
11 2 10 ssexd φ F -1 u V
12 11 adantr φ u ran F F -1 u V
13 inisegn0 u ran F F -1 u
14 13 bilani φ u ran F F -1 u
15 wereu R We A F -1 u V F -1 u A F -1 u ∃! v F -1 u t F -1 u ¬ t R v
16 9 12 8 14 15 syl13anc φ u ran F ∃! v F -1 u t F -1 u ¬ t R v
17 riotacl ∃! v F -1 u t F -1 u ¬ t R v ι v F -1 u | t F -1 u ¬ t R v F -1 u
18 16 17 syl φ u ran F ι v F -1 u | t F -1 u ¬ t R v F -1 u
19 8 18 sseldd φ u ran F ι v F -1 u | t F -1 u ¬ t R v A
20 19 ralrimiva φ u ran F ι v F -1 u | t F -1 u ¬ t R v A
21 sneq y = u y = u
22 21 imaeq2d y = u F -1 y = F -1 u
23 22 raleqdv y = u z F -1 y ¬ z R x z F -1 u ¬ z R x
24 22 23 riotaeqbidv y = u ι x F -1 y | z F -1 y ¬ z R x = ι x F -1 u | z F -1 u ¬ z R x
25 breq1 z = t z R x t R x
26 25 notbid z = t ¬ z R x ¬ t R x
27 26 cbvralvw z F -1 u ¬ z R x t F -1 u ¬ t R x
28 breq2 x = v t R x t R v
29 28 notbid x = v ¬ t R x ¬ t R v
30 29 ralbidv x = v t F -1 u ¬ t R x t F -1 u ¬ t R v
31 27 30 bitrid x = v z F -1 u ¬ z R x t F -1 u ¬ t R v
32 31 cbvriotavw ι x F -1 u | z F -1 u ¬ z R x = ι v F -1 u | t F -1 u ¬ t R v
33 24 32 eqtrdi y = u ι x F -1 y | z F -1 y ¬ z R x = ι v F -1 u | t F -1 u ¬ t R v
34 33 cbvmptv y ran F ι x F -1 y | z F -1 y ¬ z R x = u ran F ι v F -1 u | t F -1 u ¬ t R v
35 4 34 eqtri G = u ran F ι v F -1 u | t F -1 u ¬ t R v
36 35 rnmptss u ran F ι v F -1 u | t F -1 u ¬ t R v A ran G A
37 20 36 syl φ ran G A
38 2 37 sselpwd φ ran G 𝒫 A
39 dffn3 F Fn A F : A ran F
40 1 39 sylib φ F : A ran F
41 40 37 fssresd φ F ran G : ran G ran F
42 fvres w ran G F ran G w = F w
43 42 eqcomd w ran G F w = F ran G w
44 43 ad2antrr w ran G t ran G F ran G w = F ran G t F w = F ran G w
45 simpr w ran G t ran G F ran G w = F ran G t F ran G w = F ran G t
46 fvres t ran G F ran G t = F t
47 46 ad2antlr w ran G t ran G F ran G w = F ran G t F ran G t = F t
48 44 45 47 3eqtrd w ran G t ran G F ran G w = F ran G t F w = F t
49 48 3adantl1 φ w ran G t ran G F ran G w = F ran G t F w = F t
50 simpl1 φ w ran G t ran G F w = F t φ
51 simpl3 φ w ran G t ran G F w = F t t ran G
52 simpl2 φ w ran G t ran G F w = F t w ran G
53 id F w = F t F w = F t
54 53 eqcomd F w = F t F t = F w
55 54 adantl φ w ran G t ran G F w = F t F t = F w
56 eleq1w b = w b ran G w ran G
57 56 3anbi3d b = w φ t ran G b ran G φ t ran G w ran G
58 fveq2 b = w F b = F w
59 58 eqeq2d b = w F t = F b F t = F w
60 57 59 anbi12d b = w φ t ran G b ran G F t = F b φ t ran G w ran G F t = F w
61 breq1 b = w b R t w R t
62 61 notbid b = w ¬ b R t ¬ w R t
63 60 62 imbi12d b = w φ t ran G b ran G F t = F b ¬ b R t φ t ran G w ran G F t = F w ¬ w R t
64 eleq1w a = t a ran G t ran G
65 64 3anbi2d a = t φ a ran G b ran G φ t ran G b ran G
66 fveqeq2 a = t F a = F b F t = F b
67 65 66 anbi12d a = t φ a ran G b ran G F a = F b φ t ran G b ran G F t = F b
68 breq2 a = t b R a b R t
69 68 notbid a = t ¬ b R a ¬ b R t
70 67 69 imbi12d a = t φ a ran G b ran G F a = F b ¬ b R a φ t ran G b ran G F t = F b ¬ b R t
71 eleq1w t = b t ran G b ran G
72 71 3anbi3d t = b φ a ran G t ran G φ a ran G b ran G
73 fveq2 t = b F t = F b
74 73 eqeq2d t = b F a = F t F a = F b
75 72 74 anbi12d t = b φ a ran G t ran G F a = F t φ a ran G b ran G F a = F b
76 breq1 t = b t R a b R a
77 76 notbid t = b ¬ t R a ¬ b R a
78 75 77 imbi12d t = b φ a ran G t ran G F a = F t ¬ t R a φ a ran G b ran G F a = F b ¬ b R a
79 eleq1w w = a w ran G a ran G
80 79 3anbi2d w = a φ w ran G t ran G φ a ran G t ran G
81 fveqeq2 w = a F w = F t F a = F t
82 80 81 anbi12d w = a φ w ran G t ran G F w = F t φ a ran G t ran G F a = F t
83 breq2 w = a t R w t R a
84 83 notbid w = a ¬ t R w ¬ t R a
85 82 84 imbi12d w = a φ w ran G t ran G F w = F t ¬ t R w φ a ran G t ran G F a = F t ¬ t R a
86 35 elrnmpt w V w ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v
87 86 elv w ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v
88 87 birani w ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v
89 88 3ad2antl2 φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v
90 simp3 φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v w = ι v F -1 u | t F -1 u ¬ t R v
91 90 eqcomd φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v ι v F -1 u | t F -1 u ¬ t R v = w
92 simp11 φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v φ
93 id w = ι v F -1 u | t F -1 u ¬ t R v w = ι v F -1 u | t F -1 u ¬ t R v
94 breq2 v = w t R v t R w
95 94 notbid v = w ¬ t R v ¬ t R w
96 95 ralbidv v = w t F -1 u ¬ t R v t F -1 u ¬ t R w
97 96 cbvriotavw ι v F -1 u | t F -1 u ¬ t R v = ι w F -1 u | t F -1 u ¬ t R w
98 93 97 eqtr2di w = ι v F -1 u | t F -1 u ¬ t R v ι w F -1 u | t F -1 u ¬ t R w = w
99 98 3ad2ant3 φ u ran F w = ι v F -1 u | t F -1 u ¬ t R v ι w F -1 u | t F -1 u ¬ t R w = w
100 96 cbvreuvw ∃! v F -1 u t F -1 u ¬ t R v ∃! w F -1 u t F -1 u ¬ t R w
101 16 100 sylib φ u ran F ∃! w F -1 u t F -1 u ¬ t R w
102 riota1 ∃! w F -1 u t F -1 u ¬ t R w w F -1 u t F -1 u ¬ t R w ι w F -1 u | t F -1 u ¬ t R w = w
103 101 102 syl φ u ran F w F -1 u t F -1 u ¬ t R w ι w F -1 u | t F -1 u ¬ t R w = w
104 103 3adant3 φ u ran F w = ι v F -1 u | t F -1 u ¬ t R v w F -1 u t F -1 u ¬ t R w ι w F -1 u | t F -1 u ¬ t R w = w
105 99 104 mpbird φ u ran F w = ι v F -1 u | t F -1 u ¬ t R v w F -1 u t F -1 u ¬ t R w
106 105 simpld φ u ran F w = ι v F -1 u | t F -1 u ¬ t R v w F -1 u
107 92 106 syld3an1 φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v w F -1 u
108 simp2 φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v u ran F
109 92 108 16 syl2anc φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v ∃! v F -1 u t F -1 u ¬ t R v
110 96 riota2 w F -1 u ∃! v F -1 u t F -1 u ¬ t R v t F -1 u ¬ t R w ι v F -1 u | t F -1 u ¬ t R v = w
111 107 109 110 syl2anc φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v t F -1 u ¬ t R w ι v F -1 u | t F -1 u ¬ t R v = w
112 91 111 mpbird φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v t F -1 u ¬ t R w
113 112 3adant1r φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v t F -1 u ¬ t R w
114 37 sselda φ t ran G t A
115 114 3adant2 φ w ran G t ran G t A
116 115 adantr φ w ran G t ran G F w = F t t A
117 116 3ad2ant1 φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v t A
118 54 ad2antlr φ w ran G t ran G F w = F t u ran F F t = F w
119 118 3adant3 φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v F t = F w
120 fniniseg F Fn A w F -1 u w A F w = u
121 92 1 120 3syl φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v w F -1 u w A F w = u
122 107 121 mpbid φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v w A F w = u
123 122 simprd φ w ran G t ran G u ran F w = ι v F -1 u | t F -1 u ¬ t R v F w = u
124 123 3adant1r φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v F w = u
125 119 124 eqtrd φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v F t = u
126 fniniseg F Fn A t F -1 u t A F t = u
127 1 126 syl φ t F -1 u t A F t = u
128 127 3ad2ant1 φ w ran G t ran G t F -1 u t A F t = u
129 128 ad2antrr φ w ran G t ran G F w = F t u ran F t F -1 u t A F t = u
130 129 3adant3 φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v t F -1 u t A F t = u
131 117 125 130 mpbir2and φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v t F -1 u
132 rspa t F -1 u ¬ t R w t F -1 u ¬ t R w
133 113 131 132 syl2anc φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v ¬ t R w
134 133 rexlimdv3a φ w ran G t ran G F w = F t u ran F w = ι v F -1 u | t F -1 u ¬ t R v ¬ t R w
135 89 134 mpd φ w ran G t ran G F w = F t ¬ t R w
136 85 135 chvarvv φ a ran G t ran G F a = F t ¬ t R a
137 78 136 chvarvv φ a ran G b ran G F a = F b ¬ b R a
138 70 137 chvarvv φ t ran G b ran G F t = F b ¬ b R t
139 63 138 chvarvv φ t ran G w ran G F t = F w ¬ w R t
140 50 51 52 55 139 syl31anc φ w ran G t ran G F w = F t ¬ w R t
141 weso R We A R Or A
142 3 141 syl φ R Or A
143 142 adantr φ F w = F t R Or A
144 143 3ad2antl1 φ w ran G t ran G F w = F t R Or A
145 37 sselda φ w ran G w A
146 145 3adant3 φ w ran G t ran G w A
147 146 adantr φ w ran G t ran G F w = F t w A
148 sotrieq2 R Or A w A t A w = t ¬ w R t ¬ t R w
149 144 147 116 148 syl12anc φ w ran G t ran G F w = F t w = t ¬ w R t ¬ t R w
150 140 135 149 mpbir2and φ w ran G t ran G F w = F t w = t
151 49 150 syldan φ w ran G t ran G F ran G w = F ran G t w = t
152 151 ex φ w ran G t ran G F ran G w = F ran G t w = t
153 152 3expb φ w ran G t ran G F ran G w = F ran G t w = t
154 153 ralrimivva φ w ran G t ran G F ran G w = F ran G t w = t
155 dff13 F ran G : ran G 1-1 ran F F ran G : ran G ran F w ran G t ran G F ran G w = F ran G t w = t
156 41 154 155 sylanbrc φ F ran G : ran G 1-1 ran F
157 riotaex ι v F -1 u | t F -1 u ¬ t R v V
158 157 rgenw u ran F ι v F -1 u | t F -1 u ¬ t R v V
159 35 fnmpt u ran F ι v F -1 u | t F -1 u ¬ t R v V G Fn ran F
160 158 159 mp1i φ G Fn ran F
161 dffn3 G Fn ran F G : ran F ran G
162 160 161 sylib φ G : ran F ran G
163 162 ffvelcdmda φ u ran F G u ran G
164 163 fvresd φ u ran F F ran G G u = F G u
165 simpr φ u ran F u ran F
166 157 a1i φ u ran F ι v F -1 u | t F -1 u ¬ t R v V
167 4 33 165 166 fvmptd3 φ u ran F G u = ι v F -1 u | t F -1 u ¬ t R v
168 167 18 eqeltrd φ u ran F G u F -1 u
169 fvex G u V
170 eleq1 w = G u w F -1 u G u F -1 u
171 eleq1 w = G u w A G u A
172 fveqeq2 w = G u F w = u F G u = u
173 171 172 anbi12d w = G u w A F w = u G u A F G u = u
174 170 173 bibi12d w = G u w F -1 u w A F w = u G u F -1 u G u A F G u = u
175 174 imbi2d w = G u φ w F -1 u w A F w = u φ G u F -1 u G u A F G u = u
176 1 120 syl φ w F -1 u w A F w = u
177 169 175 176 vtocl φ G u F -1 u G u A F G u = u
178 177 adantr φ u ran F G u F -1 u G u A F G u = u
179 168 178 mpbid φ u ran F G u A F G u = u
180 179 simprd φ u ran F F G u = u
181 164 180 eqtr2d φ u ran F u = F ran G G u
182 fveq2 w = G u F ran G w = F ran G G u
183 182 rspceeqv G u ran G u = F ran G G u w ran G u = F ran G w
184 163 181 183 syl2anc φ u ran F w ran G u = F ran G w
185 184 ralrimiva φ u ran F w ran G u = F ran G w
186 dffo3 F ran G : ran G onto ran F F ran G : ran G ran F u ran F w ran G u = F ran G w
187 41 185 186 sylanbrc φ F ran G : ran G onto ran F
188 df-f1o F ran G : ran G 1-1 onto ran F F ran G : ran G 1-1 ran F F ran G : ran G onto ran F
189 156 187 188 sylanbrc φ F ran G : ran G 1-1 onto ran F
190 reseq2 v = ran G F v = F ran G
191 id v = ran G v = ran G
192 eqidd v = ran G ran F = ran F
193 190 191 192 f1oeq123d v = ran G F v : v 1-1 onto ran F F ran G : ran G 1-1 onto ran F
194 193 rspcev ran G 𝒫 A F ran G : ran G 1-1 onto ran F v 𝒫 A F v : v 1-1 onto ran F
195 38 189 194 syl2anc φ v 𝒫 A F v : v 1-1 onto ran F
196 reseq2 v = x F v = F x
197 id v = x v = x
198 eqidd v = x ran F = ran F
199 196 197 198 f1oeq123d v = x F v : v 1-1 onto ran F F x : x 1-1 onto ran F
200 199 cbvrexvw v 𝒫 A F v : v 1-1 onto ran F x 𝒫 A F x : x 1-1 onto ran F
201 195 200 sylib φ x 𝒫 A F x : x 1-1 onto ran F