Theorem mapxpen 6510

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 6358	. . 3 |- ^m Fn ( _V X. _V )
2		elex 2624	. . . . 5 |- ( A e. V -> A e. _V )
3	2	3ad2ant1 962	. . . 4 |- ( ( A e. V /\ B e. W /\ C e. X ) -> A e. _V )
4		elex 2624	. . . . 5 |- ( B e. W -> B e. _V )
5	4	3ad2ant2 963	. . . 4 |- ( ( A e. V /\ B e. W /\ C e. X ) -> B e. _V )
6		fnovex 5633	. . . 4 |- ( ( ^m Fn ( _V X. _V ) /\ A e. _V /\ B e. _V ) -> ( A ^m B ) e. _V )
7	1, 3, 5, 6	mp3an2i 1276	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( A ^m B ) e. _V )
8		elex 2624	. . . 4 |- ( C e. X -> C e. _V )
9	8	3ad2ant3 964	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> C e. _V )
10		fnovex 5633	. . 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 1276	. 2 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( ( A ^m B ) ^m C ) e. _V )
12		xpexg 4519	. . . 4 |- ( ( B e. W /\ C e. X ) -> ( B X. C ) e. _V )
13	12	3adant1 959	. . 3 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( B X. C ) e. _V )
14		fnovex 5633	. . 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 1276	. 2 |- ( ( A e. V /\ B e. W /\ C e. X ) -> ( A ^m ( B X. C ) ) e. _V )
16		elmapi 6373	. . . . . . . . . 10 |- ( f e. ( ( A ^m B ) ^m C ) -> f : C --> ( A ^m B ) )
17	16	ffvelrnda 5391	. . . . . . . . 9 |- ( ( f e. ( ( A ^m B ) ^m C ) /\ y e. C ) -> ( f ` y ) e. ( A ^m B ) )
18		elmapi 6373	. . . . . . . . 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 5391	. . . . . . 7 |- ( ( ( f e. ( ( A ^m B ) ^m C ) /\ y e. C ) /\ x e. B ) -> ( ( f ` y ) ` x ) e. A )
21	20	an32s 533	. . . . . 6 |- ( ( ( f e. ( ( A ^m B ) ^m C ) /\ x e. B ) /\ y e. C ) -> ( ( f ` y ) ` x ) e. A )
22	21	ralrimiva 2442	. . . . 5 |- ( ( f e. ( ( A ^m B ) ^m C ) /\ x e. B ) -> A. y e. C ( ( f ` y ) ` x ) e. A )
23	22	ralrimiva 2442	. . . 4 |- ( f e. ( ( A ^m B ) ^m C ) -> A. x e. B A. y e. C ( ( f ` y ) ` x ) e. A )
24		eqid 2085	. . . . 5 |- ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
25	24	fmpt2 5922	. . . 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 120	. . 3 |- ( f e. ( ( A ^m B ) ^m C ) -> ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) : ( B X. C ) --> A )
27		simp1 941	. . . 4 |- ( ( A e. V /\ B e. W /\ C e. X ) -> A e. V )
28	27, 13	elmapd 6365	. . 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 154	. 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 6373	. . . . . . . . 9 |- ( g e. ( A ^m ( B X. C ) ) -> g : ( B X. C ) --> A )
31	30	adantl 271	. . . . . . . 8 |- ( ( ( A e. V /\ B e. W /\ C e. X ) /\ g e. ( A ^m ( B X. C ) ) ) -> g : ( B X. C ) --> A )
32		fovrn 5738	. . . . . . . . . 10 |- ( ( g : ( B X. C ) --> A /\ x e. B /\ y e. C ) -> ( x g y ) e. A )
33	32	3expa 1141	. . . . . . . . 9 |- ( ( ( g : ( B X. C ) --> A /\ x e. B ) /\ y e. C ) -> ( x g y ) e. A )
34	33	an32s 533	. . . . . . . 8 |- ( ( ( g : ( B X. C ) --> A /\ y e. C ) /\ x e. B ) -> ( x g y ) e. A )
35	31, 34	sylanl1 394	. . . . . . 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 2085	. . . . . . 7 |- ( x e. B |-> ( x g y ) ) = ( x e. B |-> ( x g y ) )
37	35, 36	fmptd 5409	. . . . . 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 6364	. . . . . . . 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 961	. . . . . . 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 472	. . . . . 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 165	. . . . 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 2085	. . . . 5 |- ( y e. C |-> ( x e. B |-> ( x g y ) ) ) = ( y e. C |-> ( x e. B |-> ( x g y ) ) )
43	41, 42	fmptd 5409	. . . 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 113	. . 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 943	. . . 4 |- ( ( A e. V /\ B e. W /\ C e. X ) -> C e. X )
46	7, 45	elmapd 6365	. . 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 167	. 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 6374	. . . . . . . 8 |- ( g e. ( A ^m ( B X. C ) ) -> g Fn ( B X. C ) )
49	48	ad2antll 475	. . . . . . 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 5704	. . . . . . 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 943	. . . . . . . . . 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 466	. . . . . . . . . . . 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 960	. . . . . . . . . . 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 1035	. . . . . . . . . . 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 1034	. . . . . . . . . . 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 5137	. . . . . . . . . . 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 1172	. . . . . . . . . 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 5343	. . . . . . . . . 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 403	. . . . . . . . 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 5264	. . . . . . . 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 942	. . . . . . . . 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 2618	. . . . . . . . . 10 |- x e. _V
64		vex 2618	. . . . . . . . . 10 |- g e. _V
65		vex 2618	. . . . . . . . . 10 |- y e. _V
66		ovexg 5634	. . . . . . . . . 10 |- ( ( x e. _V /\ g e. _V /\ y e. _V ) -> ( x g y ) e. _V )
67	63, 64, 65, 66	mp3an 1271	. . . . . . . . 9 |- ( x g y ) e. _V
68	36	fvmpt2 5343	. . . . . . . . 9 |- ( ( x e. B /\ ( x g y ) e. _V ) -> ( ( x e. B |-> ( x g y ) ) ` x ) = ( x g y ) )
69	62, 67, 68	sylancl 404	. . . . . . . 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 2117	. . . . . . 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	mpt2eq3dva 5664	. . . . . 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 2120	. . . . 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 2085	. . . . . . 7 |- B = B
74		nfcv 2225	. . . . . . . . . 10 |- F/_ x C
75		nfmpt1 3906	. . . . . . . . . 10 |- F/_ x ( x e. B |-> ( x g y ) )
76	74, 75	nfmpt 3905	. . . . . . . . 9 |- F/_ x ( y e. C |-> ( x e. B |-> ( x g y ) ) )
77	76	nfeq2 2236	. . . . . . . 8 |- F/ x f = ( y e. C |-> ( x e. B |-> ( x g y ) ) )
78		nfmpt1 3906	. . . . . . . . . . . 12 |- F/_ y ( y e. C |-> ( x e. B |-> ( x g y ) ) )
79	78	nfeq2 2236	. . . . . . . . . . 11 |- F/ y f = ( y e. C |-> ( x e. B |-> ( x g y ) ) )
80		fveq1 5261	. . . . . . . . . . . . 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 5264	. . . . . . . . . . . 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 2440	. . . . . . . . . 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 2085	. . . . . . . . . 10 |- C = C
85	83, 84	jctil 305	. . . . . . . . 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 2440	. . . . . . 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		mpt2eq123 5659	. . . . . . 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 405	. . . . . 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 2096	. . . . 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 155	. . . 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 474	. . . . . . 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 5314	. . . . . 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 498	. . . . . . . . 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 277	. . . . . . . 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 5314	. . . . . . 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 3903	. . . . . 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 2117	. . . . 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		nfmpt22 5667	. . . . . . . . 9 |- F/_ y ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
100	99	nfeq2 2236	. . . . . . . 8 |- F/ y g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
101		eqidd 2086	. . . . . . . . 9 |- ( g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) -> B = B )
102		nfmpt21 5666	. . . . . . . . . . 11 |- F/_ x ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
103	102	nfeq2 2236	. . . . . . . . . 10 |- F/ x g = ( x e. B , y e. C |-> ( ( f ` y ) ` x ) )
104		nfv 1464	. . . . . . . . . 10 |- F/ x y e. C
105		vex 2618	. . . . . . . . . . . . . . 15 |- f e. _V
106	105, 65	fvex 5282	. . . . . . . . . . . . . 14 |- ( f ` y ) e. _V
107	106, 63	fvex 5282	. . . . . . . . . . . . 13 |- ( ( f ` y ) ` x ) e. _V
108	24	ovmpt4g 5718	. . . . . . . . . . . . 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 1260	. . . . . . . . . . . 12 |- ( ( x e. B /\ y e. C ) -> ( x ( x e. B , y e. C |-> ( ( f ` y ) ` x ) ) y ) = ( ( f ` y ) ` x ) )
110		oveq 5613	. . . . . . . . . . . . 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 2093	. . . . . . . . . . . 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 154	. . . . . . . . . . 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 1373	. . . . . . . . . 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 2447	. . . . . . . . 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 3896	. . . . . . . . 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 1366	. . . . . . . 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 2440	. . . . . . 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 3896	. . . . . . 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 405	. . . . . 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 2096	. . . . 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 155	. . . 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 127	. . 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 113	. 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 6432	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 102   <-> wb 103   /\ w3a 922   = wceq 1287   e. wcel 1436   A.wral 2355   _Vcvv 2615   class class class wbr 3820   |-> cmpt 3874   X. cxp 4408   Fn wfn 4973   -->wf 4974   ` cfv 4978  (class class class)co 5607   |-> cmpt2 5609   ^m cmap 6351   ~~ cen 6401

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 577  ax-in2 578  ax-io 663  ax-5 1379  ax-7 1380  ax-gen 1381  ax-ie1 1425  ax-ie2 1426  ax-8 1438  ax-10 1439  ax-11 1440  ax-i12 1441  ax-bndl 1442  ax-4 1443  ax-13 1447  ax-14 1448  ax-17 1462  ax-i9 1466  ax-ial 1470  ax-i5r 1471  ax-ext 2067  ax-sep 3931  ax-pow 3983  ax-pr 4009  ax-un 4233  ax-setind 4325

This theorem depends on definitions:  df-bi 115  df-3an 924  df-tru 1290  df-fal 1293  df-nf 1393  df-sb 1690  df-eu 1948  df-mo 1949  df-clab 2072  df-cleq 2078  df-clel 2081  df-nfc 2214  df-ne 2252  df-ral 2360  df-rex 2361  df-rab 2364  df-v 2617  df-sbc 2830  df-csb 2923  df-dif 2990  df-un 2992  df-in 2994  df-ss 3001  df-pw 3417  df-sn 3437  df-pr 3438  df-op 3440  df-uni 3637  df-iun 3715  df-br 3821  df-opab 3875  df-mpt 3876  df-id 4093  df-xp 4416  df-rel 4417  df-cnv 4418  df-co 4419  df-dm 4420  df-rn 4421  df-res 4422  df-ima 4423  df-iota 4943  df-fun 4980  df-fn 4981  df-f 4982  df-f1 4983  df-fo 4984  df-f1o 4985  df-fv 4986  df-ov 5610  df-oprab 5611  df-mpt2 5612  df-1st 5862  df-2nd 5863  df-map 6353  df-en 6404

This theorem is referenced by: (None)