Theorem fprodssdc 11597

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 3179	. . . . 5 |- ( B = (/) -> ( A C_ B <-> A C_ (/) ) )
3		ss0 3463	. . . . 5 |- ( A C_ (/) -> A = (/) )
4	2, 3	syl6bi 163	. . . 4 |- ( B = (/) -> ( A C_ B -> A = (/) ) )
5		prodeq1 11560	. . . . . 6 |- ( A = (/) -> prod_ k e. A C = prod_ k e. (/) C )
6		prodeq1 11560	. . . . . . 7 |- ( B = (/) -> prod_ k e. B C = prod_ k e. (/) C )
7	6	eqcomd 2183	. . . . . 6 |- ( B = (/) -> prod_ k e. (/) C = prod_ k e. B C )
8	5, 7	sylan9eq 2230	. . . . 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 4991	. . . . . . . . 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 5461	. . . . . . . . . 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 5380	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( `' f " A ) C_ ( 1 ... (♯ ` B ) ) )
17		f1ofn 5462	. . . . . . . . . . . 12 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> f Fn ( 1 ... (♯ ` B ) ) )
18		elpreima 5635	. . . . . . . . . . . 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 5651	. . . . . . . . . . . . 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 3138	. . . . . . . . . . . . . . 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 7903	. . . . . . . . . . . . . . . 16 |- 1 e. CC
31	29, 30	eqeltrdi 2268	. . . . . . . . . . . . . . 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 2240	. . . . . . . . . . . . . . . 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 2846	. . . . . . . . . . . . . 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 5671	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( k e. B |-> C ) : B --> CC )
45	44	ffvelcdmda 5651	. . . . . . . . 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 2177	. . . . . . . . 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 9562	. . . . . . . . . 10 |- NN = ( ZZ>= ` 1 )
50	48, 49	eleqtrdi 2270	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. ( ZZ>= ` 1 ) )
51		ssidd 3176	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) C_ ( 1 ... (♯ ` B ) ) )
52	47, 50, 51	fprodntrivap 11591	. . . . . . . 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 2240	. . . . . . . . . . . . 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 5652	. . . . . . . . . . . 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 2846	. . . . . . . . . . 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 5474	. . . . . . . . . . . . . . 15 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> `' f : B -1-1-onto-> ( 1 ... (♯ ` B ) ) )
62		f1of1 5460	. . . . . . . . . . . . . . 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 5773	. . . . . . . . . . . . . 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 5777	. . . . . . . . . . . . . . 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 2246	. . . . . . . . . . . . 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 3158	. . . . . . . . . . . 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 9536	. . . . . . . . . . . . 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 9279	. . . . . . . . . . . 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 9373	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> (♯ ` B ) e. ZZ )
84		fzdcel 10039	. . . . . . . . . . . 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 2550	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. p e. ( ZZ>= ` 1 )DECID p e. ( `' f " A ) )
90		1zzd 9279	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> 1 e. ZZ )
91		eldifi 3257	. . . . . . . . . . . 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 3258	. . . . . . . . . . . . 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 3139	. . . . . . . . . 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 3261	. . . . . . . . . . . . 13 |- ( B \ A ) C_ B
101		resmpt 4955	. . . . . . . . . . . . 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 5516	. . . . . . . . . . 11 |- ( ( ( k e. B |-> C ) |` ( B \ A ) ) ` ( f ` n ) ) = ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) )
104		fvres 5539	. . . . . . . . . . 11 |- ( ( f ` n ) e. ( B \ A ) -> ( ( ( k e. B |-> C ) |` ( B \ A ) ) ` ( f ` n ) ) = ( ( k e. B |-> C ) ` ( f ` n ) ) )
105	103, 104	eqtr3id 2224	. . . . . . . . . 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 7951	. . . . . . . . . . . . . . 15 |- 1 e. _V
108	107	elsn2 3626	. . . . . . . . . . . . . 14 |- ( C e. { 1 } <-> C = 1 )
109	29, 108	sylibr 134	. . . . . . . . . . . . 13 |- ( ( ph /\ k e. ( B \ A ) ) -> C e. { 1 } )
110	109	fmpttd 5671	. . . . . . . . . . . 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 5652	. . . . . . . . . 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 3610	. . . . . . . . . 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 2212	. . . . . . . 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 10064	. . . . . . . . 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 2550	. . . . . . . 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 11596	. . . . . . 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 4958	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( ( k e. B |-> C ) |` A ) = ( k e. A |-> C ) )
122	121	fveq1d 5517	. . . . . . . . . 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 5539	. . . . . . . . . 10 |- ( m e. A -> ( ( ( k e. B |-> C ) |` A ) ` m ) = ( ( k e. B |-> C ) ` m ) )
124	122, 123	sylan9req 2231	. . . . . . . . 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 11573	. . . . . . . 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 5515	. . . . . . . . 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 6933	. . . . . . . . . . 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 6949	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( `' f " A ) e. Fin )
133		f1of1 5460	. . . . . . . . . . . 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 5476	. . . . . . . . . . 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 5468	. . . . . . . . . . . . 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 5479	. . . . . . . . . . . 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 5458	. . . . . . . . . 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 5539	. . . . . . . . . 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 3155	. . . . . . . . . 10 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ m e. A ) -> m e. B )
146	44	ffvelcdmda 5651	. . . . . . . . . 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 11595	. . . . . . . 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 2210	. . . . . . 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 9373	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. ZZ )
151	90, 150	fzfigd 10430	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) e. Fin )
152		eqidd 2178	. . . . . . . 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 11595	. . . . . . 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 2220	. . . . . 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 2550	. . . . . . . 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 11594	. . . . . . 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 2550	. . . . . . 7 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. k e. B C e. CC )
160		prodfct 11594	. . . . . . 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 2218	. . . . 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 1819	. . 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 11382	. . 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 1492   e. wcel 2148   A.wral 2455   \ cdif 3126   C_ wss 3129   (/)c0 3422   {csn 3592   |-> cmpt 4064   `'ccnv 4625   |` cres 4628   "cima 4629   Fn wfn 5211   -->wf 5212   -1-1->wf1 5213   -onto->wfo 5214   -1-1-onto->wf1o 5215   ` cfv 5216  (class class class)co 5874   Fincfn 6739   CCcc 7808   1c1 7811   NNcn 8918   ZZcz 9252   ZZ>=cuz 9527   ...cfz 10007  ♯chash 10754   prod_cprod 11557

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 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-coll 4118  ax-sep 4121  ax-nul 4129  ax-pow 4174  ax-pr 4209  ax-un 4433  ax-setind 4536  ax-iinf 4587  ax-cnex 7901  ax-resscn 7902  ax-1cn 7903  ax-1re 7904  ax-icn 7905  ax-addcl 7906  ax-addrcl 7907  ax-mulcl 7908  ax-mulrcl 7909  ax-addcom 7910  ax-mulcom 7911  ax-addass 7912  ax-mulass 7913  ax-distr 7914  ax-i2m1 7915  ax-0lt1 7916  ax-1rid 7917  ax-0id 7918  ax-rnegex 7919  ax-precex 7920  ax-cnre 7921  ax-pre-ltirr 7922  ax-pre-ltwlin 7923  ax-pre-lttrn 7924  ax-pre-apti 7925  ax-pre-ltadd 7926  ax-pre-mulgt0 7927  ax-pre-mulext 7928  ax-arch 7929  ax-caucvg 7930

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 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2739  df-sbc 2963  df-csb 3058  df-dif 3131  df-un 3133  df-in 3135  df-ss 3142  df-nul 3423  df-if 3535  df-pw 3577  df-sn 3598  df-pr 3599  df-op 3601  df-uni 3810  df-int 3845  df-iun 3888  df-br 4004  df-opab 4065  df-mpt 4066  df-tr 4102  df-id 4293  df-po 4296  df-iso 4297  df-iord 4366  df-on 4368  df-ilim 4369  df-suc 4371  df-iom 4590  df-xp 4632  df-rel 4633  df-cnv 4634  df-co 4635  df-dm 4636  df-rn 4637  df-res 4638  df-ima 4639  df-iota 5178  df-fun 5218  df-fn 5219  df-f 5220  df-f1 5221  df-fo 5222  df-f1o 5223  df-fv 5224  df-isom 5225  df-riota 5830  df-ov 5877  df-oprab 5878  df-mpo 5879  df-1st 6140  df-2nd 6141  df-recs 6305  df-irdg 6370  df-frec 6391  df-1o 6416  df-oadd 6420  df-er 6534  df-en 6740  df-dom 6741  df-fin 6742  df-pnf 7993  df-mnf 7994  df-xr 7995  df-ltxr 7996  df-le 7997  df-sub 8129  df-neg 8130  df-reap 8531  df-ap 8538  df-div 8629  df-inn 8919  df-2 8977  df-3 8978  df-4 8979  df-n0 9176  df-z 9253  df-uz 9528  df-q 9619  df-rp 9653  df-fz 10008  df-fzo 10142  df-seqfrec 10445  df-exp 10519  df-ihash 10755  df-cj 10850  df-re 10851  df-im 10852  df-rsqrt 11006  df-abs 11007  df-clim 11286  df-proddc 11558

This theorem is referenced by:  fprodsplitdc  11603