Theorem fprodssdc 12141

Description: Change the index set to a subset in a finite sum. (Contributed by Scott Fenton, 16-Dec-2017.)

Hypotheses

Ref	Expression
fprodss.1	|- ( ph -> A C_ B )
fprodss.2	|- ( ( ph /\ k e. A ) -> C e. CC )
fprodssdc.a	|- ( ph -> A. j e. B DECID j e. A )
fprodss.3	|- ( ( ph /\ k e. ( B \ A ) ) -> C = 1 )
fprodss.4	|- ( ph -> B e. Fin )

Assertion

Ref	Expression
fprodssdc	|- ( ph -> prod_ k e. A C = prod_ k e. B C )

Distinct variable groups:   A, j, k   B, k, j   ph, k   j, k

Allowed substitution hints:   ph( j)   C( j, k)

Proof of Theorem fprodssdc

Dummy variables f p m n y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fprodss.1	. . 3 |- ( ph -> A C_ B )
2		sseq2 3249	. . . . 5 |- ( B = (/) -> ( A C_ B <-> A C_ (/) ) )
3		ss0 3533	. . . . 5 |- ( A C_ (/) -> A = (/) )
4	2, 3	biimtrdi 163	. . . 4 |- ( B = (/) -> ( A C_ B -> A = (/) ) )
5		prodeq1 12104	. . . . . 6 |- ( A = (/) -> prod_ k e. A C = prod_ k e. (/) C )
6		prodeq1 12104	. . . . . . 7 |- ( B = (/) -> prod_ k e. B C = prod_ k e. (/) C )
7	6	eqcomd 2235	. . . . . 6 |- ( B = (/) -> prod_ k e. (/) C = prod_ k e. B C )
8	5, 7	sylan9eq 2282	. . . . 5 |- ( ( A = (/) /\ B = (/) ) -> prod_ k e. A C = prod_ k e. B C )
9	8	expcom 116	. . . 4 |- ( B = (/) -> ( A = (/) -> prod_ k e. A C = prod_ k e. B C ) )
10	4, 9	syld 45	. . 3 |- ( B = (/) -> ( A C_ B -> prod_ k e. A C = prod_ k e. B C ) )
11	1, 10	syl5com 29	. 2 |- ( ph -> ( B = (/) -> prod_ k e. A C = prod_ k e. B C ) )
12		cnvimass 5097	. . . . . . . . 9 |- ( `' f " A ) C_ dom f
13		simprr 531	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B )
14		f1of 5580	. . . . . . . . . 10 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> f : ( 1 ... (♯ ` B ) ) --> B )
15	13, 14	syl 14	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> f : ( 1 ... (♯ ` B ) ) --> B )
16	12, 15	fssdm 5494	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( `' f " A ) C_ ( 1 ... (♯ ` B ) ) )
17		f1ofn 5581	. . . . . . . . . . . 12 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> f Fn ( 1 ... (♯ ` B ) ) )
18		elpreima 5762	. . . . . . . . . . . 12 |- ( f Fn ( 1 ... (♯ ` B ) ) -> ( n e. ( `' f " A ) <-> ( n e. ( 1 ... (♯ ` B ) ) /\ ( f ` n ) e. A ) ) )
19	13, 17, 18	3syl 17	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( n e. ( `' f " A ) <-> ( n e. ( 1 ... (♯ ` B ) ) /\ ( f ` n ) e. A ) ) )
20	15	ffvelcdmda 5778	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( 1 ... (♯ ` B ) ) ) -> ( f ` n ) e. B )
21	20	ex 115	. . . . . . . . . . . 12 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( n e. ( 1 ... (♯ ` B ) ) -> ( f ` n ) e. B ) )
22	21	adantrd 279	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( ( n e. ( 1 ... (♯ ` B ) ) /\ ( f ` n ) e. A ) -> ( f ` n ) e. B ) )
23	19, 22	sylbid 150	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( n e. ( `' f " A ) -> ( f ` n ) e. B ) )
24	23	imp 124	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( `' f " A ) ) -> ( f ` n ) e. B )
25		fprodss.2	. . . . . . . . . . . . . . 15 |- ( ( ph /\ k e. A ) -> C e. CC )
26	25	ex 115	. . . . . . . . . . . . . 14 |- ( ph -> ( k e. A -> C e. CC ) )
27	26	adantr 276	. . . . . . . . . . . . 13 |- ( ( ph /\ k e. B ) -> ( k e. A -> C e. CC ) )
28		eldif 3207	. . . . . . . . . . . . . . 15 |- ( k e. ( B \ A ) <-> ( k e. B /\ -. k e. A ) )
29		fprodss.3	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ k e. ( B \ A ) ) -> C = 1 )
30		ax-1cn 8115	. . . . . . . . . . . . . . . 16 |- 1 e. CC
31	29, 30	eqeltrdi 2320	. . . . . . . . . . . . . . 15 |- ( ( ph /\ k e. ( B \ A ) ) -> C e. CC )
32	28, 31	sylan2br 288	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( k e. B /\ -. k e. A ) ) -> C e. CC )
33	32	expr 375	. . . . . . . . . . . . 13 |- ( ( ph /\ k e. B ) -> ( -. k e. A -> C e. CC ) )
34		eleq1 2292	. . . . . . . . . . . . . . . 16 |- ( j = k -> ( j e. A <-> k e. A ) )
35	34	dcbid 843	. . . . . . . . . . . . . . 15 |- ( j = k -> (DECID j e. A <-> DECID k e. A ) )
36		fprodssdc.a	. . . . . . . . . . . . . . . 16 |- ( ph -> A. j e. B DECID j e. A )
37	36	adantr 276	. . . . . . . . . . . . . . 15 |- ( ( ph /\ k e. B ) -> A. j e. B DECID j e. A )
38		simpr 110	. . . . . . . . . . . . . . 15 |- ( ( ph /\ k e. B ) -> k e. B )
39	35, 37, 38	rspcdva 2913	. . . . . . . . . . . . . 14 |- ( ( ph /\ k e. B ) -> DECID k e. A )
40		exmiddc 841	. . . . . . . . . . . . . 14 |- (DECID k e. A -> ( k e. A \/ -. k e. A ) )
41	39, 40	syl 14	. . . . . . . . . . . . 13 |- ( ( ph /\ k e. B ) -> ( k e. A \/ -. k e. A ) )
42	27, 33, 41	mpjaod 723	. . . . . . . . . . . 12 |- ( ( ph /\ k e. B ) -> C e. CC )
43	42	adantlr 477	. . . . . . . . . . 11 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ k e. B ) -> C e. CC )
44	43	fmpttd 5798	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( k e. B |-> C ) : B --> CC )
45	44	ffvelcdmda 5778	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ ( f ` n ) e. B ) -> ( ( k e. B |-> C ) ` ( f ` n ) ) e. CC )
46	24, 45	syldan 282	. . . . . . . 8 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( `' f " A ) ) -> ( ( k e. B |-> C ) ` ( f ` n ) ) e. CC )
47		eqid 2229	. . . . . . . . 9 |- ( ZZ>= ` 1 ) = ( ZZ>= ` 1 )
48		simprl 529	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. NN )
49		nnuz 9782	. . . . . . . . . 10 |- NN = ( ZZ>= ` 1 )
50	48, 49	eleqtrdi 2322	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. ( ZZ>= ` 1 ) )
51		ssidd 3246	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) C_ ( 1 ... (♯ ` B ) ) )
52	47, 50, 51	fprodntrivap 12135	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> E. m e. ( ZZ>= ` 1 ) E. y ( y # 0 /\ seq m ( x. , ( n e. ( ZZ>= ` 1 ) |-> if ( n e. ( 1 ... (♯ ` B ) ) , ( ( k e. B |-> C ) ` ( f ` n ) ) , 1 ) ) ) ~~> y ) )
53		eleq1 2292	. . . . . . . . . . . . 13 |- ( j = ( f ` p ) -> ( j e. A <-> ( f ` p ) e. A ) )
54	53	dcbid 843	. . . . . . . . . . . 12 |- ( j = ( f ` p ) -> (DECID j e. A <-> DECID ( f ` p ) e. A ) )
55	36	ad3antrrr 492	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> A. j e. B DECID j e. A )
56	13	ad2antrr 488	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B )
57	56, 14	syl 14	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> f : ( 1 ... (♯ ` B ) ) --> B )
58		simpr 110	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> p e. ( 1 ... (♯ ` B ) ) )
59	57, 58	ffvelcdmd 5779	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> ( f ` p ) e. B )
60	54, 55, 59	rspcdva 2913	. . . . . . . . . . 11 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> DECID ( f ` p ) e. A )
61		f1ocnv 5593	. . . . . . . . . . . . . . 15 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> `' f : B -1-1-onto-> ( 1 ... (♯ ` B ) ) )
62		f1of1 5579	. . . . . . . . . . . . . . 15 |- ( `' f : B -1-1-onto-> ( 1 ... (♯ ` B ) ) -> `' f : B -1-1-> ( 1 ... (♯ ` B ) ) )
63	56, 61, 62	3syl 17	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> `' f : B -1-1-> ( 1 ... (♯ ` B ) ) )
64	1	ad3antrrr 492	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> A C_ B )
65		f1elima 5909	. . . . . . . . . . . . . 14 |- ( ( `' f : B -1-1-> ( 1 ... (♯ ` B ) ) /\ ( f ` p ) e. B /\ A C_ B ) -> ( ( `' f ` ( f ` p ) ) e. ( `' f " A ) <-> ( f ` p ) e. A ) )
66	63, 59, 64, 65	syl3anc 1271	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> ( ( `' f ` ( f ` p ) ) e. ( `' f " A ) <-> ( f ` p ) e. A ) )
67		f1ocnvfv1 5913	. . . . . . . . . . . . . . 15 |- ( ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B /\ p e. ( 1 ... (♯ ` B ) ) ) -> ( `' f ` ( f ` p ) ) = p )
68	56, 58, 67	syl2anc 411	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> ( `' f ` ( f ` p ) ) = p )
69	68	eleq1d 2298	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> ( ( `' f ` ( f ` p ) ) e. ( `' f " A ) <-> p e. ( `' f " A ) ) )
70	66, 69	bitr3d 190	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> ( ( f ` p ) e. A <-> p e. ( `' f " A ) ) )
71	70	dcbid 843	. . . . . . . . . . 11 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> (DECID ( f ` p ) e. A <-> DECID p e. ( `' f " A ) ) )
72	60, 71	mpbid 147	. . . . . . . . . 10 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ p e. ( 1 ... (♯ ` B ) ) ) -> DECID p e. ( `' f " A ) )
73	16	ad2antrr 488	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ -. p e. ( 1 ... (♯ ` B ) ) ) -> ( `' f " A ) C_ ( 1 ... (♯ ` B ) ) )
74		simpr 110	. . . . . . . . . . . . 13 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ -. p e. ( 1 ... (♯ ` B ) ) ) -> -. p e. ( 1 ... (♯ ` B ) ) )
75	73, 74	ssneldd 3228	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ -. p e. ( 1 ... (♯ ` B ) ) ) -> -. p e. ( `' f " A ) )
76	75	olcd 739	. . . . . . . . . . 11 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ -. p e. ( 1 ... (♯ ` B ) ) ) -> ( p e. ( `' f " A ) \/ -. p e. ( `' f " A ) ) )
77		df-dc 840	. . . . . . . . . . 11 |- (DECID p e. ( `' f " A ) <-> ( p e. ( `' f " A ) \/ -. p e. ( `' f " A ) ) )
78	76, 77	sylibr 134	. . . . . . . . . 10 |- ( ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) /\ -. p e. ( 1 ... (♯ ` B ) ) ) -> DECID p e. ( `' f " A ) )
79		eluzelz 9755	. . . . . . . . . . . . 13 |- ( p e. ( ZZ>= ` 1 ) -> p e. ZZ )
80	79	adantl 277	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> p e. ZZ )
81		1zzd 9496	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> 1 e. ZZ )
82	48	adantr 276	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> (♯ ` B ) e. NN )
83	82	nnzd 9591	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> (♯ ` B ) e. ZZ )
84		fzdcel 10265	. . . . . . . . . . . 12 |- ( ( p e. ZZ /\ 1 e. ZZ /\ (♯ ` B ) e. ZZ ) -> DECID p e. ( 1 ... (♯ ` B ) ) )
85	80, 81, 83, 84	syl3anc 1271	. . . . . . . . . . 11 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> DECID p e. ( 1 ... (♯ ` B ) ) )
86		exmiddc 841	. . . . . . . . . . 11 |- (DECID p e. ( 1 ... (♯ ` B ) ) -> ( p e. ( 1 ... (♯ ` B ) ) \/ -. p e. ( 1 ... (♯ ` B ) ) ) )
87	85, 86	syl 14	. . . . . . . . . 10 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> ( p e. ( 1 ... (♯ ` B ) ) \/ -. p e. ( 1 ... (♯ ` B ) ) ) )
88	72, 78, 87	mpjaodan 803	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> DECID p e. ( `' f " A ) )
89	88	ralrimiva 2603	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. p e. ( ZZ>= ` 1 )DECID p e. ( `' f " A ) )
90		1zzd 9496	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> 1 e. ZZ )
91		eldifi 3327	. . . . . . . . . . . 12 |- ( n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) -> n e. ( 1 ... (♯ ` B ) ) )
92	91, 20	sylan2 286	. . . . . . . . . . 11 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( f ` n ) e. B )
93		eldifn 3328	. . . . . . . . . . . . 13 |- ( n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) -> -. n e. ( `' f " A ) )
94	93	adantl 277	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> -. n e. ( `' f " A ) )
95	91	adantl 277	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> n e. ( 1 ... (♯ ` B ) ) )
96	19	adantr 276	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( n e. ( `' f " A ) <-> ( n e. ( 1 ... (♯ ` B ) ) /\ ( f ` n ) e. A ) ) )
97	95, 96	mpbirand 441	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( n e. ( `' f " A ) <-> ( f ` n ) e. A ) )
98	94, 97	mtbid 676	. . . . . . . . . . 11 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> -. ( f ` n ) e. A )
99	92, 98	eldifd 3208	. . . . . . . . . 10 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( f ` n ) e. ( B \ A ) )
100		difss 3331	. . . . . . . . . . . . 13 |- ( B \ A ) C_ B
101		resmpt 5059	. . . . . . . . . . . . 13 |- ( ( B \ A ) C_ B -> ( ( k e. B |-> C ) |` ( B \ A ) ) = ( k e. ( B \ A ) |-> C ) )
102	100, 101	ax-mp 5	. . . . . . . . . . . 12 |- ( ( k e. B |-> C ) |` ( B \ A ) ) = ( k e. ( B \ A ) |-> C )
103	102	fveq1i 5636	. . . . . . . . . . 11 |- ( ( ( k e. B |-> C ) |` ( B \ A ) ) ` ( f ` n ) ) = ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) )
104		fvres 5659	. . . . . . . . . . 11 |- ( ( f ` n ) e. ( B \ A ) -> ( ( ( k e. B |-> C ) |` ( B \ A ) ) ` ( f ` n ) ) = ( ( k e. B |-> C ) ` ( f ` n ) ) )
105	103, 104	eqtr3id 2276	. . . . . . . . . 10 |- ( ( f ` n ) e. ( B \ A ) -> ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) ) = ( ( k e. B |-> C ) ` ( f ` n ) ) )
106	99, 105	syl 14	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) ) = ( ( k e. B |-> C ) ` ( f ` n ) ) )
107		1ex 8164	. . . . . . . . . . . . . . 15 |- 1 e. _V
108	107	elsn2 3701	. . . . . . . . . . . . . 14 |- ( C e. { 1 } <-> C = 1 )
109	29, 108	sylibr 134	. . . . . . . . . . . . 13 |- ( ( ph /\ k e. ( B \ A ) ) -> C e. { 1 } )
110	109	fmpttd 5798	. . . . . . . . . . . 12 |- ( ph -> ( k e. ( B \ A ) |-> C ) : ( B \ A ) --> { 1 } )
111	110	ad2antrr 488	. . . . . . . . . . 11 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( k e. ( B \ A ) |-> C ) : ( B \ A ) --> { 1 } )
112	111, 99	ffvelcdmd 5779	. . . . . . . . . 10 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) ) e. { 1 } )
113		elsni 3685	. . . . . . . . . 10 |- ( ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) ) e. { 1 } -> ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) ) = 1 )
114	112, 113	syl 14	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) ) = 1 )
115	106, 114	eqtr3d 2264	. . . . . . . 8 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( ( 1 ... (♯ ` B ) ) \ ( `' f " A ) ) ) -> ( ( k e. B |-> C ) ` ( f ` n ) ) = 1 )
116		fzssuz 10290	. . . . . . . . 9 |- ( 1 ... (♯ ` B ) ) C_ ( ZZ>= ` 1 )
117	116	a1i 9	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) C_ ( ZZ>= ` 1 ) )
118	85	ralrimiva 2603	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. p e. ( ZZ>= ` 1 )DECID p e. ( 1 ... (♯ ` B ) ) )
119	16, 46, 52, 89, 90, 115, 117, 118	prodssdc 12140	. . . . . . 7 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ n e. ( `' f " A ) ( ( k e. B |-> C ) ` ( f ` n ) ) = prod_ n e. ( 1 ... (♯ ` B ) ) ( ( k e. B |-> C ) ` ( f ` n ) ) )
120	1	adantr 276	. . . . . . . . . . . 12 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A C_ B )
121	120	resmptd 5062	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( ( k e. B |-> C ) |` A ) = ( k e. A |-> C ) )
122	121	fveq1d 5637	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( ( ( k e. B |-> C ) |` A ) ` m ) = ( ( k e. A |-> C ) ` m ) )
123		fvres 5659	. . . . . . . . . 10 |- ( m e. A -> ( ( ( k e. B |-> C ) |` A ) ` m ) = ( ( k e. B |-> C ) ` m ) )
124	122, 123	sylan9req 2283	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ m e. A ) -> ( ( k e. A |-> C ) ` m ) = ( ( k e. B |-> C ) ` m ) )
125	124	prodeq2dv 12117	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ m e. A ( ( k e. A |-> C ) ` m ) = prod_ m e. A ( ( k e. B |-> C ) ` m ) )
126		fveq2 5635	. . . . . . . . 9 |- ( m = ( f ` n ) -> ( ( k e. B |-> C ) ` m ) = ( ( k e. B |-> C ) ` ( f ` n ) ) )
127		fprodss.4	. . . . . . . . . . . 12 |- ( ph -> B e. Fin )
128	127	adantr 276	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> B e. Fin )
129	36	adantr 276	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. j e. B DECID j e. A )
130		ssfidc 7122	. . . . . . . . . . 11 |- ( ( B e. Fin /\ A C_ B /\ A. j e. B DECID j e. A ) -> A e. Fin )
131	128, 120, 129, 130	syl3anc 1271	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A e. Fin )
132	120, 13, 131	preimaf1ofi 7141	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( `' f " A ) e. Fin )
133		f1of1 5579	. . . . . . . . . . . 12 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> f : ( 1 ... (♯ ` B ) ) -1-1-> B )
134	13, 133	syl 14	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> f : ( 1 ... (♯ ` B ) ) -1-1-> B )
135		f1ores 5595	. . . . . . . . . . 11 |- ( ( f : ( 1 ... (♯ ` B ) ) -1-1-> B /\ ( `' f " A ) C_ ( 1 ... (♯ ` B ) ) ) -> ( f |` ( `' f " A ) ) : ( `' f " A ) -1-1-onto-> ( f " ( `' f " A ) ) )
136	134, 16, 135	syl2anc 411	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( f |` ( `' f " A ) ) : ( `' f " A ) -1-1-onto-> ( f " ( `' f " A ) ) )
137		f1ofo 5587	. . . . . . . . . . . . 13 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> f : ( 1 ... (♯ ` B ) ) -onto-> B )
138	13, 137	syl 14	. . . . . . . . . . . 12 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> f : ( 1 ... (♯ ` B ) ) -onto-> B )
139		foimacnv 5598	. . . . . . . . . . . 12 |- ( ( f : ( 1 ... (♯ ` B ) ) -onto-> B /\ A C_ B ) -> ( f " ( `' f " A ) ) = A )
140	138, 120, 139	syl2anc 411	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( f " ( `' f " A ) ) = A )
141	140	f1oeq3d 5577	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( ( f |` ( `' f " A ) ) : ( `' f " A ) -1-1-onto-> ( f " ( `' f " A ) ) <-> ( f |` ( `' f " A ) ) : ( `' f " A ) -1-1-onto-> A ) )
142	136, 141	mpbid 147	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( f |` ( `' f " A ) ) : ( `' f " A ) -1-1-onto-> A )
143		fvres 5659	. . . . . . . . . 10 |- ( n e. ( `' f " A ) -> ( ( f |` ( `' f " A ) ) ` n ) = ( f ` n ) )
144	143	adantl 277	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( `' f " A ) ) -> ( ( f |` ( `' f " A ) ) ` n ) = ( f ` n ) )
145	120	sselda 3225	. . . . . . . . . 10 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ m e. A ) -> m e. B )
146	44	ffvelcdmda 5778	. . . . . . . . . 10 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ m e. B ) -> ( ( k e. B |-> C ) ` m ) e. CC )
147	145, 146	syldan 282	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ m e. A ) -> ( ( k e. B |-> C ) ` m ) e. CC )
148	126, 132, 142, 144, 147	fprodf1o 12139	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ m e. A ( ( k e. B |-> C ) ` m ) = prod_ n e. ( `' f " A ) ( ( k e. B |-> C ) ` ( f ` n ) ) )
149	125, 148	eqtrd 2262	. . . . . . 7 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ m e. A ( ( k e. A |-> C ) ` m ) = prod_ n e. ( `' f " A ) ( ( k e. B |-> C ) ` ( f ` n ) ) )
150	48	nnzd 9591	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. ZZ )
151	90, 150	fzfigd 10683	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) e. Fin )
152		eqidd 2230	. . . . . . . 8 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ n e. ( 1 ... (♯ ` B ) ) ) -> ( f ` n ) = ( f ` n ) )
153	126, 151, 13, 152, 146	fprodf1o 12139	. . . . . . 7 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ m e. B ( ( k e. B |-> C ) ` m ) = prod_ n e. ( 1 ... (♯ ` B ) ) ( ( k e. B |-> C ) ` ( f ` n ) ) )
154	119, 149, 153	3eqtr4d 2272	. . . . . 6 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ m e. A ( ( k e. A |-> C ) ` m ) = prod_ m e. B ( ( k e. B |-> C ) ` m ) )
155	25	ralrimiva 2603	. . . . . . . 8 |- ( ph -> A. k e. A C e. CC )
156	155	adantr 276	. . . . . . 7 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. k e. A C e. CC )
157		prodfct 12138	. . . . . . 7 |- ( A. k e. A C e. CC -> prod_ m e. A ( ( k e. A |-> C ) ` m ) = prod_ k e. A C )
158	156, 157	syl 14	. . . . . 6 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ m e. A ( ( k e. A |-> C ) ` m ) = prod_ k e. A C )
159	43	ralrimiva 2603	. . . . . . 7 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. k e. B C e. CC )
160		prodfct 12138	. . . . . . 7 |- ( A. k e. B C e. CC -> prod_ m e. B ( ( k e. B |-> C ) ` m ) = prod_ k e. B C )
161	159, 160	syl 14	. . . . . 6 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ m e. B ( ( k e. B |-> C ) ` m ) = prod_ k e. B C )
162	154, 158, 161	3eqtr3d 2270	. . . . 5 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> prod_ k e. A C = prod_ k e. B C )
163	162	expr 375	. . . 4 |- ( ( ph /\ (♯ ` B ) e. NN ) -> ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> prod_ k e. A C = prod_ k e. B C ) )
164	163	exlimdv 1865	. . 3 |- ( ( ph /\ (♯ ` B ) e. NN ) -> ( E. f f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> prod_ k e. A C = prod_ k e. B C ) )
165	164	expimpd 363	. 2 |- ( ph -> ( ( (♯ ` B ) e. NN /\ E. f f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) -> prod_ k e. A C = prod_ k e. B C ) )
166		fz1f1o 11926	. . 3 |- ( B e. Fin -> ( B = (/) \/ ( (♯ ` B ) e. NN /\ E. f f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) )
167	127, 166	syl 14	. 2 |- ( ph -> ( B = (/) \/ ( (♯ ` B ) e. NN /\ E. f f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) )
168	11, 165, 167	mpjaod 723	1 |- ( ph -> prod_ k e. A C = prod_ k e. B C )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 713  DECID wdc 839   = wceq 1395   E.wex 1538   e. wcel 2200   A.wral 2508   \ cdif 3195   C_ wss 3198   (/)c0 3492   {csn 3667   |-> cmpt 4148   `'ccnv 4722   |` cres 4725   "cima 4726   Fn wfn 5319   -->wf 5320   -1-1->wf1 5321   -onto->wfo 5322   -1-1-onto->wf1o 5323   ` cfv 5324  (class class class)co 6013   Fincfn 6904   CCcc 8020   1c1 8023   NNcn 9133   ZZcz 9469   ZZ>=cuz 9745   ...cfz 10233  ♯chash 11027   prod_cprod 12101

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 617  ax-in2 618  ax-io 714  ax-5 1493  ax-7 1494  ax-gen 1495  ax-ie1 1539  ax-ie2 1540  ax-8 1550  ax-10 1551  ax-11 1552  ax-i12 1553  ax-bndl 1555  ax-4 1556  ax-17 1572  ax-i9 1576  ax-ial 1580  ax-i5r 1581  ax-13 2202  ax-14 2203  ax-ext 2211  ax-coll 4202  ax-sep 4205  ax-nul 4213  ax-pow 4262  ax-pr 4297  ax-un 4528  ax-setind 4633  ax-iinf 4684  ax-cnex 8113  ax-resscn 8114  ax-1cn 8115  ax-1re 8116  ax-icn 8117  ax-addcl 8118  ax-addrcl 8119  ax-mulcl 8120  ax-mulrcl 8121  ax-addcom 8122  ax-mulcom 8123  ax-addass 8124  ax-mulass 8125  ax-distr 8126  ax-i2m1 8127  ax-0lt1 8128  ax-1rid 8129  ax-0id 8130  ax-rnegex 8131  ax-precex 8132  ax-cnre 8133  ax-pre-ltirr 8134  ax-pre-ltwlin 8135  ax-pre-lttrn 8136  ax-pre-apti 8137  ax-pre-ltadd 8138  ax-pre-mulgt0 8139  ax-pre-mulext 8140  ax-arch 8141  ax-caucvg 8142

This theorem depends on definitions:  df-bi 117  df-dc 840  df-3or 1003  df-3an 1004  df-tru 1398  df-fal 1401  df-nf 1507  df-sb 1809  df-eu 2080  df-mo 2081  df-clab 2216  df-cleq 2222  df-clel 2225  df-nfc 2361  df-ne 2401  df-nel 2496  df-ral 2513  df-rex 2514  df-reu 2515  df-rmo 2516  df-rab 2517  df-v 2802  df-sbc 3030  df-csb 3126  df-dif 3200  df-un 3202  df-in 3204  df-ss 3211  df-nul 3493  df-if 3604  df-pw 3652  df-sn 3673  df-pr 3674  df-op 3676  df-uni 3892  df-int 3927  df-iun 3970  df-br 4087  df-opab 4149  df-mpt 4150  df-tr 4186  df-id 4388  df-po 4391  df-iso 4392  df-iord 4461  df-on 4463  df-ilim 4464  df-suc 4466  df-iom 4687  df-xp 4729  df-rel 4730  df-cnv 4731  df-co 4732  df-dm 4733  df-rn 4734  df-res 4735  df-ima 4736  df-iota 5284  df-fun 5326  df-fn 5327  df-f 5328  df-f1 5329  df-fo 5330  df-f1o 5331  df-fv 5332  df-isom 5333  df-riota 5966  df-ov 6016  df-oprab 6017  df-mpo 6018  df-1st 6298  df-2nd 6299  df-recs 6466  df-irdg 6531  df-frec 6552  df-1o 6577  df-oadd 6581  df-er 6697  df-en 6905  df-dom 6906  df-fin 6907  df-pnf 8206  df-mnf 8207  df-xr 8208  df-ltxr 8209  df-le 8210  df-sub 8342  df-neg 8343  df-reap 8745  df-ap 8752  df-div 8843  df-inn 9134  df-2 9192  df-3 9193  df-4 9194  df-n0 9393  df-z 9470  df-uz 9746  df-q 9844  df-rp 9879  df-fz 10234  df-fzo 10368  df-seqfrec 10700  df-exp 10791  df-ihash 11028  df-cj 11393  df-re 11394  df-im 11395  df-rsqrt 11549  df-abs 11550  df-clim 11830  df-proddc 12102

This theorem is referenced by:  fprodsplitdc  12147