Theorem fprodssdc 11564

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 3177	. . . . 5 |- ( B = (/) -> ( A C_ B <-> A C_ (/) ) )
3		ss0 3461	. . . . 5 |- ( A C_ (/) -> A = (/) )
4	2, 3	syl6bi 163	. . . 4 |- ( B = (/) -> ( A C_ B -> A = (/) ) )
5		prodeq1 11527	. . . . . 6 |- ( A = (/) -> prod_ k e. A C = prod_ k e. (/) C )
6		prodeq1 11527	. . . . . . 7 |- ( B = (/) -> prod_ k e. B C = prod_ k e. (/) C )
7	6	eqcomd 2181	. . . . . 6 |- ( B = (/) -> prod_ k e. (/) C = prod_ k e. B C )
8	5, 7	sylan9eq 2228	. . . . 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 4984	. . . . . . . . 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 5453	. . . . . . . . . 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 5372	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( `' f " A ) C_ ( 1 ... (♯ ` B ) ) )
17		f1ofn 5454	. . . . . . . . . . . 12 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> f Fn ( 1 ... (♯ ` B ) ) )
18		elpreima 5627	. . . . . . . . . . . 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 5643	. . . . . . . . . . . . 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 3136	. . . . . . . . . . . . . . 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 7879	. . . . . . . . . . . . . . . 16 |- 1 e. CC
31	29, 30	eqeltrdi 2266	. . . . . . . . . . . . . . 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 2238	. . . . . . . . . . . . . . . 16 |- ( j = k -> ( j e. A <-> k e. A ) )
35	34	dcbid 838	. . . . . . . . . . . . . . 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 2844	. . . . . . . . . . . . . 14 |- ( ( ph /\ k e. B ) -> DECID k e. A )
40		exmiddc 836	. . . . . . . . . . . . . 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 718	. . . . . . . . . . . 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 5663	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( k e. B |-> C ) : B --> CC )
45	44	ffvelcdmda 5643	. . . . . . . . 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 2175	. . . . . . . . 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 9534	. . . . . . . . . 10 |- NN = ( ZZ>= ` 1 )
50	48, 49	eleqtrdi 2268	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. ( ZZ>= ` 1 ) )
51		ssidd 3174	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) C_ ( 1 ... (♯ ` B ) ) )
52	47, 50, 51	fprodntrivap 11558	. . . . . . . 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 2238	. . . . . . . . . . . . 13 |- ( j = ( f ` p ) -> ( j e. A <-> ( f ` p ) e. A ) )
54	53	dcbid 838	. . . . . . . . . . . 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 5644	. . . . . . . . . . . 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 2844	. . . . . . . . . . 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 5466	. . . . . . . . . . . . . . 15 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> `' f : B -1-1-onto-> ( 1 ... (♯ ` B ) ) )
62		f1of1 5452	. . . . . . . . . . . . . . 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 5764	. . . . . . . . . . . . . 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 1238	. . . . . . . . . . . . 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 5768	. . . . . . . . . . . . . . 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 2244	. . . . . . . . . . . . 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 838	. . . . . . . . . . 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 3156	. . . . . . . . . . . 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 734	. . . . . . . . . . 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 835	. . . . . . . . . . 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 9508	. . . . . . . . . . . . 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 9251	. . . . . . . . . . . 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 9345	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> (♯ ` B ) e. ZZ )
84		fzdcel 10008	. . . . . . . . . . . 12 |- ( ( p e. ZZ /\ 1 e. ZZ /\ (♯ ` B ) e. ZZ ) -> DECID p e. ( 1 ... (♯ ` B ) ) )
85	80, 81, 83, 84	syl3anc 1238	. . . . . . . . . . 11 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> DECID p e. ( 1 ... (♯ ` B ) ) )
86		exmiddc 836	. . . . . . . . . . 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 798	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> DECID p e. ( `' f " A ) )
89	88	ralrimiva 2548	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. p e. ( ZZ>= ` 1 )DECID p e. ( `' f " A ) )
90		1zzd 9251	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> 1 e. ZZ )
91		eldifi 3255	. . . . . . . . . . . 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 3256	. . . . . . . . . . . . 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 672	. . . . . . . . . . 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 3137	. . . . . . . . . 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 3259	. . . . . . . . . . . . 13 |- ( B \ A ) C_ B
101		resmpt 4948	. . . . . . . . . . . . 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 5508	. . . . . . . . . . 11 |- ( ( ( k e. B |-> C ) |` ( B \ A ) ) ` ( f ` n ) ) = ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) )
104		fvres 5531	. . . . . . . . . . 11 |- ( ( f ` n ) e. ( B \ A ) -> ( ( ( k e. B |-> C ) |` ( B \ A ) ) ` ( f ` n ) ) = ( ( k e. B |-> C ) ` ( f ` n ) ) )
105	103, 104	eqtr3id 2222	. . . . . . . . . 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 7927	. . . . . . . . . . . . . . 15 |- 1 e. _V
108	107	elsn2 3623	. . . . . . . . . . . . . 14 |- ( C e. { 1 } <-> C = 1 )
109	29, 108	sylibr 134	. . . . . . . . . . . . 13 |- ( ( ph /\ k e. ( B \ A ) ) -> C e. { 1 } )
110	109	fmpttd 5663	. . . . . . . . . . . 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 5644	. . . . . . . . . 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 3607	. . . . . . . . . 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 2210	. . . . . . . 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 10033	. . . . . . . . 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 2548	. . . . . . . 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 11563	. . . . . . 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 4951	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( ( k e. B |-> C ) |` A ) = ( k e. A |-> C ) )
122	121	fveq1d 5509	. . . . . . . . . 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 5531	. . . . . . . . . 10 |- ( m e. A -> ( ( ( k e. B |-> C ) |` A ) ` m ) = ( ( k e. B |-> C ) ` m ) )
124	122, 123	sylan9req 2229	. . . . . . . . 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 11540	. . . . . . . 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 5507	. . . . . . . . 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 6924	. . . . . . . . . . 11 |- ( ( B e. Fin /\ A C_ B /\ A. j e. B DECID j e. A ) -> A e. Fin )
131	128, 120, 129, 130	syl3anc 1238	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A e. Fin )
132	120, 13, 131	preimaf1ofi 6940	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( `' f " A ) e. Fin )
133		f1of1 5452	. . . . . . . . . . . 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 5468	. . . . . . . . . . 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 5460	. . . . . . . . . . . . 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 5471	. . . . . . . . . . . 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 5450	. . . . . . . . . 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 5531	. . . . . . . . . 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 3153	. . . . . . . . . 10 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ m e. A ) -> m e. B )
146	44	ffvelcdmda 5643	. . . . . . . . . 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 11562	. . . . . . . 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 2208	. . . . . . 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 9345	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. ZZ )
151	90, 150	fzfigd 10399	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) e. Fin )
152		eqidd 2176	. . . . . . . 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 11562	. . . . . . 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 2218	. . . . . 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 2548	. . . . . . . 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 11561	. . . . . . 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 2548	. . . . . . 7 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. k e. B C e. CC )
160		prodfct 11561	. . . . . . 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 2216	. . . . 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 1817	. . 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 11349	. . 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 718	1 |- ( ph -> prod_ k e. A C = prod_ k e. B C )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 708  DECID wdc 834   = wceq 1353   E.wex 1490   e. wcel 2146   A.wral 2453   \ cdif 3124   C_ wss 3127   (/)c0 3420   {csn 3589   |-> cmpt 4059   `'ccnv 4619   |` cres 4622   "cima 4623   Fn wfn 5203   -->wf 5204   -1-1->wf1 5205   -onto->wfo 5206   -1-1-onto->wf1o 5207   ` cfv 5208  (class class class)co 5865   Fincfn 6730   CCcc 7784   1c1 7787   NNcn 8890   ZZcz 9224   ZZ>=cuz 9499   ...cfz 9977  ♯chash 10721   prod_cprod 11524

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 614  ax-in2 615  ax-io 709  ax-5 1445  ax-7 1446  ax-gen 1447  ax-ie1 1491  ax-ie2 1492  ax-8 1502  ax-10 1503  ax-11 1504  ax-i12 1505  ax-bndl 1507  ax-4 1508  ax-17 1524  ax-i9 1528  ax-ial 1532  ax-i5r 1533  ax-13 2148  ax-14 2149  ax-ext 2157  ax-coll 4113  ax-sep 4116  ax-nul 4124  ax-pow 4169  ax-pr 4203  ax-un 4427  ax-setind 4530  ax-iinf 4581  ax-cnex 7877  ax-resscn 7878  ax-1cn 7879  ax-1re 7880  ax-icn 7881  ax-addcl 7882  ax-addrcl 7883  ax-mulcl 7884  ax-mulrcl 7885  ax-addcom 7886  ax-mulcom 7887  ax-addass 7888  ax-mulass 7889  ax-distr 7890  ax-i2m1 7891  ax-0lt1 7892  ax-1rid 7893  ax-0id 7894  ax-rnegex 7895  ax-precex 7896  ax-cnre 7897  ax-pre-ltirr 7898  ax-pre-ltwlin 7899  ax-pre-lttrn 7900  ax-pre-apti 7901  ax-pre-ltadd 7902  ax-pre-mulgt0 7903  ax-pre-mulext 7904  ax-arch 7905  ax-caucvg 7906

This theorem depends on definitions:  df-bi 117  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1459  df-sb 1761  df-eu 2027  df-mo 2028  df-clab 2162  df-cleq 2168  df-clel 2171  df-nfc 2306  df-ne 2346  df-nel 2441  df-ral 2458  df-rex 2459  df-reu 2460  df-rmo 2461  df-rab 2462  df-v 2737  df-sbc 2961  df-csb 3056  df-dif 3129  df-un 3131  df-in 3133  df-ss 3140  df-nul 3421  df-if 3533  df-pw 3574  df-sn 3595  df-pr 3596  df-op 3598  df-uni 3806  df-int 3841  df-iun 3884  df-br 3999  df-opab 4060  df-mpt 4061  df-tr 4097  df-id 4287  df-po 4290  df-iso 4291  df-iord 4360  df-on 4362  df-ilim 4363  df-suc 4365  df-iom 4584  df-xp 4626  df-rel 4627  df-cnv 4628  df-co 4629  df-dm 4630  df-rn 4631  df-res 4632  df-ima 4633  df-iota 5170  df-fun 5210  df-fn 5211  df-f 5212  df-f1 5213  df-fo 5214  df-f1o 5215  df-fv 5216  df-isom 5217  df-riota 5821  df-ov 5868  df-oprab 5869  df-mpo 5870  df-1st 6131  df-2nd 6132  df-recs 6296  df-irdg 6361  df-frec 6382  df-1o 6407  df-oadd 6411  df-er 6525  df-en 6731  df-dom 6732  df-fin 6733  df-pnf 7968  df-mnf 7969  df-xr 7970  df-ltxr 7971  df-le 7972  df-sub 8104  df-neg 8105  df-reap 8506  df-ap 8513  df-div 8602  df-inn 8891  df-2 8949  df-3 8950  df-4 8951  df-n0 9148  df-z 9225  df-uz 9500  df-q 9591  df-rp 9623  df-fz 9978  df-fzo 10111  df-seqfrec 10414  df-exp 10488  df-ihash 10722  df-cj 10817  df-re 10818  df-im 10819  df-rsqrt 10973  df-abs 10974  df-clim 11253  df-proddc 11525

This theorem is referenced by:  fprodsplitdc  11570