Metamath Proof Explorer


Theorem xpdom2

Description: Dominance law for Cartesian product. Proposition 10.33(2) of TakeutiZaring p. 92. (Contributed by NM, 24-Jul-2004) (Revised by Mario Carneiro, 15-Nov-2014)

Ref Expression
Hypothesis xpdom.2 CV
Assertion xpdom2 ABC×AC×B

Proof

Step Hyp Ref Expression
1 xpdom.2 CV
2 brdomi ABff:A1-1B
3 f1f f:A1-1Bf:AB
4 ffvelrn f:ABranxAfranxB
5 4 ex f:ABranxAfranxB
6 3 5 syl f:A1-1BranxAfranxB
7 6 anim2d f:A1-1BdomxCranxAdomxCfranxB
8 7 adantld f:A1-1Bx=domxranxdomxCranxAdomxCfranxB
9 elxp4 xC×Ax=domxranxdomxCranxA
10 opelxp domxfranxC×BdomxCfranxB
11 8 9 10 3imtr4g f:A1-1BxC×AdomxfranxC×B
12 11 adantl ABf:A1-1BxC×AdomxfranxC×B
13 elxp2 xC×AzCwAx=zw
14 elxp2 yC×AvCuAy=vu
15 vex zV
16 fvex fwV
17 15 16 opth zfw=vfuz=vfw=fu
18 f1fveq f:A1-1BwAuAfw=fuw=u
19 18 ancoms wAuAf:A1-1Bfw=fuw=u
20 19 anbi2d wAuAf:A1-1Bz=vfw=fuz=vw=u
21 17 20 bitrid wAuAf:A1-1Bzfw=vfuz=vw=u
22 21 ex wAuAf:A1-1Bzfw=vfuz=vw=u
23 22 ad2ant2l zCwAvCuAf:A1-1Bzfw=vfuz=vw=u
24 23 imp zCwAvCuAf:A1-1Bzfw=vfuz=vw=u
25 24 adantlr zCwAvCuAx=zwy=vuf:A1-1Bzfw=vfuz=vw=u
26 sneq x=zwx=zw
27 26 dmeqd x=zwdomx=domzw
28 27 unieqd x=zwdomx=domzw
29 vex wV
30 15 29 op1sta domzw=z
31 28 30 eqtrdi x=zwdomx=z
32 26 rneqd x=zwranx=ranzw
33 32 unieqd x=zwranx=ranzw
34 15 29 op2nda ranzw=w
35 33 34 eqtrdi x=zwranx=w
36 35 fveq2d x=zwfranx=fw
37 31 36 opeq12d x=zwdomxfranx=zfw
38 sneq y=vuy=vu
39 38 dmeqd y=vudomy=domvu
40 39 unieqd y=vudomy=domvu
41 vex vV
42 vex uV
43 41 42 op1sta domvu=v
44 40 43 eqtrdi y=vudomy=v
45 38 rneqd y=vurany=ranvu
46 45 unieqd y=vurany=ranvu
47 41 42 op2nda ranvu=u
48 46 47 eqtrdi y=vurany=u
49 48 fveq2d y=vufrany=fu
50 44 49 opeq12d y=vudomyfrany=vfu
51 37 50 eqeqan12d x=zwy=vudomxfranx=domyfranyzfw=vfu
52 51 ad2antlr zCwAvCuAx=zwy=vuf:A1-1Bdomxfranx=domyfranyzfw=vfu
53 eqeq12 x=zwy=vux=yzw=vu
54 15 29 opth zw=vuz=vw=u
55 53 54 bitrdi x=zwy=vux=yz=vw=u
56 55 ad2antlr zCwAvCuAx=zwy=vuf:A1-1Bx=yz=vw=u
57 25 52 56 3bitr4d zCwAvCuAx=zwy=vuf:A1-1Bdomxfranx=domyfranyx=y
58 57 exp53 zCwAvCuAx=zwy=vuf:A1-1Bdomxfranx=domyfranyx=y
59 58 com23 zCwAx=zwvCuAy=vuf:A1-1Bdomxfranx=domyfranyx=y
60 59 rexlimivv zCwAx=zwvCuAy=vuf:A1-1Bdomxfranx=domyfranyx=y
61 60 rexlimdvv zCwAx=zwvCuAy=vuf:A1-1Bdomxfranx=domyfranyx=y
62 61 imp zCwAx=zwvCuAy=vuf:A1-1Bdomxfranx=domyfranyx=y
63 13 14 62 syl2anb xC×AyC×Af:A1-1Bdomxfranx=domyfranyx=y
64 63 com12 f:A1-1BxC×AyC×Adomxfranx=domyfranyx=y
65 64 adantl ABf:A1-1BxC×AyC×Adomxfranx=domyfranyx=y
66 reldom Rel
67 66 brrelex1i ABAV
68 xpexg CVAVC×AV
69 1 67 68 sylancr ABC×AV
70 69 adantr ABf:A1-1BC×AV
71 66 brrelex2i ABBV
72 xpexg CVBVC×BV
73 1 71 72 sylancr ABC×BV
74 73 adantr ABf:A1-1BC×BV
75 12 65 70 74 dom3d ABf:A1-1BC×AC×B
76 2 75 exlimddv ABC×AC×B