Theorem etransclem24 37987

Description: P divides the I -th derivative of F applied to J. when J = 0 and I is not equal to P - 1. This is the second part of case 2 proven in [Juillerat] p. 13 . (Contributed by Glauco Siliprandi, 5-Apr-2020.)

Hypotheses

Ref	Expression
etransclem24.p	|- ( ph -> P e. NN )
etransclem24.m	|- ( ph -> M e. NN0 )
etransclem24.i	|- ( ph -> I e. NN0 )
etransclem24.ip	|- ( ph -> I =/= ( P - 1 ) )
etransclem24.j	|- ( ph -> J = 0 )
etransclem24.c	|- C = ( n e. NN0 |-> { c e. ( ( 0 ... n ) ^m ( 0 ... M ) ) | sum_ j e. ( 0 ... M ) ( c ` j ) = n } )
etransclem24.d	|- ( ph -> D e. ( C ` I ) )

Assertion

Ref	Expression
etransclem24	|- ( ph -> P || ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) )

Distinct variable groups:   D, c, j   I, c, n   j, J   M, c, j, n   P, j   ph, j, n

Allowed substitution hints:   ph( c)   C( j, n, c)   D( n)   P( n, c)   I( j)   J( n, c)

Proof of Theorem etransclem24

Dummy variables A k are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		etransclem24.d	. . . . . . . 8 |- ( ph -> D e. ( C ` I ) )
2		etransclem24.c	. . . . . . . . 9 |- C = ( n e. NN0 |-> { c e. ( ( 0 ... n ) ^m ( 0 ... M ) ) | sum_ j e. ( 0 ... M ) ( c ` j ) = n } )
3		etransclem24.i	. . . . . . . . 9 |- ( ph -> I e. NN0 )
4	2, 3	etransclem12 37975	. . . . . . . 8 |- ( ph -> ( C ` I ) = { c e. ( ( 0 ... I ) ^m ( 0 ... M ) ) | sum_ j e. ( 0 ... M ) ( c ` j ) = I } )
5	1, 4	eleqtrd 2513	. . . . . . 7 |- ( ph -> D e. { c e. ( ( 0 ... I ) ^m ( 0 ... M ) ) | sum_ j e. ( 0 ... M ) ( c ` j ) = I } )
6		fveq1 5878	. . . . . . . . . 10 |- ( c = D -> ( c ` j ) = ( D ` j ) )
7	6	sumeq2ad 37511	. . . . . . . . 9 |- ( c = D -> sum_ j e. ( 0 ... M ) ( c ` j ) = sum_ j e. ( 0 ... M ) ( D ` j ) )
8	7	eqeq1d 2425	. . . . . . . 8 |- ( c = D -> ( sum_ j e. ( 0 ... M ) ( c ` j ) = I <-> sum_ j e. ( 0 ... M ) ( D ` j ) = I ) )
9	8	elrab 3230	. . . . . . 7 |- ( D e. { c e. ( ( 0 ... I ) ^m ( 0 ... M ) ) | sum_ j e. ( 0 ... M ) ( c ` j ) = I } <-> ( D e. ( ( 0 ... I ) ^m ( 0 ... M ) ) /\ sum_ j e. ( 0 ... M ) ( D ` j ) = I ) )
10	5, 9	sylib 200	. . . . . 6 |- ( ph -> ( D e. ( ( 0 ... I ) ^m ( 0 ... M ) ) /\ sum_ j e. ( 0 ... M ) ( D ` j ) = I ) )
11	10	simprd 465	. . . . 5 |- ( ph -> sum_ j e. ( 0 ... M ) ( D ` j ) = I )
12	11	ad2antrr 731	. . . 4 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ -. E. k e. ( 1 ... M ) ( D ` k ) e. NN ) -> sum_ j e. ( 0 ... M ) ( D ` j ) = I )
13		ralnex 2872	. . . . 5 |- ( A. k e. ( 1 ... M ) -. ( D ` k ) e. NN <-> -. E. k e. ( 1 ... M ) ( D ` k ) e. NN )
14		etransclem24.m	. . . . . . . . . . 11 |- ( ph -> M e. NN0 )
15		nn0uz 11195	. . . . . . . . . . 11 |- NN0 = ( ZZ>= ` 0 )
16	14, 15	syl6eleq 2521	. . . . . . . . . 10 |- ( ph -> M e. ( ZZ>= ` 0 ) )
17	16	ad2antrr 731	. . . . . . . . 9 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> M e. ( ZZ>= ` 0 ) )
18		fzsscn 37417	. . . . . . . . . . 11 |- ( 0 ... I ) C_ CC
19		ssrab2 3547	. . . . . . . . . . . . . . 15 |- { c e. ( ( 0 ... I ) ^m ( 0 ... M ) ) | sum_ j e. ( 0 ... M ) ( c ` j ) = I } C_ ( ( 0 ... I ) ^m ( 0 ... M ) )
20	4, 19	syl6eqss 3515	. . . . . . . . . . . . . 14 |- ( ph -> ( C ` I ) C_ ( ( 0 ... I ) ^m ( 0 ... M ) ) )
21	20, 1	sseldd 3466	. . . . . . . . . . . . 13 |- ( ph -> D e. ( ( 0 ... I ) ^m ( 0 ... M ) ) )
22		elmapi 7499	. . . . . . . . . . . . 13 |- ( D e. ( ( 0 ... I ) ^m ( 0 ... M ) ) -> D : ( 0 ... M ) --> ( 0 ... I ) )
23	21, 22	syl 17	. . . . . . . . . . . 12 |- ( ph -> D : ( 0 ... M ) --> ( 0 ... I ) )
24	23	ffvelrnda 6035	. . . . . . . . . . 11 |- ( ( ph /\ j e. ( 0 ... M ) ) -> ( D ` j ) e. ( 0 ... I ) )
25	18, 24	sseldi 3463	. . . . . . . . . 10 |- ( ( ph /\ j e. ( 0 ... M ) ) -> ( D ` j ) e. CC )
26	25	adant423 37272	. . . . . . . . 9 |- ( ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) /\ j e. ( 0 ... M ) ) -> ( D ` j ) e. CC )
27		fveq2 5879	. . . . . . . . 9 |- ( j = 0 -> ( D ` j ) = ( D ` 0 ) )
28	17, 26, 27	fsum1p 13807	. . . . . . . 8 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> sum_ j e. ( 0 ... M ) ( D ` j ) = ( ( D ` 0 ) + sum_ j e. ( ( 0 + 1 ) ... M ) ( D ` j ) ) )
29		simplr 761	. . . . . . . . 9 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> ( D ` 0 ) = ( P - 1 ) )
30		0p1e1 10723	. . . . . . . . . . . . . 14 |- ( 0 + 1 ) = 1
31	30	oveq1i 6313	. . . . . . . . . . . . 13 |- ( ( 0 + 1 ) ... M ) = ( 1 ... M )
32	31	sumeq1i 13757	. . . . . . . . . . . 12 |- sum_ j e. ( ( 0 + 1 ) ... M ) ( D ` j ) = sum_ j e. ( 1 ... M ) ( D ` j )
33	32	a1i 11	. . . . . . . . . . 11 |- ( ( ph /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> sum_ j e. ( ( 0 + 1 ) ... M ) ( D ` j ) = sum_ j e. ( 1 ... M ) ( D ` j ) )
34		fveq2 5879	. . . . . . . . . . . . . . . . 17 |- ( k = j -> ( D ` k ) = ( D ` j ) )
35	34	eleq1d 2492	. . . . . . . . . . . . . . . 16 |- ( k = j -> ( ( D ` k ) e. NN <-> ( D ` j ) e. NN ) )
36	35	notbid 296	. . . . . . . . . . . . . . 15 |- ( k = j -> ( -. ( D ` k ) e. NN <-> -. ( D ` j ) e. NN ) )
37	36	rspccva 3182	. . . . . . . . . . . . . 14 |- ( ( A. k e. ( 1 ... M ) -. ( D ` k ) e. NN /\ j e. ( 1 ... M ) ) -> -. ( D ` j ) e. NN )
38	37	adantll 719	. . . . . . . . . . . . 13 |- ( ( ( ph /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) /\ j e. ( 1 ... M ) ) -> -. ( D ` j ) e. NN )
39		fzssnn0 37425	. . . . . . . . . . . . . . . 16 |- ( 0 ... I ) C_ NN0
40		fz1ssfz0 37414	. . . . . . . . . . . . . . . . . 18 |- ( 1 ... M ) C_ ( 0 ... M )
41	40	sseli 3461	. . . . . . . . . . . . . . . . 17 |- ( j e. ( 1 ... M ) -> j e. ( 0 ... M ) )
42	41, 24	sylan2 477	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ j e. ( 1 ... M ) ) -> ( D ` j ) e. ( 0 ... I ) )
43	39, 42	sseldi 3463	. . . . . . . . . . . . . . 15 |- ( ( ph /\ j e. ( 1 ... M ) ) -> ( D ` j ) e. NN0 )
44		elnn0 10873	. . . . . . . . . . . . . . 15 |- ( ( D ` j ) e. NN0 <-> ( ( D ` j ) e. NN \/ ( D ` j ) = 0 ) )
45	43, 44	sylib 200	. . . . . . . . . . . . . 14 |- ( ( ph /\ j e. ( 1 ... M ) ) -> ( ( D ` j ) e. NN \/ ( D ` j ) = 0 ) )
46	45	adantlr 720	. . . . . . . . . . . . 13 |- ( ( ( ph /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) /\ j e. ( 1 ... M ) ) -> ( ( D ` j ) e. NN \/ ( D ` j ) = 0 ) )
47		orel1 384	. . . . . . . . . . . . 13 |- ( -. ( D ` j ) e. NN -> ( ( ( D ` j ) e. NN \/ ( D ` j ) = 0 ) -> ( D ` j ) = 0 ) )
48	38, 46, 47	sylc 63	. . . . . . . . . . . 12 |- ( ( ( ph /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) /\ j e. ( 1 ... M ) ) -> ( D ` j ) = 0 )
49	48	sumeq2dv 13762	. . . . . . . . . . 11 |- ( ( ph /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> sum_ j e. ( 1 ... M ) ( D ` j ) = sum_ j e. ( 1 ... M ) 0 )
50		fzfi 12186	. . . . . . . . . . . . 13 |- ( 1 ... M ) e. Fin
51	50	olci 393	. . . . . . . . . . . 12 |- ( ( 1 ... M ) C_ ( ZZ>= ` A ) \/ ( 1 ... M ) e. Fin )
52		sumz 13781	. . . . . . . . . . . 12 |- ( ( ( 1 ... M ) C_ ( ZZ>= ` A ) \/ ( 1 ... M ) e. Fin ) -> sum_ j e. ( 1 ... M ) 0 = 0 )
53	51, 52	mp1i 13	. . . . . . . . . . 11 |- ( ( ph /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> sum_ j e. ( 1 ... M ) 0 = 0 )
54	33, 49, 53	3eqtrd 2468	. . . . . . . . . 10 |- ( ( ph /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> sum_ j e. ( ( 0 + 1 ) ... M ) ( D ` j ) = 0 )
55	54	adantlr 720	. . . . . . . . 9 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> sum_ j e. ( ( 0 + 1 ) ... M ) ( D ` j ) = 0 )
56	29, 55	oveq12d 6321	. . . . . . . 8 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> ( ( D ` 0 ) + sum_ j e. ( ( 0 + 1 ) ... M ) ( D ` j ) ) = ( ( P - 1 ) + 0 ) )
57		etransclem24.p	. . . . . . . . . . . . 13 |- ( ph -> P e. NN )
58		nnm1nn0 10913	. . . . . . . . . . . . 13 |- ( P e. NN -> ( P - 1 ) e. NN0 )
59	57, 58	syl 17	. . . . . . . . . . . 12 |- ( ph -> ( P - 1 ) e. NN0 )
60	59	nn0red 10928	. . . . . . . . . . 11 |- ( ph -> ( P - 1 ) e. RR )
61	60	recnd 9671	. . . . . . . . . 10 |- ( ph -> ( P - 1 ) e. CC )
62	61	addid1d 9835	. . . . . . . . 9 |- ( ph -> ( ( P - 1 ) + 0 ) = ( P - 1 ) )
63	62	ad2antrr 731	. . . . . . . 8 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> ( ( P - 1 ) + 0 ) = ( P - 1 ) )
64	28, 56, 63	3eqtrd 2468	. . . . . . 7 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> sum_ j e. ( 0 ... M ) ( D ` j ) = ( P - 1 ) )
65		etransclem24.ip	. . . . . . . . 9 |- ( ph -> I =/= ( P - 1 ) )
66	65	necomd 2696	. . . . . . . 8 |- ( ph -> ( P - 1 ) =/= I )
67	66	ad2antrr 731	. . . . . . 7 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> ( P - 1 ) =/= I )
68	64, 67	eqnetrd 2718	. . . . . 6 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> sum_ j e. ( 0 ... M ) ( D ` j ) =/= I )
69	68	neneqd 2626	. . . . 5 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ A. k e. ( 1 ... M ) -. ( D ` k ) e. NN ) -> -. sum_ j e. ( 0 ... M ) ( D ` j ) = I )
70	13, 69	sylan2br 479	. . . 4 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ -. E. k e. ( 1 ... M ) ( D ` k ) e. NN ) -> -. sum_ j e. ( 0 ... M ) ( D ` j ) = I )
71	12, 70	condan 802	. . 3 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> E. k e. ( 1 ... M ) ( D ` k ) e. NN )
72	57	nnzd 11041	. . . . . . . . 9 |- ( ph -> P e. ZZ )
73	11	eqcomd 2431	. . . . . . . . . . . . 13 |- ( ph -> I = sum_ j e. ( 0 ... M ) ( D ` j ) )
74	73	fveq2d 5883	. . . . . . . . . . . 12 |- ( ph -> ( ! ` I ) = ( ! ` sum_ j e. ( 0 ... M ) ( D ` j ) ) )
75	74	oveq1d 6318	. . . . . . . . . . 11 |- ( ph -> ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) = ( ( ! ` sum_ j e. ( 0 ... M ) ( D ` j ) ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) )
76		nfcv 2585	. . . . . . . . . . . 12 |- F/_ j D
77		fzfid 12187	. . . . . . . . . . . 12 |- ( ph -> ( 0 ... M ) e. Fin )
78		nn0ex 10877	. . . . . . . . . . . . . 14 |- NN0 e. _V
79		mapss 7520	. . . . . . . . . . . . . 14 |- ( ( NN0 e. _V /\ ( 0 ... I ) C_ NN0 ) -> ( ( 0 ... I ) ^m ( 0 ... M ) ) C_ ( NN0 ^m ( 0 ... M ) ) )
80	78, 39, 79	mp2an 677	. . . . . . . . . . . . 13 |- ( ( 0 ... I ) ^m ( 0 ... M ) ) C_ ( NN0 ^m ( 0 ... M ) )
81	80, 21	sseldi 3463	. . . . . . . . . . . 12 |- ( ph -> D e. ( NN0 ^m ( 0 ... M ) ) )
82	76, 77, 81	mccl 37542	. . . . . . . . . . 11 |- ( ph -> ( ( ! ` sum_ j e. ( 0 ... M ) ( D ` j ) ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) e. NN )
83	75, 82	eqeltrd 2511	. . . . . . . . . 10 |- ( ph -> ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) e. NN )
84	83	nnzd 11041	. . . . . . . . 9 |- ( ph -> ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) e. ZZ )
85		fzfid 12187	. . . . . . . . . 10 |- ( ph -> ( 1 ... M ) e. Fin )
86	57	adantr 467	. . . . . . . . . . 11 |- ( ( ph /\ j e. ( 1 ... M ) ) -> P e. NN )
87	23	adantr 467	. . . . . . . . . . 11 |- ( ( ph /\ j e. ( 1 ... M ) ) -> D : ( 0 ... M ) --> ( 0 ... I ) )
88	41	adantl 468	. . . . . . . . . . 11 |- ( ( ph /\ j e. ( 1 ... M ) ) -> j e. ( 0 ... M ) )
89		etransclem24.j	. . . . . . . . . . . . 13 |- ( ph -> J = 0 )
90		0zd 10951	. . . . . . . . . . . . 13 |- ( ph -> 0 e. ZZ )
91	89, 90	eqeltrd 2511	. . . . . . . . . . . 12 |- ( ph -> J e. ZZ )
92	91	adantr 467	. . . . . . . . . . 11 |- ( ( ph /\ j e. ( 1 ... M ) ) -> J e. ZZ )
93	86, 87, 88, 92	etransclem3 37966	. . . . . . . . . 10 |- ( ( ph /\ j e. ( 1 ... M ) ) -> if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ )
94	85, 93	fprodzcl 14001	. . . . . . . . 9 |- ( ph -> prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ )
95	72, 84, 94	3jca 1186	. . . . . . . 8 |- ( ph -> ( P e. ZZ /\ ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) e. ZZ /\ prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ ) )
96	95	3ad2ant1 1027	. . . . . . 7 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> ( P e. ZZ /\ ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) e. ZZ /\ prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ ) )
97	72	adantr 467	. . . . . . . . . . 11 |- ( ( ph /\ k e. ( 1 ... M ) ) -> P e. ZZ )
98	57	adantr 467	. . . . . . . . . . . 12 |- ( ( ph /\ k e. ( 1 ... M ) ) -> P e. NN )
99	23	adantr 467	. . . . . . . . . . . 12 |- ( ( ph /\ k e. ( 1 ... M ) ) -> D : ( 0 ... M ) --> ( 0 ... I ) )
100	40	sseli 3461	. . . . . . . . . . . . 13 |- ( k e. ( 1 ... M ) -> k e. ( 0 ... M ) )
101	100	adantl 468	. . . . . . . . . . . 12 |- ( ( ph /\ k e. ( 1 ... M ) ) -> k e. ( 0 ... M ) )
102	91	adantr 467	. . . . . . . . . . . 12 |- ( ( ph /\ k e. ( 1 ... M ) ) -> J e. ZZ )
103	98, 99, 101, 102	etransclem3 37966	. . . . . . . . . . 11 |- ( ( ph /\ k e. ( 1 ... M ) ) -> if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) e. ZZ )
104		difss 3593	. . . . . . . . . . . . . . 15 |- ( ( 1 ... M ) \ { k } ) C_ ( 1 ... M )
105		ssfi 7796	. . . . . . . . . . . . . . 15 |- ( ( ( 1 ... M ) e. Fin /\ ( ( 1 ... M ) \ { k } ) C_ ( 1 ... M ) ) -> ( ( 1 ... M ) \ { k } ) e. Fin )
106	50, 104, 105	mp2an 677	. . . . . . . . . . . . . 14 |- ( ( 1 ... M ) \ { k } ) e. Fin
107	106	a1i 11	. . . . . . . . . . . . 13 |- ( ph -> ( ( 1 ... M ) \ { k } ) e. Fin )
108	57	adantr 467	. . . . . . . . . . . . . 14 |- ( ( ph /\ j e. ( ( 1 ... M ) \ { k } ) ) -> P e. NN )
109	23	adantr 467	. . . . . . . . . . . . . 14 |- ( ( ph /\ j e. ( ( 1 ... M ) \ { k } ) ) -> D : ( 0 ... M ) --> ( 0 ... I ) )
110	104, 40	sstri 3474	. . . . . . . . . . . . . . . 16 |- ( ( 1 ... M ) \ { k } ) C_ ( 0 ... M )
111	110	sseli 3461	. . . . . . . . . . . . . . 15 |- ( j e. ( ( 1 ... M ) \ { k } ) -> j e. ( 0 ... M ) )
112	111	adantl 468	. . . . . . . . . . . . . 14 |- ( ( ph /\ j e. ( ( 1 ... M ) \ { k } ) ) -> j e. ( 0 ... M ) )
113	91	adantr 467	. . . . . . . . . . . . . 14 |- ( ( ph /\ j e. ( ( 1 ... M ) \ { k } ) ) -> J e. ZZ )
114	108, 109, 112, 113	etransclem3 37966	. . . . . . . . . . . . 13 |- ( ( ph /\ j e. ( ( 1 ... M ) \ { k } ) ) -> if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ )
115	107, 114	fprodzcl 14001	. . . . . . . . . . . 12 |- ( ph -> prod_ j e. ( ( 1 ... M ) \ { k } ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ )
116	115	adantr 467	. . . . . . . . . . 11 |- ( ( ph /\ k e. ( 1 ... M ) ) -> prod_ j e. ( ( 1 ... M ) \ { k } ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ )
117	97, 103, 116	3jca 1186	. . . . . . . . . 10 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( P e. ZZ /\ if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) e. ZZ /\ prod_ j e. ( ( 1 ... M ) \ { k } ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ ) )
118	117	3adant3 1026	. . . . . . . . 9 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> ( P e. ZZ /\ if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) e. ZZ /\ prod_ j e. ( ( 1 ... M ) \ { k } ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ ) )
119		dvds0 14311	. . . . . . . . . . . . . 14 |- ( P e. ZZ -> P || 0 )
120	72, 119	syl 17	. . . . . . . . . . . . 13 |- ( ph -> P || 0 )
121	120	adantr 467	. . . . . . . . . . . 12 |- ( ( ph /\ P < ( D ` k ) ) -> P || 0 )
122	121	3ad2antl1 1168	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ P < ( D ` k ) ) -> P || 0 )
123		iftrue 3916	. . . . . . . . . . . . 13 |- ( P < ( D ` k ) -> if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) = 0 )
124	123	eqcomd 2431	. . . . . . . . . . . 12 |- ( P < ( D ` k ) -> 0 = if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) )
125	124	adantl 468	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ P < ( D ` k ) ) -> 0 = if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) )
126	122, 125	breqtrd 4446	. . . . . . . . . 10 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ P < ( D ` k ) ) -> P || if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) )
127	97	adantr 467	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> P e. ZZ )
128		0zd 10951	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ k e. ( 1 ... M ) ) -> 0 e. ZZ )
129	99, 101	ffvelrnd 6036	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( D ` k ) e. ( 0 ... I ) )
130	129	elfzelzd 37422	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( D ` k ) e. ZZ )
131	97, 130	zsubcld 11047	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( P - ( D ` k ) ) e. ZZ )
132	128, 97, 131	3jca 1186	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( 0 e. ZZ /\ P e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) )
133	132	adantr 467	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( 0 e. ZZ /\ P e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) )
134		fzssre 37421	. . . . . . . . . . . . . . . . . . . . . 22 |- ( 0 ... I ) C_ RR
135	134, 129	sseldi 3463	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( D ` k ) e. RR )
136	135	adantr 467	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( D ` k ) e. RR )
137	127	zred 11042	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> P e. RR )
138		simpr 463	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> -. P < ( D ` k ) )
139	136, 137, 138	nltled 9787	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( D ` k ) <_ P )
140	137, 136	subge0d 10205	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( 0 <_ ( P - ( D ` k ) ) <-> ( D ` k ) <_ P ) )
141	139, 140	mpbird 236	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> 0 <_ ( P - ( D ` k ) ) )
142		elfzle1 11804	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( D ` k ) e. ( 0 ... I ) -> 0 <_ ( D ` k ) )
143	129, 142	syl 17	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ k e. ( 1 ... M ) ) -> 0 <_ ( D ` k ) )
144	143	adantr 467	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> 0 <_ ( D ` k ) )
145	137, 136	subge02d 10207	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( 0 <_ ( D ` k ) <-> ( P - ( D ` k ) ) <_ P ) )
146	144, 145	mpbid 214	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( P - ( D ` k ) ) <_ P )
147	133, 141, 146	jca32 538	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ( 0 e. ZZ /\ P e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) /\ ( 0 <_ ( P - ( D ` k ) ) /\ ( P - ( D ` k ) ) <_ P ) ) )
148		elfz2 11793	. . . . . . . . . . . . . . . . 17 |- ( ( P - ( D ` k ) ) e. ( 0 ... P ) <-> ( ( 0 e. ZZ /\ P e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) /\ ( 0 <_ ( P - ( D ` k ) ) /\ ( P - ( D ` k ) ) <_ P ) ) )
149	147, 148	sylibr 216	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( P - ( D ` k ) ) e. ( 0 ... P ) )
150		permnn 12512	. . . . . . . . . . . . . . . 16 |- ( ( P - ( D ` k ) ) e. ( 0 ... P ) -> ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) e. NN )
151	149, 150	syl 17	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) e. NN )
152	151	nnzd 11041	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) e. ZZ )
153	101	elfzelzd 37422	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ k e. ( 1 ... M ) ) -> k e. ZZ )
154	102, 153	zsubcld 11047	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( J - k ) e. ZZ )
155	154	adantr 467	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( J - k ) e. ZZ )
156	131	adantr 467	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( P - ( D ` k ) ) e. ZZ )
157		elnn0z 10952	. . . . . . . . . . . . . . . 16 |- ( ( P - ( D ` k ) ) e. NN0 <-> ( ( P - ( D ` k ) ) e. ZZ /\ 0 <_ ( P - ( D ` k ) ) ) )
158	156, 141, 157	sylanbrc 669	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( P - ( D ` k ) ) e. NN0 )
159		zexpcl 12288	. . . . . . . . . . . . . . 15 |- ( ( ( J - k ) e. ZZ /\ ( P - ( D ` k ) ) e. NN0 ) -> ( ( J - k ) ^ ( P - ( D ` k ) ) ) e. ZZ )
160	155, 158, 159	syl2anc 666	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ( J - k ) ^ ( P - ( D ` k ) ) ) e. ZZ )
161	127, 152, 160	3jca 1186	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( P e. ZZ /\ ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) e. ZZ /\ ( ( J - k ) ^ ( P - ( D ` k ) ) ) e. ZZ ) )
162	161	3adantl3 1164	. . . . . . . . . . . 12 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( P e. ZZ /\ ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) e. ZZ /\ ( ( J - k ) ^ ( P - ( D ` k ) ) ) e. ZZ ) )
163	127	3adantl3 1164	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> P e. ZZ )
164	59	nn0zd 11040	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ph -> ( P - 1 ) e. ZZ )
165	164	adantr 467	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( P - 1 ) e. ZZ )
166	128, 165, 131	3jca 1186	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ k e. ( 1 ... M ) ) -> ( 0 e. ZZ /\ ( P - 1 ) e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) )
167	166	3adant3 1026	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> ( 0 e. ZZ /\ ( P - 1 ) e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) )
168	167	adantr 467	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( 0 e. ZZ /\ ( P - 1 ) e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) )
169	141	3adantl3 1164	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> 0 <_ ( P - ( D ` k ) ) )
170		1red 9660	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ ( D ` k ) e. NN ) -> 1 e. RR )
171		nnre 10618	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( D ` k ) e. NN -> ( D ` k ) e. RR )
172	171	adantl 468	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ ( D ` k ) e. NN ) -> ( D ` k ) e. RR )
173	57	nnred 10626	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ph -> P e. RR )
174	173	adantr 467	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ ( D ` k ) e. NN ) -> P e. RR )
175		nnge1 10637	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( D ` k ) e. NN -> 1 <_ ( D ` k ) )
176	175	adantl 468	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ ( D ` k ) e. NN ) -> 1 <_ ( D ` k ) )
177	170, 172, 174, 176	lesub2dd 10232	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ ( D ` k ) e. NN ) -> ( P - ( D ` k ) ) <_ ( P - 1 ) )
178	177	3adant2 1025	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> ( P - ( D ` k ) ) <_ ( P - 1 ) )
179	178	adantr 467	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( P - ( D ` k ) ) <_ ( P - 1 ) )
180	168, 169, 179	jca32 538	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( ( 0 e. ZZ /\ ( P - 1 ) e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) /\ ( 0 <_ ( P - ( D ` k ) ) /\ ( P - ( D ` k ) ) <_ ( P - 1 ) ) ) )
181		elfz2 11793	. . . . . . . . . . . . . . . . 17 |- ( ( P - ( D ` k ) ) e. ( 0 ... ( P - 1 ) ) <-> ( ( 0 e. ZZ /\ ( P - 1 ) e. ZZ /\ ( P - ( D ` k ) ) e. ZZ ) /\ ( 0 <_ ( P - ( D ` k ) ) /\ ( P - ( D ` k ) ) <_ ( P - 1 ) ) ) )
182	180, 181	sylibr 216	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( P - ( D ` k ) ) e. ( 0 ... ( P - 1 ) ) )
183		permnn 12512	. . . . . . . . . . . . . . . 16 |- ( ( P - ( D ` k ) ) e. ( 0 ... ( P - 1 ) ) -> ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) e. NN )
184	182, 183	syl 17	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) e. NN )
185	184	nnzd 11041	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) e. ZZ )
186		dvdsmul1 14317	. . . . . . . . . . . . . 14 |- ( ( P e. ZZ /\ ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) e. ZZ ) -> P || ( P x. ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) ) )
187	163, 185, 186	syl2anc 666	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> P || ( P x. ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) ) )
188	57	nncnd 10627	. . . . . . . . . . . . . . . . . . . . 21 |- ( ph -> P e. CC )
189		1cnd 9661	. . . . . . . . . . . . . . . . . . . . 21 |- ( ph -> 1 e. CC )
190	188, 189	npcand 9992	. . . . . . . . . . . . . . . . . . . 20 |- ( ph -> ( ( P - 1 ) + 1 ) = P )
191	190	eqcomd 2431	. . . . . . . . . . . . . . . . . . 19 |- ( ph -> P = ( ( P - 1 ) + 1 ) )
192	191	fveq2d 5883	. . . . . . . . . . . . . . . . . 18 |- ( ph -> ( ! ` P ) = ( ! ` ( ( P - 1 ) + 1 ) ) )
193		facp1 12465	. . . . . . . . . . . . . . . . . . 19 |- ( ( P - 1 ) e. NN0 -> ( ! ` ( ( P - 1 ) + 1 ) ) = ( ( ! ` ( P - 1 ) ) x. ( ( P - 1 ) + 1 ) ) )
194	59, 193	syl 17	. . . . . . . . . . . . . . . . . 18 |- ( ph -> ( ! ` ( ( P - 1 ) + 1 ) ) = ( ( ! ` ( P - 1 ) ) x. ( ( P - 1 ) + 1 ) ) )
195	190	oveq2d 6319	. . . . . . . . . . . . . . . . . . 19 |- ( ph -> ( ( ! ` ( P - 1 ) ) x. ( ( P - 1 ) + 1 ) ) = ( ( ! ` ( P - 1 ) ) x. P ) )
196	59	faccld 37419	. . . . . . . . . . . . . . . . . . . . 21 |- ( ph -> ( ! ` ( P - 1 ) ) e. NN )
197	196	nncnd 10627	. . . . . . . . . . . . . . . . . . . 20 |- ( ph -> ( ! ` ( P - 1 ) ) e. CC )
198	197, 188	mulcomd 9666	. . . . . . . . . . . . . . . . . . 19 |- ( ph -> ( ( ! ` ( P - 1 ) ) x. P ) = ( P x. ( ! ` ( P - 1 ) ) ) )
199	195, 198	eqtrd 2464	. . . . . . . . . . . . . . . . . 18 |- ( ph -> ( ( ! ` ( P - 1 ) ) x. ( ( P - 1 ) + 1 ) ) = ( P x. ( ! ` ( P - 1 ) ) ) )
200	192, 194, 199	3eqtrd 2468	. . . . . . . . . . . . . . . . 17 |- ( ph -> ( ! ` P ) = ( P x. ( ! ` ( P - 1 ) ) ) )
201	200	oveq1d 6318	. . . . . . . . . . . . . . . 16 |- ( ph -> ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) = ( ( P x. ( ! ` ( P - 1 ) ) ) / ( ! ` ( P - ( D ` k ) ) ) ) )
202	201	adantr 467	. . . . . . . . . . . . . . 15 |- ( ( ph /\ -. P < ( D ` k ) ) -> ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) = ( ( P x. ( ! ` ( P - 1 ) ) ) / ( ! ` ( P - ( D ` k ) ) ) ) )
203	202	3ad2antl1 1168	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) = ( ( P x. ( ! ` ( P - 1 ) ) ) / ( ! ` ( P - ( D ` k ) ) ) ) )
204	188	ad2antrr 731	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> P e. CC )
205	197	ad2antrr 731	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ! ` ( P - 1 ) ) e. CC )
206	158	faccld 37419	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ! ` ( P - ( D ` k ) ) ) e. NN )
207	206	nncnd 10627	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ! ` ( P - ( D ` k ) ) ) e. CC )
208	206	nnne0d 10656	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ! ` ( P - ( D ` k ) ) ) =/= 0 )
209	204, 205, 207, 208	divassd 10420	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ k e. ( 1 ... M ) ) /\ -. P < ( D ` k ) ) -> ( ( P x. ( ! ` ( P - 1 ) ) ) / ( ! ` ( P - ( D ` k ) ) ) ) = ( P x. ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) ) )
210	209	3adantl3 1164	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( ( P x. ( ! ` ( P - 1 ) ) ) / ( ! ` ( P - ( D ` k ) ) ) ) = ( P x. ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) ) )
211	203, 210	eqtr2d 2465	. . . . . . . . . . . . 13 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> ( P x. ( ( ! ` ( P - 1 ) ) / ( ! ` ( P - ( D ` k ) ) ) ) ) = ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) )
212	187, 211	breqtrd 4446	. . . . . . . . . . . 12 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> P || ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) )
213		dvdsmultr1 14331	. . . . . . . . . . . 12 |- ( ( P e. ZZ /\ ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) e. ZZ /\ ( ( J - k ) ^ ( P - ( D ` k ) ) ) e. ZZ ) -> ( P || ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) -> P || ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) )
214	162, 212, 213	sylc 63	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> P || ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) )
215		iffalse 3919	. . . . . . . . . . . 12 |- ( -. P < ( D ` k ) -> if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) = ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) )
216	215	adantl 468	. . . . . . . . . . 11 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) = ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) )
217	214, 216	breqtrrd 4448	. . . . . . . . . 10 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ -. P < ( D ` k ) ) -> P || if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) )
218	126, 217	pm2.61dan 799	. . . . . . . . 9 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> P || if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) )
219		dvdsmultr1 14331	. . . . . . . . 9 |- ( ( P e. ZZ /\ if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) e. ZZ /\ prod_ j e. ( ( 1 ... M ) \ { k } ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ ) -> ( P || if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) -> P || ( if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) x. prod_ j e. ( ( 1 ... M ) \ { k } ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) )
220	118, 218, 219	sylc 63	. . . . . . . 8 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> P || ( if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) x. prod_ j e. ( ( 1 ... M ) \ { k } ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
221		fzfid 12187	. . . . . . . . 9 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> ( 1 ... M ) e. Fin )
222	93	zcnd 11043	. . . . . . . . . 10 |- ( ( ph /\ j e. ( 1 ... M ) ) -> if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. CC )
223	222	3ad2antl1 1168	. . . . . . . . 9 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ j e. ( 1 ... M ) ) -> if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. CC )
224		simp2 1007	. . . . . . . . 9 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> k e. ( 1 ... M ) )
225		fveq2 5879	. . . . . . . . . . . 12 |- ( j = k -> ( D ` j ) = ( D ` k ) )
226	225	breq2d 4433	. . . . . . . . . . 11 |- ( j = k -> ( P < ( D ` j ) <-> P < ( D ` k ) ) )
227	225	oveq2d 6319	. . . . . . . . . . . . . 14 |- ( j = k -> ( P - ( D ` j ) ) = ( P - ( D ` k ) ) )
228	227	fveq2d 5883	. . . . . . . . . . . . 13 |- ( j = k -> ( ! ` ( P - ( D ` j ) ) ) = ( ! ` ( P - ( D ` k ) ) ) )
229	228	oveq2d 6319	. . . . . . . . . . . 12 |- ( j = k -> ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) = ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) )
230		oveq2 6311	. . . . . . . . . . . . 13 |- ( j = k -> ( J - j ) = ( J - k ) )
231	230, 227	oveq12d 6321	. . . . . . . . . . . 12 |- ( j = k -> ( ( J - j ) ^ ( P - ( D ` j ) ) ) = ( ( J - k ) ^ ( P - ( D ` k ) ) ) )
232	229, 231	oveq12d 6321	. . . . . . . . . . 11 |- ( j = k -> ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) = ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) )
233	226, 232	ifbieq2d 3935	. . . . . . . . . 10 |- ( j = k -> if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) = if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) )
234	233	adantl 468	. . . . . . . . 9 |- ( ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) /\ j = k ) -> if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) = if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) )
235	221, 223, 224, 234	fprodsplit1 37537	. . . . . . . 8 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) = ( if ( P < ( D ` k ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` k ) ) ) ) x. ( ( J - k ) ^ ( P - ( D ` k ) ) ) ) ) x. prod_ j e. ( ( 1 ... M ) \ { k } ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
236	220, 235	breqtrrd 4448	. . . . . . 7 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> P || prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) )
237		dvdsmultr2 14333	. . . . . . 7 |- ( ( P e. ZZ /\ ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) e. ZZ /\ prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. ZZ ) -> ( P || prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) -> P || ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) )
238	96, 236, 237	sylc 63	. . . . . 6 |- ( ( ph /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> P || ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
239	238	3adant1r 1258	. . . . 5 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> P || ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
240		simpr 463	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( D ` 0 ) = ( P - 1 ) )
241		eluzfz1 11808	. . . . . . . . . . . . . . . . . . 19 |- ( M e. ( ZZ>= ` 0 ) -> 0 e. ( 0 ... M ) )
242	16, 241	syl 17	. . . . . . . . . . . . . . . . . 18 |- ( ph -> 0 e. ( 0 ... M ) )
243	23, 242	ffvelrnd 6036	. . . . . . . . . . . . . . . . 17 |- ( ph -> ( D ` 0 ) e. ( 0 ... I ) )
244	134, 243	sseldi 3463	. . . . . . . . . . . . . . . 16 |- ( ph -> ( D ` 0 ) e. RR )
245	244	adantr 467	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( D ` 0 ) e. RR )
246	60	adantr 467	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( P - 1 ) e. RR )
247	245, 246	lttri3d 9777	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( D ` 0 ) = ( P - 1 ) <-> ( -. ( D ` 0 ) < ( P - 1 ) /\ -. ( P - 1 ) < ( D ` 0 ) ) ) )
248	240, 247	mpbid 214	. . . . . . . . . . . . 13 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( -. ( D ` 0 ) < ( P - 1 ) /\ -. ( P - 1 ) < ( D ` 0 ) ) )
249	248	simprd 465	. . . . . . . . . . . 12 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> -. ( P - 1 ) < ( D ` 0 ) )
250	249	iffalsed 3921	. . . . . . . . . . 11 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) = ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) )
251		oveq2 6311	. . . . . . . . . . . . . . . . 17 |- ( ( D ` 0 ) = ( P - 1 ) -> ( ( P - 1 ) - ( D ` 0 ) ) = ( ( P - 1 ) - ( P - 1 ) ) )
252	61	subidd 9976	. . . . . . . . . . . . . . . . 17 |- ( ph -> ( ( P - 1 ) - ( P - 1 ) ) = 0 )
253	251, 252	sylan9eqr 2486	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( P - 1 ) - ( D ` 0 ) ) = 0 )
254	253	fveq2d 5883	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) = ( ! ` 0 ) )
255		fac0 12463	. . . . . . . . . . . . . . 15 |- ( ! ` 0 ) = 1
256	254, 255	syl6eq 2480	. . . . . . . . . . . . . 14 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) = 1 )
257	256	oveq2d 6319	. . . . . . . . . . . . 13 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) = ( ( ! ` ( P - 1 ) ) / 1 ) )
258	197	div1d 10377	. . . . . . . . . . . . . 14 |- ( ph -> ( ( ! ` ( P - 1 ) ) / 1 ) = ( ! ` ( P - 1 ) ) )
259	258	adantr 467	. . . . . . . . . . . . 13 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ! ` ( P - 1 ) ) / 1 ) = ( ! ` ( P - 1 ) ) )
260	257, 259	eqtrd 2464	. . . . . . . . . . . 12 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) = ( ! ` ( P - 1 ) ) )
261	253	oveq2d 6319	. . . . . . . . . . . . 13 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) = ( J ^ 0 ) )
262	91	zcnd 11043	. . . . . . . . . . . . . . 15 |- ( ph -> J e. CC )
263	262	exp0d 12411	. . . . . . . . . . . . . 14 |- ( ph -> ( J ^ 0 ) = 1 )
264	263	adantr 467	. . . . . . . . . . . . 13 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( J ^ 0 ) = 1 )
265	261, 264	eqtrd 2464	. . . . . . . . . . . 12 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) = 1 )
266	260, 265	oveq12d 6321	. . . . . . . . . . 11 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) = ( ( ! ` ( P - 1 ) ) x. 1 ) )
267	197	mulid1d 9662	. . . . . . . . . . . 12 |- ( ph -> ( ( ! ` ( P - 1 ) ) x. 1 ) = ( ! ` ( P - 1 ) ) )
268	267	adantr 467	. . . . . . . . . . 11 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ! ` ( P - 1 ) ) x. 1 ) = ( ! ` ( P - 1 ) ) )
269	250, 266, 268	3eqtrd 2468	. . . . . . . . . 10 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) = ( ! ` ( P - 1 ) ) )
270	269	oveq1d 6318	. . . . . . . . 9 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) = ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
271	270	oveq2d 6319	. . . . . . . 8 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) = ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) )
272	271	oveq1d 6318	. . . . . . 7 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) = ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) )
273	83	nncnd 10627	. . . . . . . . 9 |- ( ph -> ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) e. CC )
274	94	zcnd 11043	. . . . . . . . . 10 |- ( ph -> prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) e. CC )
275	197, 274	mulcld 9665	. . . . . . . . 9 |- ( ph -> ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) e. CC )
276	196	nnne0d 10656	. . . . . . . . 9 |- ( ph -> ( ! ` ( P - 1 ) ) =/= 0 )
277	273, 275, 197, 276	divassd 10420	. . . . . . . 8 |- ( ph -> ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) = ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) ) )
278	277	adantr 467	. . . . . . 7 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) = ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) ) )
279	274, 197, 276	divcan3d 10390	. . . . . . . . 9 |- ( ph -> ( ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) = prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) )
280	279	oveq2d 6319	. . . . . . . 8 |- ( ph -> ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) ) = ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
281	280	adantr 467	. . . . . . 7 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( ( ( ! ` ( P - 1 ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) ) = ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
282	272, 278, 281	3eqtrd 2468	. . . . . 6 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) = ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
283	282	3ad2ant1 1027	. . . . 5 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) = ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) )
284	239, 283	breqtrrd 4448	. . . 4 |- ( ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) /\ k e. ( 1 ... M ) /\ ( D ` k ) e. NN ) -> P || ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) )
285	284	rexlimdv3a 2920	. . 3 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> ( E. k e. ( 1 ... M ) ( D ` k ) e. NN -> P || ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) ) )
286	71, 285	mpd 15	. 2 |- ( ( ph /\ ( D ` 0 ) = ( P - 1 ) ) -> P || ( ( ( ( ! ` I ) / prod_ j e. ( 0 ... M ) ( ! ` ( D ` j ) ) ) x. ( if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) x. prod_ j e. ( 1 ... M ) if ( P < ( D ` j ) , 0 , ( ( ( ! ` P ) / ( ! ` ( P - ( D ` j ) ) ) ) x. ( ( J - j ) ^ ( P - ( D ` j ) ) ) ) ) ) ) / ( ! ` ( P - 1 ) ) ) )
287	120	adantr 467	. . 3 |- ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) -> P || 0 )
288		simpr 463	. . . . . . . . . . 11 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ ( P - 1 ) < ( D ` 0 ) ) -> ( P - 1 ) < ( D ` 0 ) )
289	288	iftrued 3918	. . . . . . . . . 10 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ ( P - 1 ) < ( D ` 0 ) ) -> if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) = 0 )
290		simpr 463	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ -. ( P - 1 ) < ( D ` 0 ) ) -> -. ( P - 1 ) < ( D ` 0 ) )
291	290	iffalsed 3921	. . . . . . . . . . 11 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ -. ( P - 1 ) < ( D ` 0 ) ) -> if ( ( P - 1 ) < ( D ` 0 ) , 0 , ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) ) = ( ( ( ! ` ( P - 1 ) ) / ( ! ` ( ( P - 1 ) - ( D ` 0 ) ) ) ) x. ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) ) )
292		simpll 759	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ -. ( P - 1 ) < ( D ` 0 ) ) -> ph )
293	244	ad2antrr 731	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ -. ( P - 1 ) < ( D ` 0 ) ) -> ( D ` 0 ) e. RR )
294	60	ad2antrr 731	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ -. ( P - 1 ) < ( D ` 0 ) ) -> ( P - 1 ) e. RR )
295	293, 294, 290	nltled 9787	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ -. ( P - 1 ) < ( D ` 0 ) ) -> ( D ` 0 ) <_ ( P - 1 ) )
296		id 23	. . . . . . . . . . . . . . 15 |- ( ( D ` 0 ) =/= ( P - 1 ) -> ( D ` 0 ) =/= ( P - 1 ) )
297	296	necomd 2696	. . . . . . . . . . . . . 14 |- ( ( D ` 0 ) =/= ( P - 1 ) -> ( P - 1 ) =/= ( D ` 0 ) )
298	297	ad2antlr 732	. . . . . . . . . . . . 13 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ -. ( P - 1 ) < ( D ` 0 ) ) -> ( P - 1 ) =/= ( D ` 0 ) )
299	293, 294, 295, 298	leneltd 9791	. . . . . . . . . . . 12 |- ( ( ( ph /\ ( D ` 0 ) =/= ( P - 1 ) ) /\ -. ( P - 1 ) < ( D ` 0 ) ) -> ( D ` 0 ) < ( P - 1 ) )
300	89	oveq1d 6318	. . . . . . . . . . . . . . . 16 |- ( ph -> ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) = ( 0 ^ ( ( P - 1 ) - ( D ` 0 ) ) ) )
301	300	adantr 467	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( D ` 0 ) < ( P - 1 ) ) -> ( J ^ ( ( P - 1 ) - ( D ` 0 ) ) ) = ( 0 ^ ( ( P - 1 ) - ( D ` 0 ) ) ) )
302	243	elfzelzd 37422	. . . . . . . . . . . . . . . . . . 19 |- ( ph -> ( D ` 0 ) e. ZZ )
303	164, 302	zsubcld 11047	. . . . . . . . . . . . . . . . . 18 |- ( ph -> ( ( P - 1 ) - ( D ` 0 ) ) e. ZZ )
304	303	adantr 467	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( D ` 0 ) < ( P - 1 ) ) -> ( ( P - 1 ) - ( D ` 0 ) ) e. ZZ )
305		simpr 463	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ ( D ` 0 ) < ( P - 1 ) ) -> ( D ` 0 ) < ( P - 1 ) )
306	244	adantr 467	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ ( D ` 0 ) < ( P - 1 ) ) -> ( D ` 0 ) e. RR )
307	60	adantr 467	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ ( D ` 0 ) < ( P - 1 ) ) -> ( P - 1 ) e. RR )
308	306, 307	posdifd 10202	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ ( D ` 0 ) < ( P - 1 ) ) -> ( ( D ` 0 ) < ( P - 1 ) <-> 0 < ( ( P - 1 ) - ( D ` 0 ) ) ) )
309	305, 308	mpbid 214	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ ( D ` 0 ) < ( P - 1 ) ) -> 0 < ( ( P - 1 ) - ( D ` 0 ) ) )
310		elnnz 10949	. . . . . . . . . . . . . . . . 17 |- ( ( ( P - 1 ) - ( D ` 0 ) ) e. NN <-> ( ( ( P - 1 ) - ( D ` 0 ) ) e. ZZ /\ 0 < ( ( P - 1 ) - ( D ` 0 ) ) ) )
311	304, 309, 310	sylanbrc 669	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ ( D ` 0 ) < ( P - 1 ) ) -> ( ( P - 1 ) - ( D ` 0 ) ) e. NN )
312	311	0expd 12433	. . . . . . . . . . . . . . 15 |- ( ( ph /\ ( D