Metamath Proof Explorer


Theorem comptiunov2i

Description: The composition two indexed unions is sometimes a similar indexed union. (Contributed by RP, 10-Jun-2020)

Ref Expression
Hypotheses comptiunov2.x X=aViIa×˙i
comptiunov2.y Y=bVjJb×˙j
comptiunov2.z Z=cVkKc×˙k
comptiunov2.i IV
comptiunov2.j JV
comptiunov2.k K=IJ
comptiunov2.1 kId×˙kiIjJd×˙j×˙i
comptiunov2.2 kJd×˙kiIjJd×˙j×˙i
comptiunov2.3 iIjJd×˙j×˙ikIJd×˙k
Assertion comptiunov2i XY=Z

Proof

Step Hyp Ref Expression
1 comptiunov2.x X=aViIa×˙i
2 comptiunov2.y Y=bVjJb×˙j
3 comptiunov2.z Z=cVkKc×˙k
4 comptiunov2.i IV
5 comptiunov2.j JV
6 comptiunov2.k K=IJ
7 comptiunov2.1 kId×˙kiIjJd×˙j×˙i
8 comptiunov2.2 kJd×˙kiIjJd×˙j×˙i
9 comptiunov2.3 iIjJd×˙j×˙ikIJd×˙k
10 1 funmpt2 FunX
11 2 funmpt2 FunY
12 funco FunXFunYFunXY
13 10 11 12 mp2an FunXY
14 3 funmpt2 FunZ
15 ssv ranYV
16 ovex a×˙iV
17 4 16 iunex iIa×˙iV
18 17 1 dmmpti domX=V
19 15 18 sseqtrri ranYdomX
20 dmcosseq ranYdomXdomXY=domY
21 19 20 ax-mp domXY=domY
22 ovex b×˙jV
23 5 22 iunex jJb×˙jV
24 23 2 dmmpti domY=V
25 21 24 eqtri domXY=V
26 4 5 unex IJV
27 6 26 eqeltri KV
28 ovex c×˙kV
29 27 28 iunex kKc×˙kV
30 29 3 dmmpti domZ=V
31 25 30 eqtr4i domXY=domZ
32 vex dV
33 32 24 eleqtrri ddomY
34 fvco FunYddomYXYd=XYd
35 11 33 34 mp2an XYd=XYd
36 oveq1 b=db×˙j=d×˙j
37 36 iuneq2d b=djJb×˙j=jJd×˙j
38 ovex d×˙jV
39 5 38 iunex jJd×˙jV
40 37 2 39 fvmpt dVYd=jJd×˙j
41 40 elv Yd=jJd×˙j
42 41 fveq2i XYd=XjJd×˙j
43 oveq1 a=jJd×˙ja×˙i=jJd×˙j×˙i
44 43 iuneq2d a=jJd×˙jiIa×˙i=iIjJd×˙j×˙i
45 ovex jJd×˙j×˙iV
46 4 45 iunex iIjJd×˙j×˙iV
47 44 1 46 fvmpt jJd×˙jVXjJd×˙j=iIjJd×˙j×˙i
48 39 47 ax-mp XjJd×˙j=iIjJd×˙j×˙i
49 35 42 48 3eqtri XYd=iIjJd×˙j×˙i
50 oveq1 c=dc×˙k=d×˙k
51 50 iuneq2d c=dkKc×˙k=kKd×˙k
52 ovex d×˙kV
53 27 52 iunex kKd×˙kV
54 51 3 53 fvmpt dVZd=kKd×˙k
55 54 elv Zd=kKd×˙k
56 49 55 eqeq12i XYd=ZdiIjJd×˙j×˙i=kKd×˙k
57 25 56 raleqbii ddomXYXYd=ZddViIjJd×˙j×˙i=kKd×˙k
58 iunxun kIJd×˙k=kId×˙kkJd×˙k
59 7 8 unssi kId×˙kkJd×˙kiIjJd×˙j×˙i
60 58 59 eqsstri kIJd×˙kiIjJd×˙j×˙i
61 9 60 eqssi iIjJd×˙j×˙i=kIJd×˙k
62 iuneq1 K=IJkKd×˙k=kIJd×˙k
63 6 62 ax-mp kKd×˙k=kIJd×˙k
64 61 63 eqtr4i iIjJd×˙j×˙i=kKd×˙k
65 64 a1i dViIjJd×˙j×˙i=kKd×˙k
66 57 65 mprgbir ddomXYXYd=Zd
67 eqfunfv FunXYFunZXY=ZdomXY=domZddomXYXYd=Zd
68 67 biimprd FunXYFunZdomXY=domZddomXYXYd=ZdXY=Z
69 31 66 68 mp2ani FunXYFunZXY=Z
70 13 14 69 mp2an XY=Z