Theorem fsumvma 24190

Description: Rewrite a sum over the von Mangoldt function as a sum over prime powers. (Contributed by Mario Carneiro, 15-Apr-2016.)

Hypotheses

Ref	Expression
fsumvma.1	|- ( x = ( p ^ k ) -> B = C )
fsumvma.2	|- ( ph -> A e. Fin )
fsumvma.3	|- ( ph -> A C_ NN )
fsumvma.4	|- ( ph -> P e. Fin )
fsumvma.5	|- ( ph -> ( ( p e. P /\ k e. K ) <-> ( ( p e. Prime /\ k e. NN ) /\ ( p ^ k ) e. A ) ) )
fsumvma.6	|- ( ( ph /\ x e. A ) -> B e. CC )
fsumvma.7	|- ( ( ph /\ ( x e. A /\ (Λ ` x ) = 0 ) ) -> B = 0 )

Assertion

Ref	Expression
fsumvma	|- ( ph -> sum_ x e. A B = sum_ p e. P sum_ k e. K C )

Distinct variable groups:   k, p, x, A   x, C   k, K, x   ph, k, p, x   B, k, p   P, k, p, x

Allowed substitution hints:   B( x)   C( k, p)   K( p)

Proof of Theorem fsumvma

Dummy variables a z b y are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fvex 5898	. . . . 5 |- ( ^ ` z ) e. _V
2	1	a1i 11	. . . 4 |- ( z = <. p , k >. -> ( ^ ` z ) e. _V )
3		fveq2 5888	. . . . . . . 8 |- ( z = <. p , k >. -> ( ^ ` z ) = ( ^ ` <. p , k >. ) )
4		df-ov 6318	. . . . . . . 8 |- ( p ^ k ) = ( ^ ` <. p , k >. )
5	3, 4	syl6eqr 2514	. . . . . . 7 |- ( z = <. p , k >. -> ( ^ ` z ) = ( p ^ k ) )
6	5	eqeq2d 2472	. . . . . 6 |- ( z = <. p , k >. -> ( x = ( ^ ` z ) <-> x = ( p ^ k ) ) )
7	6	biimpa 491	. . . . 5 |- ( ( z = <. p , k >. /\ x = ( ^ ` z ) ) -> x = ( p ^ k ) )
8		fsumvma.1	. . . . 5 |- ( x = ( p ^ k ) -> B = C )
9	7, 8	syl 17	. . . 4 |- ( ( z = <. p , k >. /\ x = ( ^ ` z ) ) -> B = C )
10	2, 9	csbied 3402	. . 3 |- ( z = <. p , k >. -> [_ ( ^ ` z ) / x ]_ B = C )
11		fsumvma.4	. . 3 |- ( ph -> P e. Fin )
12		fsumvma.2	. . . . 5 |- ( ph -> A e. Fin )
13	12	adantr 471	. . . 4 |- ( ( ph /\ p e. P ) -> A e. Fin )
14		fsumvma.5	. . . . . . . . 9 |- ( ph -> ( ( p e. P /\ k e. K ) <-> ( ( p e. Prime /\ k e. NN ) /\ ( p ^ k ) e. A ) ) )
15	14	biimpd 212	. . . . . . . 8 |- ( ph -> ( ( p e. P /\ k e. K ) -> ( ( p e. Prime /\ k e. NN ) /\ ( p ^ k ) e. A ) ) )
16	15	impl 630	. . . . . . 7 |- ( ( ( ph /\ p e. P ) /\ k e. K ) -> ( ( p e. Prime /\ k e. NN ) /\ ( p ^ k ) e. A ) )
17	16	simprd 469	. . . . . 6 |- ( ( ( ph /\ p e. P ) /\ k e. K ) -> ( p ^ k ) e. A )
18	17	ex 440	. . . . 5 |- ( ( ph /\ p e. P ) -> ( k e. K -> ( p ^ k ) e. A ) )
19	16	simpld 465	. . . . . . . . 9 |- ( ( ( ph /\ p e. P ) /\ k e. K ) -> ( p e. Prime /\ k e. NN ) )
20	19	simpld 465	. . . . . . . 8 |- ( ( ( ph /\ p e. P ) /\ k e. K ) -> p e. Prime )
21	20	adantrr 728	. . . . . . 7 |- ( ( ( ph /\ p e. P ) /\ ( k e. K /\ z e. K ) ) -> p e. Prime )
22	19	simprd 469	. . . . . . . 8 |- ( ( ( ph /\ p e. P ) /\ k e. K ) -> k e. NN )
23	22	adantrr 728	. . . . . . 7 |- ( ( ( ph /\ p e. P ) /\ ( k e. K /\ z e. K ) ) -> k e. NN )
24	22	ex 440	. . . . . . . . . 10 |- ( ( ph /\ p e. P ) -> ( k e. K -> k e. NN ) )
25	24	ssrdv 3450	. . . . . . . . 9 |- ( ( ph /\ p e. P ) -> K C_ NN )
26	25	sselda 3444	. . . . . . . 8 |- ( ( ( ph /\ p e. P ) /\ z e. K ) -> z e. NN )
27	26	adantrl 727	. . . . . . 7 |- ( ( ( ph /\ p e. P ) /\ ( k e. K /\ z e. K ) ) -> z e. NN )
28		eqid 2462	. . . . . . . 8 |- p = p
29		prmexpb 14719	. . . . . . . . 9 |- ( ( ( p e. Prime /\ p e. Prime ) /\ ( k e. NN /\ z e. NN ) ) -> ( ( p ^ k ) = ( p ^ z ) <-> ( p = p /\ k = z ) ) )
30	29	baibd 925	. . . . . . . 8 |- ( ( ( ( p e. Prime /\ p e. Prime ) /\ ( k e. NN /\ z e. NN ) ) /\ p = p ) -> ( ( p ^ k ) = ( p ^ z ) <-> k = z ) )
31	28, 30	mpan2 682	. . . . . . 7 |- ( ( ( p e. Prime /\ p e. Prime ) /\ ( k e. NN /\ z e. NN ) ) -> ( ( p ^ k ) = ( p ^ z ) <-> k = z ) )
32	21, 21, 23, 27, 31	syl22anc 1277	. . . . . 6 |- ( ( ( ph /\ p e. P ) /\ ( k e. K /\ z e. K ) ) -> ( ( p ^ k ) = ( p ^ z ) <-> k = z ) )
33	32	ex 440	. . . . 5 |- ( ( ph /\ p e. P ) -> ( ( k e. K /\ z e. K ) -> ( ( p ^ k ) = ( p ^ z ) <-> k = z ) ) )
34	18, 33	dom2lem 7635	. . . 4 |- ( ( ph /\ p e. P ) -> ( k e. K |-> ( p ^ k ) ) : K -1-1-> A )
35		f1fi 7887	. . . 4 |- ( ( A e. Fin /\ ( k e. K |-> ( p ^ k ) ) : K -1-1-> A ) -> K e. Fin )
36	13, 34, 35	syl2anc 671	. . 3 |- ( ( ph /\ p e. P ) -> K e. Fin )
37	14	simplbda 634	. . . 4 |- ( ( ph /\ ( p e. P /\ k e. K ) ) -> ( p ^ k ) e. A )
38		fsumvma.6	. . . . . 6 |- ( ( ph /\ x e. A ) -> B e. CC )
39	38	ralrimiva 2814	. . . . 5 |- ( ph -> A. x e. A B e. CC )
40	39	adantr 471	. . . 4 |- ( ( ph /\ ( p e. P /\ k e. K ) ) -> A. x e. A B e. CC )
41	8	eleq1d 2524	. . . . 5 |- ( x = ( p ^ k ) -> ( B e. CC <-> C e. CC ) )
42	41	rspcv 3158	. . . 4 |- ( ( p ^ k ) e. A -> ( A. x e. A B e. CC -> C e. CC ) )
43	37, 40, 42	sylc 62	. . 3 |- ( ( ph /\ ( p e. P /\ k e. K ) ) -> C e. CC )
44	10, 11, 36, 43	fsum2d 13881	. 2 |- ( ph -> sum_ p e. P sum_ k e. K C = sum_ z e. U_ p e. P ( { p } X. K ) [_ ( ^ ` z ) / x ]_ B )
45		nfcv 2603	. . . 4 |- F/_ y B
46		nfcsb1v 3391	. . . 4 |- F/_ x [_ y / x ]_ B
47		csbeq1a 3384	. . . 4 |- ( x = y -> B = [_ y / x ]_ B )
48	45, 46, 47	cbvsumi 13812	. . 3 |- sum_ x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) B = sum_ y e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) [_ y / x ]_ B
49		csbeq1 3378	. . . 4 |- ( y = ( ^ ` z ) -> [_ y / x ]_ B = [_ ( ^ ` z ) / x ]_ B )
50		snfi 7676	. . . . . . 7 |- { p } e. Fin
51		xpfi 7868	. . . . . . 7 |- ( ( { p } e. Fin /\ K e. Fin ) -> ( { p } X. K ) e. Fin )
52	50, 36, 51	sylancr 674	. . . . . 6 |- ( ( ph /\ p e. P ) -> ( { p } X. K ) e. Fin )
53	52	ralrimiva 2814	. . . . 5 |- ( ph -> A. p e. P ( { p } X. K ) e. Fin )
54		iunfi 7888	. . . . 5 |- ( ( P e. Fin /\ A. p e. P ( { p } X. K ) e. Fin ) -> U_ p e. P ( { p } X. K ) e. Fin )
55	11, 53, 54	syl2anc 671	. . . 4 |- ( ph -> U_ p e. P ( { p } X. K ) e. Fin )
56		fvex 5898	. . . . . . 7 |- ( ^ ` a ) e. _V
57	56	2a1i 12	. . . . . 6 |- ( ph -> ( a e. U_ p e. P ( { p } X. K ) -> ( ^ ` a ) e. _V ) )
58		eliunxp 4991	. . . . . . . . 9 |- ( a e. U_ p e. P ( { p } X. K ) <-> E. p E. k ( a = <. p , k >. /\ ( p e. P /\ k e. K ) ) )
59	14	simprbda 633	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( p e. P /\ k e. K ) ) -> ( p e. Prime /\ k e. NN ) )
60		opelxp 4883	. . . . . . . . . . . . . 14 |- ( <. p , k >. e. ( Prime X. NN ) <-> ( p e. Prime /\ k e. NN ) )
61	59, 60	sylibr 217	. . . . . . . . . . . . 13 |- ( ( ph /\ ( p e. P /\ k e. K ) ) -> <. p , k >. e. ( Prime X. NN ) )
62		eleq1 2528	. . . . . . . . . . . . 13 |- ( a = <. p , k >. -> ( a e. ( Prime X. NN ) <-> <. p , k >. e. ( Prime X. NN ) ) )
63	61, 62	syl5ibrcom 230	. . . . . . . . . . . 12 |- ( ( ph /\ ( p e. P /\ k e. K ) ) -> ( a = <. p , k >. -> a e. ( Prime X. NN ) ) )
64	63	impancom 446	. . . . . . . . . . 11 |- ( ( ph /\ a = <. p , k >. ) -> ( ( p e. P /\ k e. K ) -> a e. ( Prime X. NN ) ) )
65	64	expimpd 612	. . . . . . . . . 10 |- ( ph -> ( ( a = <. p , k >. /\ ( p e. P /\ k e. K ) ) -> a e. ( Prime X. NN ) ) )
66	65	exlimdvv 1791	. . . . . . . . 9 |- ( ph -> ( E. p E. k ( a = <. p , k >. /\ ( p e. P /\ k e. K ) ) -> a e. ( Prime X. NN ) ) )
67	58, 66	syl5bi 225	. . . . . . . 8 |- ( ph -> ( a e. U_ p e. P ( { p } X. K ) -> a e. ( Prime X. NN ) ) )
68	67	ssrdv 3450	. . . . . . . . 9 |- ( ph -> U_ p e. P ( { p } X. K ) C_ ( Prime X. NN ) )
69	68	sseld 3443	. . . . . . . 8 |- ( ph -> ( b e. U_ p e. P ( { p } X. K ) -> b e. ( Prime X. NN ) ) )
70	67, 69	anim12d 570	. . . . . . 7 |- ( ph -> ( ( a e. U_ p e. P ( { p } X. K ) /\ b e. U_ p e. P ( { p } X. K ) ) -> ( a e. ( Prime X. NN ) /\ b e. ( Prime X. NN ) ) ) )
71		1st2nd2 6857	. . . . . . . . . . 11 |- ( a e. ( Prime X. NN ) -> a = <. ( 1st ` a ) , ( 2nd ` a ) >. )
72	71	fveq2d 5892	. . . . . . . . . 10 |- ( a e. ( Prime X. NN ) -> ( ^ ` a ) = ( ^ ` <. ( 1st ` a ) , ( 2nd ` a ) >. ) )
73		df-ov 6318	. . . . . . . . . 10 |- ( ( 1st ` a ) ^ ( 2nd ` a ) ) = ( ^ ` <. ( 1st ` a ) , ( 2nd ` a ) >. )
74	72, 73	syl6eqr 2514	. . . . . . . . 9 |- ( a e. ( Prime X. NN ) -> ( ^ ` a ) = ( ( 1st ` a ) ^ ( 2nd ` a ) ) )
75		1st2nd2 6857	. . . . . . . . . . 11 |- ( b e. ( Prime X. NN ) -> b = <. ( 1st ` b ) , ( 2nd ` b ) >. )
76	75	fveq2d 5892	. . . . . . . . . 10 |- ( b e. ( Prime X. NN ) -> ( ^ ` b ) = ( ^ ` <. ( 1st ` b ) , ( 2nd ` b ) >. ) )
77		df-ov 6318	. . . . . . . . . 10 |- ( ( 1st ` b ) ^ ( 2nd ` b ) ) = ( ^ ` <. ( 1st ` b ) , ( 2nd ` b ) >. )
78	76, 77	syl6eqr 2514	. . . . . . . . 9 |- ( b e. ( Prime X. NN ) -> ( ^ ` b ) = ( ( 1st ` b ) ^ ( 2nd ` b ) ) )
79	74, 78	eqeqan12d 2478	. . . . . . . 8 |- ( ( a e. ( Prime X. NN ) /\ b e. ( Prime X. NN ) ) -> ( ( ^ ` a ) = ( ^ ` b ) <-> ( ( 1st ` a ) ^ ( 2nd ` a ) ) = ( ( 1st ` b ) ^ ( 2nd ` b ) ) ) )
80		xp1st 6850	. . . . . . . . . 10 |- ( a e. ( Prime X. NN ) -> ( 1st ` a ) e. Prime )
81		xp2nd 6851	. . . . . . . . . 10 |- ( a e. ( Prime X. NN ) -> ( 2nd ` a ) e. NN )
82	80, 81	jca 539	. . . . . . . . 9 |- ( a e. ( Prime X. NN ) -> ( ( 1st ` a ) e. Prime /\ ( 2nd ` a ) e. NN ) )
83		xp1st 6850	. . . . . . . . . 10 |- ( b e. ( Prime X. NN ) -> ( 1st ` b ) e. Prime )
84		xp2nd 6851	. . . . . . . . . 10 |- ( b e. ( Prime X. NN ) -> ( 2nd ` b ) e. NN )
85	83, 84	jca 539	. . . . . . . . 9 |- ( b e. ( Prime X. NN ) -> ( ( 1st ` b ) e. Prime /\ ( 2nd ` b ) e. NN ) )
86		prmexpb 14719	. . . . . . . . . 10 |- ( ( ( ( 1st ` a ) e. Prime /\ ( 1st ` b ) e. Prime ) /\ ( ( 2nd ` a ) e. NN /\ ( 2nd ` b ) e. NN ) ) -> ( ( ( 1st ` a ) ^ ( 2nd ` a ) ) = ( ( 1st ` b ) ^ ( 2nd ` b ) ) <-> ( ( 1st ` a ) = ( 1st ` b ) /\ ( 2nd ` a ) = ( 2nd ` b ) ) ) )
87	86	an4s 840	. . . . . . . . 9 |- ( ( ( ( 1st ` a ) e. Prime /\ ( 2nd ` a ) e. NN ) /\ ( ( 1st ` b ) e. Prime /\ ( 2nd ` b ) e. NN ) ) -> ( ( ( 1st ` a ) ^ ( 2nd ` a ) ) = ( ( 1st ` b ) ^ ( 2nd ` b ) ) <-> ( ( 1st ` a ) = ( 1st ` b ) /\ ( 2nd ` a ) = ( 2nd ` b ) ) ) )
88	82, 85, 87	syl2an 484	. . . . . . . 8 |- ( ( a e. ( Prime X. NN ) /\ b e. ( Prime X. NN ) ) -> ( ( ( 1st ` a ) ^ ( 2nd ` a ) ) = ( ( 1st ` b ) ^ ( 2nd ` b ) ) <-> ( ( 1st ` a ) = ( 1st ` b ) /\ ( 2nd ` a ) = ( 2nd ` b ) ) ) )
89		xpopth 6859	. . . . . . . 8 |- ( ( a e. ( Prime X. NN ) /\ b e. ( Prime X. NN ) ) -> ( ( ( 1st ` a ) = ( 1st ` b ) /\ ( 2nd ` a ) = ( 2nd ` b ) ) <-> a = b ) )
90	79, 88, 89	3bitrd 287	. . . . . . 7 |- ( ( a e. ( Prime X. NN ) /\ b e. ( Prime X. NN ) ) -> ( ( ^ ` a ) = ( ^ ` b ) <-> a = b ) )
91	70, 90	syl6 34	. . . . . 6 |- ( ph -> ( ( a e. U_ p e. P ( { p } X. K ) /\ b e. U_ p e. P ( { p } X. K ) ) -> ( ( ^ ` a ) = ( ^ ` b ) <-> a = b ) ) )
92	57, 91	dom2lem 7635	. . . . 5 |- ( ph -> ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) : U_ p e. P ( { p } X. K ) -1-1-> _V )
93		f1f1orn 5848	. . . . 5 |- ( ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) : U_ p e. P ( { p } X. K ) -1-1-> _V -> ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) : U_ p e. P ( { p } X. K ) -1-1-onto-> ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) )
94	92, 93	syl 17	. . . 4 |- ( ph -> ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) : U_ p e. P ( { p } X. K ) -1-1-onto-> ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) )
95		fveq2 5888	. . . . . 6 |- ( a = z -> ( ^ ` a ) = ( ^ ` z ) )
96		eqid 2462	. . . . . 6 |- ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) = ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) )
97	95, 96, 1	fvmpt 5971	. . . . 5 |- ( z e. U_ p e. P ( { p } X. K ) -> ( ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ` z ) = ( ^ ` z ) )
98	97	adantl 472	. . . 4 |- ( ( ph /\ z e. U_ p e. P ( { p } X. K ) ) -> ( ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ` z ) = ( ^ ` z ) )
99		fveq2 5888	. . . . . . . . . . . . . . . 16 |- ( a = <. p , k >. -> ( ^ ` a ) = ( ^ ` <. p , k >. ) )
100	99, 4	syl6eqr 2514	. . . . . . . . . . . . . . 15 |- ( a = <. p , k >. -> ( ^ ` a ) = ( p ^ k ) )
101	100	eleq1d 2524	. . . . . . . . . . . . . 14 |- ( a = <. p , k >. -> ( ( ^ ` a ) e. A <-> ( p ^ k ) e. A ) )
102	37, 101	syl5ibrcom 230	. . . . . . . . . . . . 13 |- ( ( ph /\ ( p e. P /\ k e. K ) ) -> ( a = <. p , k >. -> ( ^ ` a ) e. A ) )
103	102	impancom 446	. . . . . . . . . . . 12 |- ( ( ph /\ a = <. p , k >. ) -> ( ( p e. P /\ k e. K ) -> ( ^ ` a ) e. A ) )
104	103	expimpd 612	. . . . . . . . . . 11 |- ( ph -> ( ( a = <. p , k >. /\ ( p e. P /\ k e. K ) ) -> ( ^ ` a ) e. A ) )
105	104	exlimdvv 1791	. . . . . . . . . 10 |- ( ph -> ( E. p E. k ( a = <. p , k >. /\ ( p e. P /\ k e. K ) ) -> ( ^ ` a ) e. A ) )
106	58, 105	syl5bi 225	. . . . . . . . 9 |- ( ph -> ( a e. U_ p e. P ( { p } X. K ) -> ( ^ ` a ) e. A ) )
107	106	imp 435	. . . . . . . 8 |- ( ( ph /\ a e. U_ p e. P ( { p } X. K ) ) -> ( ^ ` a ) e. A )
108	107, 96	fmptd 6069	. . . . . . 7 |- ( ph -> ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) : U_ p e. P ( { p } X. K ) --> A )
109		frn 5758	. . . . . . 7 |- ( ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) : U_ p e. P ( { p } X. K ) --> A -> ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) C_ A )
110	108, 109	syl 17	. . . . . 6 |- ( ph -> ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) C_ A )
111	110	sselda 3444	. . . . 5 |- ( ( ph /\ y e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) -> y e. A )
112	46	nfel1 2617	. . . . . . 7 |- F/ x [_ y / x ]_ B e. CC
113	47	eleq1d 2524	. . . . . . 7 |- ( x = y -> ( B e. CC <-> [_ y / x ]_ B e. CC ) )
114	112, 113	rspc 3156	. . . . . 6 |- ( y e. A -> ( A. x e. A B e. CC -> [_ y / x ]_ B e. CC ) )
115	39, 114	mpan9 476	. . . . 5 |- ( ( ph /\ y e. A ) -> [_ y / x ]_ B e. CC )
116	111, 115	syldan 477	. . . 4 |- ( ( ph /\ y e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) -> [_ y / x ]_ B e. CC )
117	49, 55, 94, 98, 116	fsumf1o 13838	. . 3 |- ( ph -> sum_ y e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) [_ y / x ]_ B = sum_ z e. U_ p e. P ( { p } X. K ) [_ ( ^ ` z ) / x ]_ B )
118	48, 117	syl5eq 2508	. 2 |- ( ph -> sum_ x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) B = sum_ z e. U_ p e. P ( { p } X. K ) [_ ( ^ ` z ) / x ]_ B )
119	110	sselda 3444	. . . 4 |- ( ( ph /\ x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) -> x e. A )
120	119, 38	syldan 477	. . 3 |- ( ( ph /\ x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) -> B e. CC )
121		eldif 3426	. . . . 5 |- ( x e. ( A \ ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) <-> ( x e. A /\ -. x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) )
122	96, 56	elrnmpti 5104	. . . . . . . . . 10 |- ( x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) <-> E. a e. U_ p e. P ( { p } X. K ) x = ( ^ ` a ) )
123	100	eqeq2d 2472	. . . . . . . . . . 11 |- ( a = <. p , k >. -> ( x = ( ^ ` a ) <-> x = ( p ^ k ) ) )
124	123	rexiunxp 4994	. . . . . . . . . 10 |- ( E. a e. U_ p e. P ( { p } X. K ) x = ( ^ ` a ) <-> E. p e. P E. k e. K x = ( p ^ k ) )
125	122, 124	bitri 257	. . . . . . . . 9 |- ( x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) <-> E. p e. P E. k e. K x = ( p ^ k ) )
126		simpr 467	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ x e. A ) /\ x = ( p ^ k ) ) -> x = ( p ^ k ) )
127		simplr 767	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ x e. A ) /\ x = ( p ^ k ) ) -> x e. A )
128	126, 127	eqeltrrd 2541	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. A ) /\ x = ( p ^ k ) ) -> ( p ^ k ) e. A )
129	14	rbaibd 926	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( p ^ k ) e. A ) -> ( ( p e. P /\ k e. K ) <-> ( p e. Prime /\ k e. NN ) ) )
130	129	adantlr 726	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. A ) /\ ( p ^ k ) e. A ) -> ( ( p e. P /\ k e. K ) <-> ( p e. Prime /\ k e. NN ) ) )
131	128, 130	syldan 477	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ x e. A ) /\ x = ( p ^ k ) ) -> ( ( p e. P /\ k e. K ) <-> ( p e. Prime /\ k e. NN ) ) )
132	131	pm5.32da 651	. . . . . . . . . . . . 13 |- ( ( ph /\ x e. A ) -> ( ( x = ( p ^ k ) /\ ( p e. P /\ k e. K ) ) <-> ( x = ( p ^ k ) /\ ( p e. Prime /\ k e. NN ) ) ) )
133		ancom 456	. . . . . . . . . . . . 13 |- ( ( ( p e. P /\ k e. K ) /\ x = ( p ^ k ) ) <-> ( x = ( p ^ k ) /\ ( p e. P /\ k e. K ) ) )
134		ancom 456	. . . . . . . . . . . . 13 |- ( ( ( p e. Prime /\ k e. NN ) /\ x = ( p ^ k ) ) <-> ( x = ( p ^ k ) /\ ( p e. Prime /\ k e. NN ) ) )
135	132, 133, 134	3bitr4g 296	. . . . . . . . . . . 12 |- ( ( ph /\ x e. A ) -> ( ( ( p e. P /\ k e. K ) /\ x = ( p ^ k ) ) <-> ( ( p e. Prime /\ k e. NN ) /\ x = ( p ^ k ) ) ) )
136	135	2exbidv 1781	. . . . . . . . . . 11 |- ( ( ph /\ x e. A ) -> ( E. p E. k ( ( p e. P /\ k e. K ) /\ x = ( p ^ k ) ) <-> E. p E. k ( ( p e. Prime /\ k e. NN ) /\ x = ( p ^ k ) ) ) )
137		r2ex 2925	. . . . . . . . . . 11 |- ( E. p e. P E. k e. K x = ( p ^ k ) <-> E. p E. k ( ( p e. P /\ k e. K ) /\ x = ( p ^ k ) ) )
138		r2ex 2925	. . . . . . . . . . 11 |- ( E. p e. Prime E. k e. NN x = ( p ^ k ) <-> E. p E. k ( ( p e. Prime /\ k e. NN ) /\ x = ( p ^ k ) ) )
139	136, 137, 138	3bitr4g 296	. . . . . . . . . 10 |- ( ( ph /\ x e. A ) -> ( E. p e. P E. k e. K x = ( p ^ k ) <-> E. p e. Prime E. k e. NN x = ( p ^ k ) ) )
140		fsumvma.3	. . . . . . . . . . . 12 |- ( ph -> A C_ NN )
141	140	sselda 3444	. . . . . . . . . . 11 |- ( ( ph /\ x e. A ) -> x e. NN )
142		isppw2 24091	. . . . . . . . . . 11 |- ( x e. NN -> ( (Λ ` x ) =/= 0 <-> E. p e. Prime E. k e. NN x = ( p ^ k ) ) )
143	141, 142	syl 17	. . . . . . . . . 10 |- ( ( ph /\ x e. A ) -> ( (Λ ` x ) =/= 0 <-> E. p e. Prime E. k e. NN x = ( p ^ k ) ) )
144	139, 143	bitr4d 264	. . . . . . . . 9 |- ( ( ph /\ x e. A ) -> ( E. p e. P E. k e. K x = ( p ^ k ) <-> (Λ ` x ) =/= 0 ) )
145	125, 144	syl5bb 265	. . . . . . . 8 |- ( ( ph /\ x e. A ) -> ( x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) <-> (Λ ` x ) =/= 0 ) )
146	145	necon2bbid 2679	. . . . . . 7 |- ( ( ph /\ x e. A ) -> ( (Λ ` x ) = 0 <-> -. x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) )
147	146	pm5.32da 651	. . . . . 6 |- ( ph -> ( ( x e. A /\ (Λ ` x ) = 0 ) <-> ( x e. A /\ -. x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) ) )
148		fsumvma.7	. . . . . . 7 |- ( ( ph /\ ( x e. A /\ (Λ ` x ) = 0 ) ) -> B = 0 )
149	148	ex 440	. . . . . 6 |- ( ph -> ( ( x e. A /\ (Λ ` x ) = 0 ) -> B = 0 ) )
150	147, 149	sylbird 243	. . . . 5 |- ( ph -> ( ( x e. A /\ -. x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) -> B = 0 ) )
151	121, 150	syl5bi 225	. . . 4 |- ( ph -> ( x e. ( A \ ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) -> B = 0 ) )
152	151	imp 435	. . 3 |- ( ( ph /\ x e. ( A \ ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) ) ) -> B = 0 )
153	110, 120, 152, 12	fsumss 13840	. 2 |- ( ph -> sum_ x e. ran ( a e. U_ p e. P ( { p } X. K ) |-> ( ^ ` a ) ) B = sum_ x e. A B )
154	44, 118, 153	3eqtr2rd 2503	1 |- ( ph -> sum_ x e. A B = sum_ p e. P sum_ k e. K C )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 189   /\ wa 375   = wceq 1455   E.wex 1674   e. wcel 1898   =/= wne 2633   A.wral 2749   E.wrex 2750   _Vcvv 3057   [_csb 3375   \ cdif 3413   C_ wss 3416   {csn 3980   <.cop 3986   U_ciun 4292   |-> cmpt 4475   X. cxp 4851   ran crn 4854   -->wf 5597   -1-1->wf1 5598   -1-1-onto->wf1o 5600   ` cfv 5601  (class class class)co 6315   1stc1st 6818   2ndc2nd 6819   Fincfn 7595   CCcc 9563   0cc0 9565   NNcn 10637   ^cexp 12304   sum_csu 13801   Primecprime 14671  Λcvma 24067

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1680  ax-4 1693  ax-5 1769  ax-6 1816  ax-7 1862  ax-8 1900  ax-9 1907  ax-10 1926  ax-11 1931  ax-12 1944  ax-13 2102  ax-ext 2442  ax-rep 4529  ax-sep 4539  ax-nul 4548  ax-pow 4595  ax-pr 4653  ax-un 6610  ax-inf2 8172  ax-cnex 9621  ax-resscn 9622  ax-1cn 9623  ax-icn 9624  ax-addcl 9625  ax-addrcl 9626  ax-mulcl 9627  ax-mulrcl 9628  ax-mulcom 9629  ax-addass 9630  ax-mulass 9631  ax-distr 9632  ax-i2m1 9633  ax-1ne0 9634  ax-1rid 9635  ax-rnegex 9636  ax-rrecex 9637  ax-cnre 9638  ax-pre-lttri 9639  ax-pre-lttrn 9640  ax-pre-ltadd 9641  ax-pre-mulgt0 9642  ax-pre-sup 9643  ax-addf 9644  ax-mulf 9645

This theorem depends on definitions:  df-bi 190  df-or 376  df-an 377  df-3or 992  df-3an 993  df-tru 1458  df-fal 1461  df-ex 1675  df-nf 1679  df-sb 1809  df-eu 2314  df-mo 2315  df-clab 2449  df-cleq 2455  df-clel 2458  df-nfc 2592  df-ne 2635  df-nel 2636  df-ral 2754  df-rex 2755  df-reu 2756  df-rmo 2757  df-rab 2758  df-v 3059  df-sbc 3280  df-csb 3376  df-dif 3419  df-un 3421  df-in 3423  df-ss 3430  df-pss 3432  df-nul 3744  df-if 3894  df-pw 3965  df-sn 3981  df-pr 3983  df-tp 3985  df-op 3987  df-uni 4213  df-int 4249  df-iun 4294  df-iin 4295  df-br 4417  df-opab 4476  df-mpt 4477  df-tr 4512  df-eprel 4764  df-id 4768  df-po 4774  df-so 4775  df-fr 4812  df-se 4813  df-we 4814  df-xp 4859  df-rel 4860  df-cnv 4861  df-co 4862  df-dm 4863  df-rn 4864  df-res 4865  df-ima 4866  df-pred 5399  df-ord 5445  df-on 5446  df-lim 5447  df-suc 5448  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-isom 5610  df-riota 6277  df-ov 6318  df-oprab 6319  df-mpt2 6320  df-of 6558  df-om 6720  df-1st 6820  df-2nd 6821  df-supp 6942  df-wrecs 7054  df-recs 7116  df-rdg 7154  df-1o 7208  df-2o 7209  df-oadd 7212  df-er 7389  df-map 7500  df-pm 7501  df-ixp 7549  df-en 7596  df-dom 7597  df-sdom 7598  df-fin 7599  df-fsupp 7910  df-fi 7951  df-sup 7982  df-inf 7983  df-oi 8051  df-card 8399  df-cda 8624  df-pnf 9703  df-mnf 9704  df-xr 9705  df-ltxr 9706  df-le 9707  df-sub 9888  df-neg 9889  df-div 10298  df-nn 10638  df-2 10696  df-3 10697  df-4 10698  df-5 10699  df-6 10700  df-7 10701  df-8 10702  df-9 10703  df-10 10704  df-n0 10899  df-z 10967  df-dec 11081  df-uz 11189  df-q 11294  df-rp 11332  df-xneg 11438  df-xadd 11439  df-xmul 11440  df-ioo 11668  df-ioc 11669  df-ico 11670  df-icc 11671  df-fz 11814  df-fzo 11947  df-fl 12060  df-mod 12129  df-seq 12246  df-exp 12305  df-fac 12492  df-bc 12520  df-hash 12548  df-shft 13179  df-cj 13211  df-re 13212  df-im 13213  df-sqrt 13347  df-abs 13348  df-limsup 13575  df-clim 13601  df-rlim 13602  df-sum 13802  df-ef 14170  df-sin 14172  df-cos 14173  df-pi 14175  df-dvds 14355  df-gcd 14518  df-prm 14672  df-pc 14836  df-struct 15172  df-ndx 15173  df-slot 15174  df-base 15175  df-sets 15176  df-ress 15177  df-plusg 15252  df-mulr 15253  df-starv 15254  df-sca 15255  df-vsca 15256  df-ip 15257  df-tset 15258  df-ple 15259  df-ds 15261  df-unif 15262  df-hom 15263  df-cco 15264  df-rest 15370  df-topn 15371  df-0g 15389  df-gsum 15390  df-topgen 15391  df-pt 15392  df-prds 15395  df-xrs 15449  df-qtop 15455  df-imas 15456  df-xps 15459  df-mre 15541  df-mrc 15542  df-acs 15544  df-mgm 16537  df-sgrp 16576  df-mnd 16586  df-submnd 16632  df-mulg 16725  df-cntz 17020  df-cmn 17481  df-psmet 19011  df-xmet 19012  df-met 19013  df-bl 19014  df-mopn 19015  df-fbas 19016  df-fg 19017  df-cnfld 19020  df-top 19970  df-bases 19971  df-topon 19972  df-topsp 19973  df-cld 20083  df-ntr 20084  df-cls 20085  df-nei 20163  df-lp 20201  df-perf 20202  df-cn 20292  df-cnp 20293  df-haus 20380  df-tx 20626  df-hmeo 20819  df-fil 20910  df-fm 21002  df-flim 21003  df-flf 21004  df-xms 21384  df-ms 21385  df-tms 21386  df-cncf 21959  df-limc 22870  df-dv 22871  df-log 23555  df-vma 24073

This theorem is referenced by:  fsumvma2  24191  vmasum  24193