Theorem mapxpen 6693

Description: Equinumerosity law for double set exponentiation. Proposition 10.45 of [TakeutiZaring] p. 96. (Contributed by NM, 21-Feb-2004.) (Revised by Mario Carneiro, 24-Jun-2015.)

Assertion

Ref	Expression
mapxpen	|- ( ( A e. V /\ B e. W /\ C e. X ) -> ( ( A ^m B ) ^m C ) ~~ ( A ^m ( B X. C ) ) )

Proof of Theorem mapxpen

Dummy variables f g x y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fnmap 6501	. . 3 |- ^m Fn ( _V X. _V )
2		elex 2666	. . . . 5 |- ( A e. V -> A e. _V )
3	2	3ad2ant1 983	. . . 4 |- ( ( A e. V /\ B e. W /\ C e. X ) -> A e. _V )
4		elex 2666	. . . . 5 |- ( B e. W -> B e. _V )
5	4	3ad2ant2 984	. . . 4 |- ( ( A e. V /\ B e. W /\ C e. X ) -> B e. _V )
6		fnovex 5756	. . . 4 |- ( ( ^m Fn ( _V X. _V ) /\ A e. _V /\ B e. _V ) -> ( A ^m B ) e. _V )
7	1, 3, 5, 6	mp3an2i 1301	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( A ^m B ) e. _V )
8		elex 2666	. . . 4 |- ( C e. X -> C e. _V )
9	8	3ad2ant3 985	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> C e. _V )
10		fnovex 5756	. . 3 |- ( ( ^m Fn ( _V X. _V ) /\ ( A ^m B ) e. _V /\ C e. _V ) -> ( ( A ^m B ) ^m C ) e. _V )
11	1, 7, 9, 10	mp3an2i 1301	. 2 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( ( A ^m B ) ^m C ) e. _V )
12		xpexg 4611	. . . 4 |- ( ( B e. W /\ C e. X ) -> ( B X. C ) e. _V )
13	12	3adant1 980	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( B X. C ) e. _V )
14		fnovex 5756	. . 3 |- ( ( ^m Fn ( _V X. _V ) /\ A e. _V /\ ( B X. C ) e. _V ) -> ( A ^m ( B X. C ) ) e. _V )
15	1, 3, 13, 14	mp3an2i 1301	. 2 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( A ^m ( B X. C ) ) e. _V )
16		elmapi 6516	. . . . . . . . . 10 |- ( f e. ( ( A ^m B ) ^m C ) -> f : C --> ( A ^m B ) )
17	16	ffvelrnda 5507	. . . . . . . . 9 |- ( ( f e. ( ( A ^m B ) ^m C ) /\ y e. C ) -> ( f ` y ) e. ( A ^m B ) )
18		elmapi 6516	. . . . . . . . 9 |- ( ( f ` y ) e. ( A ^m B ) -> ( f ` y ) : B --> A )
19	17, 18	syl 14	. . . . . . . 8 |- ( ( f e. ( ( A ^m B ) ^m C ) /\ y e. C ) -> ( f ` y ) : B --> A )
20	19	ffvelrnda 5507	. . . . . . 7 |- ( ( ( f e. ( ( A ^m B ) ^m C ) /\ y e. C ) /\ x e. B ) -> ( ( f ` y ) ` x ) e. A )
21	20	an32s 540	. . . . . 6 |- ( ( ( f e. ( ( A ^m B ) ^m C ) /\ x e. B ) /\ y e. C ) -> ( ( f ` y ) ` x ) e. A )
22	21	ralrimiva 2477	. . . . 5 |- ( ( f e. ( ( A ^m B ) ^m C ) /\ x e. B ) -> A. y e. C ( ( f ` y ) ` x ) e. A )
23	22	ralrimiva 2477	. . . 4 |- ( f e. ( ( A ^m B ) ^m C ) -> A. x e. B A. y e. C ( ( f ` y ) ` x ) e. A )
24		eqid 2113	. . . . 5 |- ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
25	24	fmpo 6051	. . . 4 |- ( A. x e. B A. y e. C ( ( f ` y ) ` x ) e. A <-> ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) : ( B X. C ) --> A )
26	23, 25	sylib 121	. . 3 |- ( f e. ( ( A ^m B ) ^m C ) -> ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) : ( B X. C ) --> A )
27		simp1 962	. . . 4 |- ( ( A e. V /\ B e. W /\ C e. X ) -> A e. V )
28	27, 13	elmapd 6508	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) e. ( A ^m ( B X. C ) ) <-> ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) : ( B X. C ) --> A ) )
29	26, 28	syl5ibr 155	. 2 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( f e. ( ( A ^m B ) ^m C ) -> ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) e. ( A ^m ( B X. C ) ) ) )
30		elmapi 6516	. . . . . . . . 9 |- ( g e. ( A ^m ( B X. C ) ) -> g : ( B X. C ) --> A )
31	30	adantl 273	. . . . . . . 8 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ g e. ( A ^m ( B X. C ) ) ) -> g : ( B X. C ) --> A )
32		fovrn 5865	. . . . . . . . . 10 |- ( ( g : ( B X. C ) --> A /\ x e. B /\ y e. C ) -> ( x g y ) e. A )
33	32	3expa 1162	. . . . . . . . 9 |- ( ( ( g : ( B X. C ) --> A /\ x e. B ) /\ y e. C ) -> ( x g y ) e. A )
34	33	an32s 540	. . . . . . . 8 |- ( ( ( g : ( B X. C ) --> A /\ y e. C ) /\ x e. B ) -> ( x g y ) e. A )
35	31, 34	sylanl1 397	. . . . . . 7 |- ( ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ g e. ( A ^m ( B X. C ) ) ) /\ y e. C ) /\ x e. B ) -> ( x g y ) e. A )
36		eqid 2113	. . . . . . 7 |- ( x e. B |-> ( x g y ) ) = ( x e. B |-> ( x g y ) )
37	35, 36	fmptd 5526	. . . . . 6 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ g e. ( A ^m ( B X. C ) ) ) /\ y e. C ) -> ( x e. B |-> ( x g y ) ) : B --> A )
38		elmapg 6507	. . . . . . . 8 |- ( ( A e. V /\ B e. W ) -> ( ( x e. B |-> ( x g y ) ) e. ( A ^m B ) <-> ( x e. B |-> ( x g y ) ) : B --> A ) )
39	38	3adant3 982	. . . . . . 7 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( ( x e. B |-> ( x g y ) ) e. ( A ^m B ) <-> ( x e. B |-> ( x g y ) ) : B --> A ) )
40	39	ad2antrr 477	. . . . . 6 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ g e. ( A ^m ( B X. C ) ) ) /\ y e. C ) -> ( ( x e. B |-> ( x g y ) ) e. ( A ^m B ) <-> ( x e. B |-> ( x g y ) ) : B --> A ) )
41	37, 40	mpbird 166	. . . . 5 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ g e. ( A ^m ( B X. C ) ) ) /\ y e. C ) -> ( x e. B |-> ( x g y ) ) e. ( A ^m B ) )
42		eqid 2113	. . . . 5 |- ( y e. C |-> ( x e. B |-> ( x g y ) ) ) = ( y e. C |-> ( x e. B |-> ( x g y ) ) )
43	41, 42	fmptd 5526	. . . 4 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ g e. ( A ^m ( B X. C ) ) ) -> ( y e. C |-> ( x e. B |-> ( x g y ) ) ) : C --> ( A ^m B ) )
44	43	ex 114	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( g e. ( A ^m ( B X. C ) ) -> ( y e. C |-> ( x e. B |-> ( x g y ) ) ) : C --> ( A ^m B ) ) )
45		simp3 964	. . . 4 |- ( ( A e. V /\ B e. W /\ C e. X ) -> C e. X )
46	7, 45	elmapd 6508	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) e. ( ( A ^m B ) ^m C ) <-> ( y e. C |-> ( x e. B |-> ( x g y ) ) ) : C --> ( A ^m B ) ) )
47	44, 46	sylibrd 168	. 2 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( g e. ( A ^m ( B X. C ) ) -> ( y e. C |-> ( x e. B |-> ( x g y ) ) ) e. ( ( A ^m B ) ^m C ) ) )
48		elmapfn 6517	. . . . . . . 8 |- ( g e. ( A ^m ( B X. C ) ) -> g Fn ( B X. C ) )
49	48	ad2antll 480	. . . . . . 7 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> g Fn ( B X. C ) )
50		fnovim 5831	. . . . . . 7 |- ( g Fn ( B X. C ) -> g = ( x e. B , y e. C |-> ( x g y ) ) )
51	49, 50	syl 14	. . . . . 6 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> g = ( x e. B , y e. C |-> ( x g y ) ) )
52		simp3 964	. . . . . . . . . 10 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> y e. C )
53	37	adantlrl 471	. . . . . . . . . . . 12 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ y e. C ) -> ( x e. B |-> ( x g y ) ) : B --> A )
54	53	3adant2 981	. . . . . . . . . . 11 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> ( x e. B |-> ( x g y ) ) : B --> A )
55		simp1l2 1056	. . . . . . . . . . 11 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> B e. W )
56		simp1l1 1055	. . . . . . . . . . 11 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> A e. V )
57		fex2 5247	. . . . . . . . . . 11 |- ( ( ( x e. B |-> ( x g y ) ) : B --> A /\ B e. W /\ A e. V ) -> ( x e. B |-> ( x g y ) ) e. _V )
58	54, 55, 56, 57	syl3anc 1197	. . . . . . . . . 10 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> ( x e. B |-> ( x g y ) ) e. _V )
59	42	fvmpt2 5456	. . . . . . . . . 10 |- ( ( y e. C /\ ( x e. B |-> ( x g y ) ) e. _V ) -> ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) = ( x e. B |-> ( x g y ) ) )
60	52, 58, 59	syl2anc 406	. . . . . . . . 9 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) = ( x e. B |-> ( x g y ) ) )
61	60	fveq1d 5375	. . . . . . . 8 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) = ( ( x e. B |-> ( x g y ) ) ` x ) )
62		simp2 963	. . . . . . . . 9 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> x e. B )
63		vex 2658	. . . . . . . . . 10 |- x e. _V
64		vex 2658	. . . . . . . . . 10 |- g e. _V
65		vex 2658	. . . . . . . . . 10 |- y e. _V
66		ovexg 5757	. . . . . . . . . 10 |- ( ( x e. _V /\ g e. _V /\ y e. _V ) -> ( x g y ) e. _V )
67	63, 64, 65, 66	mp3an 1296	. . . . . . . . 9 |- ( x g y ) e. _V
68	36	fvmpt2 5456	. . . . . . . . 9 |- ( ( x e. B /\ ( x g y ) e. _V ) -> ( ( x e. B |-> ( x g y ) ) ` x ) = ( x g y ) )
69	62, 67, 68	sylancl 407	. . . . . . . 8 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> ( ( x e. B |-> ( x g y ) ) ` x ) = ( x g y ) )
70	61, 69	eqtrd 2145	. . . . . . 7 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ x e. B /\ y e. C ) -> ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) = ( x g y ) )
71	70	mpoeq3dva 5787	. . . . . 6 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> ( x e. B , y e. C |-> ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) = ( x e. B , y e. C |-> ( x g y ) ) )
72	51, 71	eqtr4d 2148	. . . . 5 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> g = ( x e. B , y e. C |-> ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) )
73		eqid 2113	. . . . . . 7 |- B = B
74		nfcv 2253	. . . . . . . . . 10 |- F/_ x C
75		nfmpt1 3979	. . . . . . . . . 10 |- F/_ x ( x e. B |-> ( x g y ) )
76	74, 75	nfmpt 3978	. . . . . . . . 9 |- F/_ x ( y e. C |-> ( x e. B |-> ( x g y ) ) )
77	76	nfeq2 2265	. . . . . . . 8 |- F/ x f = ( y e. C |-> ( x e. B |-> ( x g y ) ) )
78		nfmpt1 3979	. . . . . . . . . . . 12 |- F/_ y ( y e. C |-> ( x e. B |-> ( x g y ) ) )
79	78	nfeq2 2265	. . . . . . . . . . 11 |- F/ y f = ( y e. C |-> ( x e. B |-> ( x g y ) ) )
80		fveq1 5372	. . . . . . . . . . . . 13 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> ( f ` y ) = ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) )
81	80	fveq1d 5375	. . . . . . . . . . . 12 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> ( ( f ` y ) ` x ) = ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) )
82	81	a1d 22	. . . . . . . . . . 11 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> ( y e. C -> ( ( f ` y ) ` x ) = ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) )
83	79, 82	ralrimi 2475	. . . . . . . . . 10 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> A. y e. C ( ( f ` y ) ` x ) = ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) )
84		eqid 2113	. . . . . . . . . 10 |- C = C
85	83, 84	jctil 308	. . . . . . . . 9 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> ( C = C /\ A. y e. C ( ( f ` y ) ` x ) = ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) )
86	85	a1d 22	. . . . . . . 8 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> ( x e. B -> ( C = C /\ A. y e. C ( ( f ` y ) ` x ) = ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) ) )
87	77, 86	ralrimi 2475	. . . . . . 7 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> A. x e. B ( C = C /\ A. y e. C ( ( f ` y ) ` x ) = ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) )
88		mpoeq123 5782	. . . . . . 7 |- ( ( B = B /\ A. x e. B ( C = C /\ A. y e. C ( ( f ` y ) ` x ) = ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) ) -> ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) = ( x e. B , y e. C |-> ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) )
89	73, 87, 88	sylancr 408	. . . . . 6 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) = ( x e. B , y e. C |-> ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) )
90	89	eqeq2d 2124	. . . . 5 |- ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) <-> g = ( x e. B , y e. C |-> ( ( ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ` y ) ` x ) ) ) )
91	72, 90	syl5ibrcom 156	. . . 4 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) -> g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) ) )
92	16	ad2antrl 479	. . . . . . 7 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> f : C --> ( A ^m B ) )
93	92	feqmptd 5426	. . . . . 6 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> f = ( y e. C |-> ( f ` y ) ) )
94		simprl 503	. . . . . . . . 9 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> f e. ( ( A ^m B ) ^m C ) )
95	94, 19	sylan 279	. . . . . . . 8 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ y e. C ) -> ( f ` y ) : B --> A )
96	95	feqmptd 5426	. . . . . . 7 |- ( ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) /\ y e. C ) -> ( f ` y ) = ( x e. B |-> ( ( f ` y ) ` x ) ) )
97	96	mpteq2dva 3976	. . . . . 6 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> ( y e. C |-> ( f ` y ) ) = ( y e. C |-> ( x e. B |-> ( ( f ` y ) ` x ) ) ) )
98	93, 97	eqtrd 2145	. . . . 5 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> f = ( y e. C |-> ( x e. B |-> ( ( f ` y ) ` x ) ) ) )
99		nfmpo2 5791	. . . . . . . . 9 |- F/_ y ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
100	99	nfeq2 2265	. . . . . . . 8 |- F/ y g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
101		eqidd 2114	. . . . . . . . 9 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> B = B )
102		nfmpo1 5790	. . . . . . . . . . 11 |- F/_ x ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
103	102	nfeq2 2265	. . . . . . . . . 10 |- F/ x g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
104		nfv 1489	. . . . . . . . . 10 |- F/ x y e. C
105		vex 2658	. . . . . . . . . . . . . . 15 |- f e. _V
106	105, 65	fvex 5393	. . . . . . . . . . . . . 14 |- ( f ` y ) e. _V
107	106, 63	fvex 5393	. . . . . . . . . . . . 13 |- ( ( f ` y ) ` x ) e. _V
108	24	ovmpt4g 5845	. . . . . . . . . . . . 13 |- ( ( x e. B /\ y e. C /\ ( ( f ` y ) ` x ) e. _V ) -> ( x ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) y ) = ( ( f ` y ) ` x ) )
109	107, 108	mp3an3 1285	. . . . . . . . . . . 12 |- ( ( x e. B /\ y e. C ) -> ( x ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) y ) = ( ( f ` y ) ` x ) )
110		oveq 5732	. . . . . . . . . . . . 13 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> ( x g y ) = ( x ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) y ) )
111	110	eqeq1d 2121	. . . . . . . . . . . 12 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> ( ( x g y ) = ( ( f ` y ) ` x ) <-> ( x ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) y ) = ( ( f ` y ) ` x ) ) )
112	109, 111	syl5ibr 155	. . . . . . . . . . 11 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> ( ( x e. B /\ y e. C ) -> ( x g y ) = ( ( f ` y ) ` x ) ) )
113	112	expcomd 1398	. . . . . . . . . 10 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> ( y e. C -> ( x e. B -> ( x g y ) = ( ( f ` y ) ` x ) ) ) )
114	103, 104, 113	ralrimd 2482	. . . . . . . . 9 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> ( y e. C -> A. x e. B ( x g y ) = ( ( f ` y ) ` x ) ) )
115		mpteq12 3969	. . . . . . . . 9 |- ( ( B = B /\ A. x e. B ( x g y ) = ( ( f ` y ) ` x ) ) -> ( x e. B |-> ( x g y ) ) = ( x e. B |-> ( ( f ` y ) ` x ) ) )
116	101, 114, 115	syl6an 1391	. . . . . . . 8 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> ( y e. C -> ( x e. B |-> ( x g y ) ) = ( x e. B |-> ( ( f ` y ) ` x ) ) ) )
117	100, 116	ralrimi 2475	. . . . . . 7 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> A. y e. C ( x e. B |-> ( x g y ) ) = ( x e. B |-> ( ( f ` y ) ` x ) ) )
118		mpteq12 3969	. . . . . . 7 |- ( ( C = C /\ A. y e. C ( x e. B |-> ( x g y ) ) = ( x e. B |-> ( ( f ` y ) ` x ) ) ) -> ( y e. C |-> ( x e. B |-> ( x g y ) ) ) = ( y e. C |-> ( x e. B |-> ( ( f ` y ) ` x ) ) ) )
119	84, 117, 118	sylancr 408	. . . . . 6 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> ( y e. C |-> ( x e. B |-> ( x g y ) ) ) = ( y e. C |-> ( x e. B |-> ( ( f ` y ) ` x ) ) ) )
120	119	eqeq2d 2124	. . . . 5 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) <-> f = ( y e. C |-> ( x e. B |-> ( ( f ` y ) ` x ) ) ) ) )
121	98, 120	syl5ibrcom 156	. . . 4 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) ) )
122	91, 121	impbid 128	. . 3 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) ) -> ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) <-> g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) ) )
123	122	ex 114	. 2 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( ( f e. ( ( A ^m B ) ^m C ) /\ g e. ( A ^m ( B X. C ) ) ) -> ( f = ( y e. C |-> ( x e. B |-> ( x g y ) ) ) <-> g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) ) ) )
124	11, 15, 29, 47, 123	en3d 6615	1 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( ( A ^m B ) ^m C ) ~~ ( A ^m ( B X. C ) ) )

Syntax hints:   -> wi 4   /\ wa 103   <-> wb 104   /\ w3a 943   = wceq 1312   e. wcel 1461   A.wral 2388   _Vcvv 2655   class class class wbr 3893   |-> cmpt 3947   X. cxp 4495   Fn wfn 5074   -->wf 5075   ` cfv 5079  (class class class)co 5726   e. cmpo 5728   ^m cmap 6494   ~~ cen 6584

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 586  ax-in2 587  ax-io 681  ax-5 1404  ax-7 1405  ax-gen 1406  ax-ie1 1450  ax-ie2 1451  ax-8 1463  ax-10 1464  ax-11 1465  ax-i12 1466  ax-bndl 1467  ax-4 1468  ax-13 1472  ax-14 1473  ax-17 1487  ax-i9 1491  ax-ial 1495  ax-i5r 1496  ax-ext 2095  ax-sep 4004  ax-pow 4056  ax-pr 4089  ax-un 4313  ax-setind 4410

This theorem depends on definitions:  df-bi 116  df-3an 945  df-tru 1315  df-fal 1318  df-nf 1418  df-sb 1717  df-eu 1976  df-mo 1977  df-clab 2100  df-cleq 2106  df-clel 2109  df-nfc 2242  df-ne 2281  df-ral 2393  df-rex 2394  df-rab 2397  df-v 2657  df-sbc 2877  df-csb 2970  df-dif 3037  df-un 3039  df-in 3041  df-ss 3048  df-pw 3476  df-sn 3497  df-pr 3498  df-op 3500  df-uni 3701  df-iun 3779  df-br 3894  df-opab 3948  df-mpt 3949  df-id 4173  df-xp 4503  df-rel 4504  df-cnv 4505  df-co 4506  df-dm 4507  df-rn 4508  df-res 4509  df-ima 4510  df-iota 5044  df-fun 5081  df-fn 5082  df-f 5083  df-f1 5084  df-fo 5085  df-f1o 5086  df-fv 5087  df-ov 5729  df-oprab 5730  df-mpo 5731  df-1st 5990  df-2nd 5991  df-map 6496  df-en 6587

This theorem is referenced by: (None)