Theorem fprodssdc 11986

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 3221	. . . . 5 |- ( B = (/) -> ( A C_ B <-> A C_ (/) ) )
3		ss0 3505	. . . . 5 |- ( A C_ (/) -> A = (/) )
4	2, 3	biimtrdi 163	. . . 4 |- ( B = (/) -> ( A C_ B -> A = (/) ) )
5		prodeq1 11949	. . . . . 6 |- ( A = (/) -> prod_ k e. A C = prod_ k e. (/) C )
6		prodeq1 11949	. . . . . . 7 |- ( B = (/) -> prod_ k e. B C = prod_ k e. (/) C )
7	6	eqcomd 2212	. . . . . 6 |- ( B = (/) -> prod_ k e. (/) C = prod_ k e. B C )
8	5, 7	sylan9eq 2259	. . . . 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 5059	. . . . . . . . 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 5539	. . . . . . . . . 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 5455	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( `' f " A ) C_ ( 1 ... (♯ ` B ) ) )
17		f1ofn 5540	. . . . . . . . . . . 12 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> f Fn ( 1 ... (♯ ` B ) ) )
18		elpreima 5717	. . . . . . . . . . . 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 5733	. . . . . . . . . . . . 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 3179	. . . . . . . . . . . . . . 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 8048	. . . . . . . . . . . . . . . 16 |- 1 e. CC
31	29, 30	eqeltrdi 2297	. . . . . . . . . . . . . . 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 2269	. . . . . . . . . . . . . . . 16 |- ( j = k -> ( j e. A <-> k e. A ) )
35	34	dcbid 840	. . . . . . . . . . . . . . 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 2886	. . . . . . . . . . . . . 14 |- ( ( ph /\ k e. B ) -> DECID k e. A )
40		exmiddc 838	. . . . . . . . . . . . . 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 720	. . . . . . . . . . . 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 5753	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( k e. B |-> C ) : B --> CC )
45	44	ffvelcdmda 5733	. . . . . . . . 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 2206	. . . . . . . . 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 9714	. . . . . . . . . 10 |- NN = ( ZZ>= ` 1 )
50	48, 49	eleqtrdi 2299	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. ( ZZ>= ` 1 ) )
51		ssidd 3218	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) C_ ( 1 ... (♯ ` B ) ) )
52	47, 50, 51	fprodntrivap 11980	. . . . . . . 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 2269	. . . . . . . . . . . . 13 |- ( j = ( f ` p ) -> ( j e. A <-> ( f ` p ) e. A ) )
54	53	dcbid 840	. . . . . . . . . . . 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 5734	. . . . . . . . . . . 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 2886	. . . . . . . . . . 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 5552	. . . . . . . . . . . . . . 15 |- ( f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B -> `' f : B -1-1-onto-> ( 1 ... (♯ ` B ) ) )
62		f1of1 5538	. . . . . . . . . . . . . . 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 5860	. . . . . . . . . . . . . 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 1250	. . . . . . . . . . . . 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 5864	. . . . . . . . . . . . . . 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 2275	. . . . . . . . . . . . 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 840	. . . . . . . . . . 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 3200	. . . . . . . . . . . 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 736	. . . . . . . . . . 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 837	. . . . . . . . . . 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 9687	. . . . . . . . . . . . 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 9429	. . . . . . . . . . . 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 9524	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> (♯ ` B ) e. ZZ )
84		fzdcel 10192	. . . . . . . . . . . 12 |- ( ( p e. ZZ /\ 1 e. ZZ /\ (♯ ` B ) e. ZZ ) -> DECID p e. ( 1 ... (♯ ` B ) ) )
85	80, 81, 83, 84	syl3anc 1250	. . . . . . . . . . 11 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> DECID p e. ( 1 ... (♯ ` B ) ) )
86		exmiddc 838	. . . . . . . . . . 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 800	. . . . . . . . 9 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ p e. ( ZZ>= ` 1 ) ) -> DECID p e. ( `' f " A ) )
89	88	ralrimiva 2580	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. p e. ( ZZ>= ` 1 )DECID p e. ( `' f " A ) )
90		1zzd 9429	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> 1 e. ZZ )
91		eldifi 3299	. . . . . . . . . . . 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 3300	. . . . . . . . . . . . 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 674	. . . . . . . . . . 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 3180	. . . . . . . . . 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 3303	. . . . . . . . . . . . 13 |- ( B \ A ) C_ B
101		resmpt 5021	. . . . . . . . . . . . 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 5595	. . . . . . . . . . 11 |- ( ( ( k e. B |-> C ) |` ( B \ A ) ) ` ( f ` n ) ) = ( ( k e. ( B \ A ) |-> C ) ` ( f ` n ) )
104		fvres 5618	. . . . . . . . . . 11 |- ( ( f ` n ) e. ( B \ A ) -> ( ( ( k e. B |-> C ) |` ( B \ A ) ) ` ( f ` n ) ) = ( ( k e. B |-> C ) ` ( f ` n ) ) )
105	103, 104	eqtr3id 2253	. . . . . . . . . 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 8097	. . . . . . . . . . . . . . 15 |- 1 e. _V
108	107	elsn2 3672	. . . . . . . . . . . . . 14 |- ( C e. { 1 } <-> C = 1 )
109	29, 108	sylibr 134	. . . . . . . . . . . . 13 |- ( ( ph /\ k e. ( B \ A ) ) -> C e. { 1 } )
110	109	fmpttd 5753	. . . . . . . . . . . 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 5734	. . . . . . . . . 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 3656	. . . . . . . . . 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 2241	. . . . . . . 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 10217	. . . . . . . . 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 2580	. . . . . . . 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 11985	. . . . . . 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 5024	. . . . . . . . . . 11 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( ( k e. B |-> C ) |` A ) = ( k e. A |-> C ) )
122	121	fveq1d 5596	. . . . . . . . . 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 5618	. . . . . . . . . 10 |- ( m e. A -> ( ( ( k e. B |-> C ) |` A ) ` m ) = ( ( k e. B |-> C ) ` m ) )
124	122, 123	sylan9req 2260	. . . . . . . . 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 11962	. . . . . . . 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 5594	. . . . . . . . 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 7055	. . . . . . . . . . 11 |- ( ( B e. Fin /\ A C_ B /\ A. j e. B DECID j e. A ) -> A e. Fin )
131	128, 120, 129, 130	syl3anc 1250	. . . . . . . . . 10 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A e. Fin )
132	120, 13, 131	preimaf1ofi 7074	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( `' f " A ) e. Fin )
133		f1of1 5538	. . . . . . . . . . . 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 5554	. . . . . . . . . . 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 5546	. . . . . . . . . . . . 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 5557	. . . . . . . . . . . 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 5536	. . . . . . . . . 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 5618	. . . . . . . . . 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 3197	. . . . . . . . . 10 |- ( ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) /\ m e. A ) -> m e. B )
146	44	ffvelcdmda 5733	. . . . . . . . . 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 11984	. . . . . . . 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 2239	. . . . . . 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 9524	. . . . . . . . 9 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> (♯ ` B ) e. ZZ )
151	90, 150	fzfigd 10608	. . . . . . . 8 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> ( 1 ... (♯ ` B ) ) e. Fin )
152		eqidd 2207	. . . . . . . 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 11984	. . . . . . 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 2249	. . . . . 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 2580	. . . . . . . 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 11983	. . . . . . 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 2580	. . . . . . 7 |- ( ( ph /\ ( (♯ ` B ) e. NN /\ f : ( 1 ... (♯ ` B ) ) -1-1-onto-> B ) ) -> A. k e. B C e. CC )
160		prodfct 11983	. . . . . . 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 2247	. . . . 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 1843	. . 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 11771	. . 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 720	1 |- ( ph -> prod_ k e. A C = prod_ k e. B C )

Syntax hints:   -. wn 3   -> wi 4   /\ wa 104   <-> wb 105   \/ wo 710  DECID wdc 836   = wceq 1373   E.wex 1516   e. wcel 2177   A.wral 2485   \ cdif 3167   C_ wss 3170   (/)c0 3464   {csn 3638   |-> cmpt 4116   `'ccnv 4687   |` cres 4690   "cima 4691   Fn wfn 5280   -->wf 5281   -1-1->wf1 5282   -onto->wfo 5283   -1-1-onto->wf1o 5284   ` cfv 5285  (class class class)co 5962   Fincfn 6845   CCcc 7953   1c1 7956   NNcn 9066   ZZcz 9402   ZZ>=cuz 9678   ...cfz 10160  ♯chash 10952   prod_cprod 11946

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 615  ax-in2 616  ax-io 711  ax-5 1471  ax-7 1472  ax-gen 1473  ax-ie1 1517  ax-ie2 1518  ax-8 1528  ax-10 1529  ax-11 1530  ax-i12 1531  ax-bndl 1533  ax-4 1534  ax-17 1550  ax-i9 1554  ax-ial 1558  ax-i5r 1559  ax-13 2179  ax-14 2180  ax-ext 2188  ax-coll 4170  ax-sep 4173  ax-nul 4181  ax-pow 4229  ax-pr 4264  ax-un 4493  ax-setind 4598  ax-iinf 4649  ax-cnex 8046  ax-resscn 8047  ax-1cn 8048  ax-1re 8049  ax-icn 8050  ax-addcl 8051  ax-addrcl 8052  ax-mulcl 8053  ax-mulrcl 8054  ax-addcom 8055  ax-mulcom 8056  ax-addass 8057  ax-mulass 8058  ax-distr 8059  ax-i2m1 8060  ax-0lt1 8061  ax-1rid 8062  ax-0id 8063  ax-rnegex 8064  ax-precex 8065  ax-cnre 8066  ax-pre-ltirr 8067  ax-pre-ltwlin 8068  ax-pre-lttrn 8069  ax-pre-apti 8070  ax-pre-ltadd 8071  ax-pre-mulgt0 8072  ax-pre-mulext 8073  ax-arch 8074  ax-caucvg 8075

This theorem depends on definitions:  df-bi 117  df-dc 837  df-3or 982  df-3an 983  df-tru 1376  df-fal 1379  df-nf 1485  df-sb 1787  df-eu 2058  df-mo 2059  df-clab 2193  df-cleq 2199  df-clel 2202  df-nfc 2338  df-ne 2378  df-nel 2473  df-ral 2490  df-rex 2491  df-reu 2492  df-rmo 2493  df-rab 2494  df-v 2775  df-sbc 3003  df-csb 3098  df-dif 3172  df-un 3174  df-in 3176  df-ss 3183  df-nul 3465  df-if 3576  df-pw 3623  df-sn 3644  df-pr 3645  df-op 3647  df-uni 3860  df-int 3895  df-iun 3938  df-br 4055  df-opab 4117  df-mpt 4118  df-tr 4154  df-id 4353  df-po 4356  df-iso 4357  df-iord 4426  df-on 4428  df-ilim 4429  df-suc 4431  df-iom 4652  df-xp 4694  df-rel 4695  df-cnv 4696  df-co 4697  df-dm 4698  df-rn 4699  df-res 4700  df-ima 4701  df-iota 5246  df-fun 5287  df-fn 5288  df-f 5289  df-f1 5290  df-fo 5291  df-f1o 5292  df-fv 5293  df-isom 5294  df-riota 5917  df-ov 5965  df-oprab 5966  df-mpo 5967  df-1st 6244  df-2nd 6245  df-recs 6409  df-irdg 6474  df-frec 6495  df-1o 6520  df-oadd 6524  df-er 6638  df-en 6846  df-dom 6847  df-fin 6848  df-pnf 8139  df-mnf 8140  df-xr 8141  df-ltxr 8142  df-le 8143  df-sub 8275  df-neg 8276  df-reap 8678  df-ap 8685  df-div 8776  df-inn 9067  df-2 9125  df-3 9126  df-4 9127  df-n0 9326  df-z 9403  df-uz 9679  df-q 9771  df-rp 9806  df-fz 10161  df-fzo 10295  df-seqfrec 10625  df-exp 10716  df-ihash 10953  df-cj 11238  df-re 11239  df-im 11240  df-rsqrt 11394  df-abs 11395  df-clim 11675  df-proddc 11947

This theorem is referenced by:  fprodsplitdc  11992