Metamath Proof Explorer


Theorem aciunf1lem

Description: Choice in an index union. (Contributed by Thierry Arnoux, 8-Nov-2019)

Ref Expression
Hypotheses acunirnmpt.0 φ A V
acunirnmpt.1 φ j A B
aciunf1lem.a _ j A
aciunf1lem.1 φ j A B W
Assertion aciunf1lem φ f f : j A B 1-1 j A j × B x j A B 2 nd f x = x

Proof

Step Hyp Ref Expression
1 acunirnmpt.0 φ A V
2 acunirnmpt.1 φ j A B
3 aciunf1lem.a _ j A
4 aciunf1lem.1 φ j A B W
5 nfiu1 _ j j A B
6 nfcsb1v _ j g x / j B
7 eqid j A B = j A B
8 csbeq1a j = g x B = g x / j B
9 1 2 3 5 6 7 8 4 acunirnmpt2f φ g g : j A B A x j A B x g x / j B
10 nfv x φ
11 nfv x g : j A B A
12 nfra1 x x j A B x g x / j B
13 11 12 nfan x g : j A B A x j A B x g x / j B
14 10 13 nfan x φ g : j A B A x j A B x g x / j B
15 nfv j φ
16 nfcv _ j g
17 16 5 3 nff j g : j A B A
18 nfcv _ j x
19 18 6 nfel j x g x / j B
20 5 19 nfralw j x j A B x g x / j B
21 17 20 nfan j g : j A B A x j A B x g x / j B
22 15 21 nfan j φ g : j A B A x j A B x g x / j B
23 18 5 nfel j x j A B
24 22 23 nfan j φ g : j A B A x j A B x g x / j B x j A B
25 nfcv _ j g x x
26 nfiu1 _ j j A j × B
27 25 26 nfel j g x x j A j × B
28 simplr φ g : j A B A x j A B x g x / j B x j A B g : j A B A x j A B x g x / j B
29 28 simpld φ g : j A B A x j A B x g x / j B x j A B g : j A B A
30 29 ad2antrr φ g : j A B A x j A B x g x / j B x j A B j A x B g : j A B A
31 simpllr φ g : j A B A x j A B x g x / j B x j A B j A x B x j A B
32 30 31 ffvelcdmd φ g : j A B A x j A B x g x / j B x j A B j A x B g x A
33 fvex g x V
34 33 snid g x g x
35 34 a1i φ g : j A B A x j A B x g x / j B x j A B j A x B g x g x
36 28 simprd φ g : j A B A x j A B x g x / j B x j A B x j A B x g x / j B
37 simpr φ g : j A B A x j A B x g x / j B x j A B x j A B
38 rsp x j A B x g x / j B x j A B x g x / j B
39 36 37 38 sylc φ g : j A B A x j A B x g x / j B x j A B x g x / j B
40 39 ad2antrr φ g : j A B A x j A B x g x / j B x j A B j A x B x g x / j B
41 35 40 jca φ g : j A B A x j A B x g x / j B x j A B j A x B g x g x x g x / j B
42 opelxp g x x g x × g x / j B g x g x x g x / j B
43 41 42 sylibr φ g : j A B A x j A B x g x / j B x j A B j A x B g x x g x × g x / j B
44 sneq k = g x k = g x
45 csbeq1 k = g x k / j B = g x / j B
46 44 45 xpeq12d k = g x k × k / j B = g x × g x / j B
47 46 eleq2d k = g x g x x k × k / j B g x x g x × g x / j B
48 47 rspcev g x A g x x g x × g x / j B k A g x x k × k / j B
49 32 43 48 syl2anc φ g : j A B A x j A B x g x / j B x j A B j A x B k A g x x k × k / j B
50 eliun g x x j A j × B j A g x x j × B
51 nfcv _ k A
52 nfv k g x x j × B
53 nfcv _ j k
54 nfcsb1v _ j k / j B
55 53 54 nfxp _ j k × k / j B
56 25 55 nfel j g x x k × k / j B
57 sneq j = k j = k
58 csbeq1a j = k B = k / j B
59 57 58 xpeq12d j = k j × B = k × k / j B
60 59 eleq2d j = k g x x j × B g x x k × k / j B
61 3 51 52 56 60 cbvrexfw j A g x x j × B k A g x x k × k / j B
62 50 61 bitri g x x j A j × B k A g x x k × k / j B
63 49 62 sylibr φ g : j A B A x j A B x g x / j B x j A B j A x B g x x j A j × B
64 eliun x j A B j A x B
65 64 bilani φ g : j A B A x j A B x g x / j B x j A B j A x B
66 24 27 63 65 r19.29af2 φ g : j A B A x j A B x g x / j B x j A B g x x j A j × B
67 66 ex φ g : j A B A x j A B x g x / j B x j A B g x x j A j × B
68 14 67 ralrimi φ g : j A B A x j A B x g x / j B x j A B g x x j A j × B
69 vex x V
70 33 69 opth g x x = g y y g x = g y x = y
71 70 simprbi g x x = g y y x = y
72 71 rgen2w x j A B y j A B g x x = g y y x = y
73 72 a1i φ g : j A B A x j A B x g x / j B x j A B y j A B g x x = g y y x = y
74 68 73 jca φ g : j A B A x j A B x g x / j B x j A B g x x j A j × B x j A B y j A B g x x = g y y x = y
75 eqid x j A B g x x = x j A B g x x
76 fveq2 x = y g x = g y
77 id x = y x = y
78 76 77 opeq12d x = y g x x = g y y
79 75 78 f1mpt x j A B g x x : j A B 1-1 j A j × B x j A B g x x j A j × B x j A B y j A B g x x = g y y x = y
80 74 79 sylibr φ g : j A B A x j A B x g x / j B x j A B g x x : j A B 1-1 j A j × B
81 opex g x x V
82 75 fvmpt2 x j A B g x x V x j A B g x x x = g x x
83 81 82 mpan2 x j A B x j A B g x x x = g x x
84 37 83 syl φ g : j A B A x j A B x g x / j B x j A B x j A B g x x x = g x x
85 84 fveq2d φ g : j A B A x j A B x g x / j B x j A B 2 nd x j A B g x x x = 2 nd g x x
86 33 69 op2nd 2 nd g x x = x
87 85 86 eqtrdi φ g : j A B A x j A B x g x / j B x j A B 2 nd x j A B g x x x = x
88 87 ex φ g : j A B A x j A B x g x / j B x j A B 2 nd x j A B g x x x = x
89 14 88 ralrimi φ g : j A B A x j A B x g x / j B x j A B 2 nd x j A B g x x x = x
90 80 89 jca φ g : j A B A x j A B x g x / j B x j A B g x x : j A B 1-1 j A j × B x j A B 2 nd x j A B g x x x = x
91 nfcv _ j k
92 91 3 nfel j k A
93 15 92 nfan j φ k A
94 nfcv _ j W
95 54 94 nfel j k / j B W
96 93 95 nfim j φ k A k / j B W
97 eleq1w j = k j A k A
98 97 anbi2d j = k φ j A φ k A
99 58 eleq1d j = k B W k / j B W
100 98 99 imbi12d j = k φ j A B W φ k A k / j B W
101 96 100 4 chvarfv φ k A k / j B W
102 101 ralrimiva φ k A k / j B W
103 nfcv _ k B
104 3 51 103 54 58 cbviunf j A B = k A k / j B
105 iunexg A V k A k / j B W k A k / j B V
106 104 105 eqeltrid A V k A k / j B W j A B V
107 1 102 106 syl2anc φ j A B V
108 mptexg j A B V x j A B g x x V
109 f1eq1 f = x j A B g x x f : j A B 1-1 j A j × B x j A B g x x : j A B 1-1 j A j × B
110 nfcv _ x f
111 nfmpt1 _ x x j A B g x x
112 110 111 nfeq x f = x j A B g x x
113 fveq1 f = x j A B g x x f x = x j A B g x x x
114 113 fveqeq2d f = x j A B g x x 2 nd f x = x 2 nd x j A B g x x x = x
115 112 114 ralbid f = x j A B g x x x j A B 2 nd f x = x x j A B 2 nd x j A B g x x x = x
116 109 115 anbi12d f = x j A B g x x f : j A B 1-1 j A j × B x j A B 2 nd f x = x x j A B g x x : j A B 1-1 j A j × B x j A B 2 nd x j A B g x x x = x
117 116 spcegv x j A B g x x V x j A B g x x : j A B 1-1 j A j × B x j A B 2 nd x j A B g x x x = x f f : j A B 1-1 j A j × B x j A B 2 nd f x = x
118 107 108 117 3syl φ x j A B g x x : j A B 1-1 j A j × B x j A B 2 nd x j A B g x x x = x f f : j A B 1-1 j A j × B x j A B 2 nd f x = x
119 118 adantr φ g : j A B A x j A B x g x / j B x j A B g x x : j A B 1-1 j A j × B x j A B 2 nd x j A B g x x x = x f f : j A B 1-1 j A j × B x j A B 2 nd f x = x
120 90 119 mpd φ g : j A B A x j A B x g x / j B f f : j A B 1-1 j A j × B x j A B 2 nd f x = x
121 9 120 exlimddv φ f f : j A B 1-1 j A j × B x j A B 2 nd f x = x