Theorem fourierdlem101 38011

Description: Integral by substitution for a piecewise continuous function. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

Hypotheses

Ref	Expression
fourierdlem101.d	|- D = ( n e. NN |-> ( s e. RR |-> if ( ( s mod ( 2 x. pi ) ) = 0 , ( ( ( 2 x. n ) + 1 ) / ( 2 x. pi ) ) , ( ( sin ` ( ( n + ( 1 / 2 ) ) x. s ) ) / ( ( 2 x. pi ) x. ( sin ` ( s / 2 ) ) ) ) ) ) )
fourierdlem101.p	|- P = ( m e. NN |-> { p e. ( RR ^m ( 0 ... m ) ) | ( ( ( p ` 0 ) = -u pi /\ ( p ` m ) = pi ) /\ A. i e. ( 0..^ m ) ( p ` i ) < ( p ` ( i + 1 ) ) ) } )
fourierdlem101.g	|- G = ( t e. ( -u pi [,] pi ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) )
fourierdlem101.q	|- ( ph -> Q e. ( P ` M ) )
fourierdlem101.6	|- ( ph -> M e. NN )
fourierdlem101.n	|- ( ph -> N e. NN )
fourierdlem101.x	|- ( ph -> X e. RR )
fourierdlem101.f	|- ( ph -> F : ( -u pi [,] pi ) --> CC )
fourierdlem101.fcn	|- ( ( ph /\ i e. ( 0..^ M ) ) -> ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> CC ) )
fourierdlem101.r	|- ( ( ph /\ i e. ( 0..^ M ) ) -> R e. ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) lim CC ( Q ` i ) ) )
fourierdlem101.l	|- ( ( ph /\ i e. ( 0..^ M ) ) -> L e. ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) lim CC ( Q ` ( i + 1 ) ) ) )

Assertion

Ref	Expression
fourierdlem101	|- ( ph -> S. ( -u pi [,] pi ) ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) _d t = S. ( ( -u pi - X ) [,] ( pi - X ) ) ( ( F ` ( X + s ) ) x. ( ( D ` N ) ` s ) ) _d s )

Distinct variable groups:   D, s, t   t, F   i, G, s, t   t, L   i, M, s, t   m, M, p, i   n, N, s   t, N   Q, i, s, t   Q, p   t, R   i, X, s, t   ph, i, s, t   ph, n

Allowed substitution hints:   ph( m, p)   D( i, m, n, p)   P( t, i, m, n, s, p)   Q( m, n)   R( i, m, n, s, p)   F( i, m, n, s, p)   G( m, n, p)   L( i, m, n, s, p)   M( n)   N( i, m, p)   X( m, n, p)

Proof of Theorem fourierdlem101

Dummy variables r j are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 462	. . . . 5 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> t e. ( -u pi [,] pi ) )
2		fourierdlem101.f	. . . . . . 7 |- ( ph -> F : ( -u pi [,] pi ) --> CC )
3	2	ffvelrnda 6037	. . . . . 6 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> ( F ` t ) e. CC )
4		fourierdlem101.n	. . . . . . . . 9 |- ( ph -> N e. NN )
5	4	adantr 466	. . . . . . . 8 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> N e. NN )
6		pire 23411	. . . . . . . . . . . 12 |- pi e. RR
7	6	renegcli 9942	. . . . . . . . . . 11 |- -u pi e. RR
8		eliccre 37552	. . . . . . . . . . 11 |- ( ( -u pi e. RR /\ pi e. RR /\ t e. ( -u pi [,] pi ) ) -> t e. RR )
9	7, 6, 8	mp3an12 1350	. . . . . . . . . 10 |- ( t e. ( -u pi [,] pi ) -> t e. RR )
10	9	adantl 467	. . . . . . . . 9 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> t e. RR )
11		fourierdlem101.x	. . . . . . . . . 10 |- ( ph -> X e. RR )
12	11	adantr 466	. . . . . . . . 9 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> X e. RR )
13	10, 12	resubcld 10054	. . . . . . . 8 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> ( t - X ) e. RR )
14		fourierdlem101.d	. . . . . . . . 9 |- D = ( n e. NN |-> ( s e. RR |-> if ( ( s mod ( 2 x. pi ) ) = 0 , ( ( ( 2 x. n ) + 1 ) / ( 2 x. pi ) ) , ( ( sin ` ( ( n + ( 1 / 2 ) ) x. s ) ) / ( ( 2 x. pi ) x. ( sin ` ( s / 2 ) ) ) ) ) ) )
15	14	dirkerre 37897	. . . . . . . 8 |- ( ( N e. NN /\ ( t - X ) e. RR ) -> ( ( D ` N ) ` ( t - X ) ) e. RR )
16	5, 13, 15	syl2anc 665	. . . . . . 7 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> ( ( D ` N ) ` ( t - X ) ) e. RR )
17	16	recnd 9676	. . . . . 6 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> ( ( D ` N ) ` ( t - X ) ) e. CC )
18	3, 17	mulcld 9670	. . . . 5 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) e. CC )
19		fourierdlem101.g	. . . . . 6 |- G = ( t e. ( -u pi [,] pi ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) )
20	19	fvmpt2 5973	. . . . 5 |- ( ( t e. ( -u pi [,] pi ) /\ ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) e. CC ) -> ( G ` t ) = ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) )
21	1, 18, 20	syl2anc 665	. . . 4 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> ( G ` t ) = ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) )
22	21	eqcomd 2430	. . 3 |- ( ( ph /\ t e. ( -u pi [,] pi ) ) -> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) = ( G ` t ) )
23	22	itgeq2dv 22737	. 2 |- ( ph -> S. ( -u pi [,] pi ) ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) _d t = S. ( -u pi [,] pi ) ( G ` t ) _d t )
24		fourierdlem101.p	. . 3 |- P = ( m e. NN |-> { p e. ( RR ^m ( 0 ... m ) ) | ( ( ( p ` 0 ) = -u pi /\ ( p ` m ) = pi ) /\ A. i e. ( 0..^ m ) ( p ` i ) < ( p ` ( i + 1 ) ) ) } )
25		fveq2 5881	. . . . 5 |- ( j = i -> ( Q ` j ) = ( Q ` i ) )
26	25	oveq1d 6320	. . . 4 |- ( j = i -> ( ( Q ` j ) - X ) = ( ( Q ` i ) - X ) )
27	26	cbvmptv 4516	. . 3 |- ( j e. ( 0 ... M ) |-> ( ( Q ` j ) - X ) ) = ( i e. ( 0 ... M ) |-> ( ( Q ` i ) - X ) )
28		fourierdlem101.6	. . 3 |- ( ph -> M e. NN )
29		fourierdlem101.q	. . 3 |- ( ph -> Q e. ( P ` M ) )
30	18, 19	fmptd 6061	. . 3 |- ( ph -> G : ( -u pi [,] pi ) --> CC )
31	19	reseq1i 5120	. . . . 5 |- ( G |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) = ( ( t e. ( -u pi [,] pi ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) )
32		ioossicc 11727	. . . . . . 7 |- ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) C_ ( ( Q ` i ) [,] ( Q ` ( i + 1 ) ) )
33	7	a1i 11	. . . . . . . . . 10 |- ( ph -> -u pi e. RR )
34	33	rexrd 9697	. . . . . . . . 9 |- ( ph -> -u pi e. RR* )
35	34	adantr 466	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> -u pi e. RR* )
36	6	a1i 11	. . . . . . . . . 10 |- ( ph -> pi e. RR )
37	36	rexrd 9697	. . . . . . . . 9 |- ( ph -> pi e. RR* )
38	37	adantr 466	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> pi e. RR* )
39	24, 28, 29	fourierdlem15 37924	. . . . . . . . 9 |- ( ph -> Q : ( 0 ... M ) --> ( -u pi [,] pi ) )
40	39	adantr 466	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> Q : ( 0 ... M ) --> ( -u pi [,] pi ) )
41		simpr 462	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> i e. ( 0..^ M ) )
42	35, 38, 40, 41	fourierdlem8 37917	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( Q ` i ) [,] ( Q ` ( i + 1 ) ) ) C_ ( -u pi [,] pi ) )
43	32, 42	syl5ss 3475	. . . . . 6 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) C_ ( -u pi [,] pi ) )
44	43	resmptd 5175	. . . . 5 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( t e. ( -u pi [,] pi ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) = ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) )
45	31, 44	syl5eq 2475	. . . 4 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( G |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) = ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) )
46	2	adantr 466	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> F : ( -u pi [,] pi ) --> CC )
47	46, 43	feqresmpt 5935	. . . . . 6 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) = ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( F ` t ) ) )
48		fourierdlem101.fcn	. . . . . 6 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> CC ) )
49	47, 48	eqeltrrd 2508	. . . . 5 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( F ` t ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> CC ) )
50		eqidd 2423	. . . . . . . . . 10 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( s e. RR |-> ( ( D ` N ) ` s ) ) = ( s e. RR |-> ( ( D ` N ) ` s ) ) )
51		simpr 462	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) /\ s = ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) -> s = ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) )
52		eqidd 2423	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) = ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) )
53		oveq1 6312	. . . . . . . . . . . . . . 15 |- ( t = r -> ( t - X ) = ( r - X ) )
54	53	adantl 467	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) /\ t = r ) -> ( t - X ) = ( r - X ) )
55		simpr 462	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) )
56		elioore 11673	. . . . . . . . . . . . . . . . 17 |- ( r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -> r e. RR )
57	56	adantl 467	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> r e. RR )
58	11	adantr 466	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> X e. RR )
59	57, 58	resubcld 10054	. . . . . . . . . . . . . . 15 |- ( ( ph /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( r - X ) e. RR )
60	59	adantlr 719	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( r - X ) e. RR )
61	52, 54, 55, 60	fvmptd 5970	. . . . . . . . . . . . 13 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) = ( r - X ) )
62	61	adantr 466	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) /\ s = ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) -> ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) = ( r - X ) )
63	51, 62	eqtrd 2463	. . . . . . . . . . 11 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) /\ s = ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) -> s = ( r - X ) )
64	63	fveq2d 5885	. . . . . . . . . 10 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) /\ s = ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) -> ( ( D ` N ) ` s ) = ( ( D ` N ) ` ( r - X ) ) )
65		elioore 11673	. . . . . . . . . . . . . . 15 |- ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -> t e. RR )
66	65	adantl 467	. . . . . . . . . . . . . 14 |- ( ( ph /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> t e. RR )
67	11	adantr 466	. . . . . . . . . . . . . 14 |- ( ( ph /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> X e. RR )
68	66, 67	resubcld 10054	. . . . . . . . . . . . 13 |- ( ( ph /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( t - X ) e. RR )
69	68	adantlr 719	. . . . . . . . . . . 12 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( t - X ) e. RR )
70		eqid 2422	. . . . . . . . . . . 12 |- ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) = ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) )
71	69, 70	fmptd 6061	. . . . . . . . . . 11 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) : ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) --> RR )
72	71	ffvelrnda 6037	. . . . . . . . . 10 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) e. RR )
73	4	ad2antrr 730	. . . . . . . . . . 11 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> N e. NN )
74	14	dirkerre 37897	. . . . . . . . . . 11 |- ( ( N e. NN /\ ( r - X ) e. RR ) -> ( ( D ` N ) ` ( r - X ) ) e. RR )
75	73, 60, 74	syl2anc 665	. . . . . . . . . 10 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( D ` N ) ` ( r - X ) ) e. RR )
76	50, 64, 72, 75	fvmptd 5970	. . . . . . . . 9 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) ` ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) = ( ( D ` N ) ` ( r - X ) ) )
77	76	eqcomd 2430	. . . . . . . 8 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( D ` N ) ` ( r - X ) ) = ( ( s e. RR |-> ( ( D ` N ) ` s ) ) ` ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) )
78	77	mpteq2dva 4510	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( r - X ) ) ) = ( r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) ` ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) ) )
79	53	fveq2d 5885	. . . . . . . . 9 |- ( t = r -> ( ( D ` N ) ` ( t - X ) ) = ( ( D ` N ) ` ( r - X ) ) )
80	79	cbvmptv 4516	. . . . . . . 8 |- ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( t - X ) ) ) = ( r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( r - X ) ) )
81	80	a1i 11	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( t - X ) ) ) = ( r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( r - X ) ) ) )
82	14	dirkerre 37897	. . . . . . . . . . 11 |- ( ( N e. NN /\ s e. RR ) -> ( ( D ` N ) ` s ) e. RR )
83	4, 82	sylan 473	. . . . . . . . . 10 |- ( ( ph /\ s e. RR ) -> ( ( D ` N ) ` s ) e. RR )
84		eqid 2422	. . . . . . . . . 10 |- ( s e. RR |-> ( ( D ` N ) ` s ) ) = ( s e. RR |-> ( ( D ` N ) ` s ) )
85	83, 84	fmptd 6061	. . . . . . . . 9 |- ( ph -> ( s e. RR |-> ( ( D ` N ) ` s ) ) : RR --> RR )
86	85	adantr 466	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( s e. RR |-> ( ( D ` N ) ` s ) ) : RR --> RR )
87		fcompt 6074	. . . . . . . 8 |- ( ( ( s e. RR |-> ( ( D ` N ) ` s ) ) : RR --> RR /\ ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) : ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) --> RR ) -> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) o. ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ) = ( r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) ` ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) ) )
88	86, 71, 87	syl2anc 665	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) o. ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ) = ( r e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) ` ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ` r ) ) ) )
89	78, 81, 88	3eqtr4d 2473	. . . . . 6 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( t - X ) ) ) = ( ( s e. RR |-> ( ( D ` N ) ` s ) ) o. ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ) )
90		eqid 2422	. . . . . . . 8 |- ( t e. CC |-> ( t - X ) ) = ( t e. CC |-> ( t - X ) )
91		simpr 462	. . . . . . . . . . . . 13 |- ( ( ph /\ t e. CC ) -> t e. CC )
92	11	recnd 9676	. . . . . . . . . . . . . 14 |- ( ph -> X e. CC )
93	92	adantr 466	. . . . . . . . . . . . 13 |- ( ( ph /\ t e. CC ) -> X e. CC )
94	91, 93	negsubd 9999	. . . . . . . . . . . 12 |- ( ( ph /\ t e. CC ) -> ( t + -u X ) = ( t - X ) )
95	94	eqcomd 2430	. . . . . . . . . . 11 |- ( ( ph /\ t e. CC ) -> ( t - X ) = ( t + -u X ) )
96	95	mpteq2dva 4510	. . . . . . . . . 10 |- ( ph -> ( t e. CC |-> ( t - X ) ) = ( t e. CC |-> ( t + -u X ) ) )
97	92	negcld 9980	. . . . . . . . . . 11 |- ( ph -> -u X e. CC )
98		eqid 2422	. . . . . . . . . . . 12 |- ( t e. CC |-> ( t + -u X ) ) = ( t e. CC |-> ( t + -u X ) )
99	98	addccncf 21946	. . . . . . . . . . 11 |- ( -u X e. CC -> ( t e. CC |-> ( t + -u X ) ) e. ( CC -cn-> CC ) )
100	97, 99	syl 17	. . . . . . . . . 10 |- ( ph -> ( t e. CC |-> ( t + -u X ) ) e. ( CC -cn-> CC ) )
101	96, 100	eqeltrd 2507	. . . . . . . . 9 |- ( ph -> ( t e. CC |-> ( t - X ) ) e. ( CC -cn-> CC ) )
102	101	adantr 466	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. CC |-> ( t - X ) ) e. ( CC -cn-> CC ) )
103		ioossre 11703	. . . . . . . . . 10 |- ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) C_ RR
104		ax-resscn 9603	. . . . . . . . . 10 |- RR C_ CC
105	103, 104	sstri 3473	. . . . . . . . 9 |- ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) C_ CC
106	105	a1i 11	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) C_ CC )
107	104	a1i 11	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> RR C_ CC )
108	90, 102, 106, 107, 69	cncfmptssg 37687	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> RR ) )
109	83	recnd 9676	. . . . . . . . . 10 |- ( ( ph /\ s e. RR ) -> ( ( D ` N ) ` s ) e. CC )
110	109, 84	fmptd 6061	. . . . . . . . 9 |- ( ph -> ( s e. RR |-> ( ( D ` N ) ` s ) ) : RR --> CC )
111		ssid 3483	. . . . . . . . . 10 |- CC C_ CC
112	14	dirkerf 37899	. . . . . . . . . . . . 13 |- ( N e. NN -> ( D ` N ) : RR --> RR )
113	4, 112	syl 17	. . . . . . . . . . . 12 |- ( ph -> ( D ` N ) : RR --> RR )
114	113	feqmptd 5934	. . . . . . . . . . 11 |- ( ph -> ( D ` N ) = ( s e. RR |-> ( ( D ` N ) ` s ) ) )
115	14	dirkercncf 37909	. . . . . . . . . . . 12 |- ( N e. NN -> ( D ` N ) e. ( RR -cn-> RR ) )
116	4, 115	syl 17	. . . . . . . . . . 11 |- ( ph -> ( D ` N ) e. ( RR -cn-> RR ) )
117	114, 116	eqeltrrd 2508	. . . . . . . . . 10 |- ( ph -> ( s e. RR |-> ( ( D ` N ) ` s ) ) e. ( RR -cn-> RR ) )
118		cncffvrn 21928	. . . . . . . . . 10 |- ( ( CC C_ CC /\ ( s e. RR |-> ( ( D ` N ) ` s ) ) e. ( RR -cn-> RR ) ) -> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) e. ( RR -cn-> CC ) <-> ( s e. RR |-> ( ( D ` N ) ` s ) ) : RR --> CC ) )
119	111, 117, 118	sylancr 667	. . . . . . . . 9 |- ( ph -> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) e. ( RR -cn-> CC ) <-> ( s e. RR |-> ( ( D ` N ) ` s ) ) : RR --> CC ) )
120	110, 119	mpbird 235	. . . . . . . 8 |- ( ph -> ( s e. RR |-> ( ( D ` N ) ` s ) ) e. ( RR -cn-> CC ) )
121	120	adantr 466	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( s e. RR |-> ( ( D ` N ) ` s ) ) e. ( RR -cn-> CC ) )
122	108, 121	cncfco 21937	. . . . . 6 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( s e. RR |-> ( ( D ` N ) ` s ) ) o. ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( t - X ) ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> CC ) )
123	89, 122	eqeltrd 2507	. . . . 5 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> CC ) )
124	49, 123	mulcncf 22396	. . . 4 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> CC ) )
125	45, 124	eqeltrd 2507	. . 3 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( G |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> CC ) )
126		cncff 21923	. . . . . . . 8 |- ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -cn-> CC ) -> ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) : ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) --> CC )
127	48, 126	syl 17	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) : ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) --> CC )
128	113	adantr 466	. . . . . . . . . . 11 |- ( ( ph /\ s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( D ` N ) : RR --> RR )
129		elioore 11673	. . . . . . . . . . . . 13 |- ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -> s e. RR )
130	129	adantl 467	. . . . . . . . . . . 12 |- ( ( ph /\ s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> s e. RR )
131	11	adantr 466	. . . . . . . . . . . 12 |- ( ( ph /\ s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> X e. RR )
132	130, 131	resubcld 10054	. . . . . . . . . . 11 |- ( ( ph /\ s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( s - X ) e. RR )
133	128, 132	ffvelrnd 6038	. . . . . . . . . 10 |- ( ( ph /\ s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( D ` N ) ` ( s - X ) ) e. RR )
134	133	recnd 9676	. . . . . . . . 9 |- ( ( ph /\ s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( D ` N ) ` ( s - X ) ) e. CC )
135		eqid 2422	. . . . . . . . 9 |- ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) = ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) )
136	134, 135	fmptd 6061	. . . . . . . 8 |- ( ph -> ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) : ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) --> CC )
137	136	adantr 466	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) : ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) --> CC )
138		eqid 2422	. . . . . . 7 |- ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) = ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) )
139		fourierdlem101.r	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> R e. ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) lim CC ( Q ` i ) ) )
140		oveq1 6312	. . . . . . . . . . . . . 14 |- ( t = ( Q ` i ) -> ( t - X ) = ( ( Q ` i ) - X ) )
141	140	fveq2d 5885	. . . . . . . . . . . . 13 |- ( t = ( Q ` i ) -> ( ( D ` N ) ` ( t - X ) ) = ( ( D ` N ) ` ( ( Q ` i ) - X ) ) )
142	141	eqcomd 2430	. . . . . . . . . . . 12 |- ( t = ( Q ` i ) -> ( ( D ` N ) ` ( ( Q ` i ) - X ) ) = ( ( D ` N ) ` ( t - X ) ) )
143	142	adantl 467	. . . . . . . . . . 11 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ t = ( Q ` i ) ) -> ( ( D ` N ) ` ( ( Q ` i ) - X ) ) = ( ( D ` N ) ` ( t - X ) ) )
144		eqidd 2423	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ -. t = ( Q ` i ) ) -> ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) = ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) )
145		oveq1 6312	. . . . . . . . . . . . . 14 |- ( s = t -> ( s - X ) = ( t - X ) )
146	145	fveq2d 5885	. . . . . . . . . . . . 13 |- ( s = t -> ( ( D ` N ) ` ( s - X ) ) = ( ( D ` N ) ` ( t - X ) ) )
147	146	adantl 467	. . . . . . . . . . . 12 |- ( ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ -. t = ( Q ` i ) ) /\ s = t ) -> ( ( D ` N ) ` ( s - X ) ) = ( ( D ` N ) ` ( t - X ) ) )
148		elsn 4012	. . . . . . . . . . . . . . 15 |- ( t e. { ( Q ` i ) } <-> t = ( Q ` i ) )
149	148	notbii 297	. . . . . . . . . . . . . 14 |- ( -. t e. { ( Q ` i ) } <-> -. t = ( Q ` i ) )
150		elunnel2 37333	. . . . . . . . . . . . . 14 |- ( ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) /\ -. t e. { ( Q ` i ) } ) -> t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) )
151	149, 150	sylan2br 478	. . . . . . . . . . . . 13 |- ( ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) /\ -. t = ( Q ` i ) ) -> t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) )
152	151	adantll 718	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ -. t = ( Q ` i ) ) -> t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) )
153	113	ad2antrr 730	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( D ` N ) : RR --> RR )
154		simpr 462	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t = ( Q ` i ) ) -> t = ( Q ` i ) )
155	9	ssriv 3468	. . . . . . . . . . . . . . . . . . . 20 |- ( -u pi [,] pi ) C_ RR
156		fzossfz 11945	. . . . . . . . . . . . . . . . . . . . . 22 |- ( 0..^ M ) C_ ( 0 ... M )
157	156, 41	sseldi 3462	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ i e. ( 0..^ M ) ) -> i e. ( 0 ... M ) )
158	40, 157	ffvelrnd 6038	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( Q ` i ) e. ( -u pi [,] pi ) )
159	155, 158	sseldi 3462	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( Q ` i ) e. RR )
160	159	adantr 466	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t = ( Q ` i ) ) -> ( Q ` i ) e. RR )
161	154, 160	eqeltrd 2507	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t = ( Q ` i ) ) -> t e. RR )
162	161	adantlr 719	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ t = ( Q ` i ) ) -> t e. RR )
163	152, 65	syl 17	. . . . . . . . . . . . . . . 16 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ -. t = ( Q ` i ) ) -> t e. RR )
164	162, 163	pm2.61dan 798	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> t e. RR )
165	11	ad2antrr 730	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> X e. RR )
166	164, 165	resubcld 10054	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( t - X ) e. RR )
167	153, 166	ffvelrnd 6038	. . . . . . . . . . . . 13 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( ( D ` N ) ` ( t - X ) ) e. RR )
168	167	adantr 466	. . . . . . . . . . . 12 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ -. t = ( Q ` i ) ) -> ( ( D ` N ) ` ( t - X ) ) e. RR )
169	144, 147, 152, 168	fvmptd 5970	. . . . . . . . . . 11 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ -. t = ( Q ` i ) ) -> ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) = ( ( D ` N ) ` ( t - X ) ) )
170	143, 169	ifeqda 3944	. . . . . . . . . 10 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> if ( t = ( Q ` i ) , ( ( D ` N ) ` ( ( Q ` i ) - X ) ) , ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) = ( ( D ` N ) ` ( t - X ) ) )
171	170	mpteq2dva 4510	. . . . . . . . 9 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> if ( t = ( Q ` i ) , ( ( D ` N ) ` ( ( Q ` i ) - X ) ) , ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) = ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) )
172	113	adantr 466	. . . . . . . . . . . . . . 15 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( D ` N ) : RR --> RR )
173		simpr 462	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) )
174		elun 3606	. . . . . . . . . . . . . . . . . . . 20 |- ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) <-> ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) \/ s e. { ( Q ` i ) } ) )
175	173, 174	sylib 199	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) \/ s e. { ( Q ` i ) } ) )
176	175	adantlr 719	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) \/ s e. { ( Q ` i ) } ) )
177		elsni 4023	. . . . . . . . . . . . . . . . . . . . . . 23 |- ( s e. { ( Q ` i ) } -> s = ( Q ` i ) )
178	177	adantl 467	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. { ( Q ` i ) } ) -> s = ( Q ` i ) )
179	159	adantr 466	. . . . . . . . . . . . . . . . . . . . . 22 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. { ( Q ` i ) } ) -> ( Q ` i ) e. RR )
180	178, 179	eqeltrd 2507	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. { ( Q ` i ) } ) -> s e. RR )
181	180	ex 435	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( s e. { ( Q ` i ) } -> s e. RR ) )
182	181	adantr 466	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( s e. { ( Q ` i ) } -> s e. RR ) )
183		pm3.44 513	. . . . . . . . . . . . . . . . . . 19 |- ( ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -> s e. RR ) /\ ( s e. { ( Q ` i ) } -> s e. RR ) ) -> ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) \/ s e. { ( Q ` i ) } ) -> s e. RR ) )
184	129, 182, 183	sylancr 667	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) \/ s e. { ( Q ` i ) } ) -> s e. RR ) )
185	176, 184	mpd 15	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> s e. RR )
186	11	ad2antrr 730	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> X e. RR )
187	185, 186	resubcld 10054	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( s - X ) e. RR )
188		eqid 2422	. . . . . . . . . . . . . . . 16 |- ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) = ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) )
189	187, 188	fmptd 6061	. . . . . . . . . . . . . . 15 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) : ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) --> RR )
190		fcompt 6074	. . . . . . . . . . . . . . 15 |- ( ( ( D ` N ) : RR --> RR /\ ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) : ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) --> RR ) -> ( ( D ` N ) o. ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ) = ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ` t ) ) ) )
191	172, 189, 190	syl2anc 665	. . . . . . . . . . . . . 14 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( D ` N ) o. ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ) = ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ` t ) ) ) )
192		eqidd 2423	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) = ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) )
193	145	adantl 467	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ s = t ) -> ( s - X ) = ( t - X ) )
194		simpr 462	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) )
195	192, 193, 194, 166	fvmptd 5970	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ` t ) = ( t - X ) )
196	195	fveq2d 5885	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( ( D ` N ) ` ( ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ` t ) ) = ( ( D ` N ) ` ( t - X ) ) )
197	196	mpteq2dva 4510	. . . . . . . . . . . . . 14 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ` t ) ) ) = ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) )
198	191, 197	eqtr2d 2464	. . . . . . . . . . . . 13 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) = ( ( D ` N ) o. ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ) )
199		eqid 2422	. . . . . . . . . . . . . . . 16 |- ( s e. CC |-> ( s - X ) ) = ( s e. CC |-> ( s - X ) )
200		simpr 462	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ s e. CC ) -> s e. CC )
201	92	adantr 466	. . . . . . . . . . . . . . . . . . . . 21 |- ( ( ph /\ s e. CC ) -> X e. CC )
202	200, 201	negsubd 9999	. . . . . . . . . . . . . . . . . . . 20 |- ( ( ph /\ s e. CC ) -> ( s + -u X ) = ( s - X ) )
203	202	eqcomd 2430	. . . . . . . . . . . . . . . . . . 19 |- ( ( ph /\ s e. CC ) -> ( s - X ) = ( s + -u X ) )
204	203	mpteq2dva 4510	. . . . . . . . . . . . . . . . . 18 |- ( ph -> ( s e. CC |-> ( s - X ) ) = ( s e. CC |-> ( s + -u X ) ) )
205		eqid 2422	. . . . . . . . . . . . . . . . . . . 20 |- ( s e. CC |-> ( s + -u X ) ) = ( s e. CC |-> ( s + -u X ) )
206	205	addccncf 21946	. . . . . . . . . . . . . . . . . . 19 |- ( -u X e. CC -> ( s e. CC |-> ( s + -u X ) ) e. ( CC -cn-> CC ) )
207	97, 206	syl 17	. . . . . . . . . . . . . . . . . 18 |- ( ph -> ( s e. CC |-> ( s + -u X ) ) e. ( CC -cn-> CC ) )
208	204, 207	eqeltrd 2507	. . . . . . . . . . . . . . . . 17 |- ( ph -> ( s e. CC |-> ( s - X ) ) e. ( CC -cn-> CC ) )
209	208	adantr 466	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( s e. CC |-> ( s - X ) ) e. ( CC -cn-> CC ) )
210	159	recnd 9676	. . . . . . . . . . . . . . . . . 18 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( Q ` i ) e. CC )
211	210	snssd 4145	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ i e. ( 0..^ M ) ) -> { ( Q ` i ) } C_ CC )
212	106, 211	unssd 3642	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) C_ CC )
213	199, 209, 212, 107, 187	cncfmptssg 37687	. . . . . . . . . . . . . . 15 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) e. ( ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) -cn-> RR ) )
214	114, 120	eqeltrd 2507	. . . . . . . . . . . . . . . 16 |- ( ph -> ( D ` N ) e. ( RR -cn-> CC ) )
215	214	adantr 466	. . . . . . . . . . . . . . 15 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( D ` N ) e. ( RR -cn-> CC ) )
216	213, 215	cncfco 21937	. . . . . . . . . . . . . 14 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( D ` N ) o. ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ) e. ( ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) -cn-> CC ) )
217		eqid 2422	. . . . . . . . . . . . . . . 16 |- ( TopOpen ` ℂfld ) = ( TopOpen ` ℂfld )
218		eqid 2422	. . . . . . . . . . . . . . . 16 |- ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) = ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) )
219	217	cnfldtop 21802	. . . . . . . . . . . . . . . . . 18 |- ( TopOpen ` ℂfld ) e. Top
220		unicntop 37344	. . . . . . . . . . . . . . . . . . 19 |- CC = U. ( TopOpen ` ℂfld )
221	220	restid 15331	. . . . . . . . . . . . . . . . . 18 |- ( ( TopOpen ` ℂfld ) e. Top -> ( ( TopOpen ` ℂfld ) ↾t CC ) = ( TopOpen ` ℂfld ) )
222	219, 221	ax-mp 5	. . . . . . . . . . . . . . . . 17 |- ( ( TopOpen ` ℂfld ) ↾t CC ) = ( TopOpen ` ℂfld )
223	222	eqcomi 2435	. . . . . . . . . . . . . . . 16 |- ( TopOpen ` ℂfld ) = ( ( TopOpen ` ℂfld ) ↾t CC )
224	217, 218, 223	cncfcn 21939	. . . . . . . . . . . . . . 15 |- ( ( ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) C_ CC /\ CC C_ CC ) -> ( ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) -cn-> CC ) = ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) Cn ( TopOpen ` ℂfld ) ) )
225	212, 111, 224	sylancl 666	. . . . . . . . . . . . . 14 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) -cn-> CC ) = ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) Cn ( TopOpen ` ℂfld ) ) )
226	216, 225	eleqtrd 2509	. . . . . . . . . . . . 13 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( D ` N ) o. ( s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( s - X ) ) ) e. ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) Cn ( TopOpen ` ℂfld ) ) )
227	198, 226	eqeltrd 2507	. . . . . . . . . . . 12 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) Cn ( TopOpen ` ℂfld ) ) )
228	217	cnfldtopon 21801	. . . . . . . . . . . . . 14 |- ( TopOpen ` ℂfld ) e. (TopOn ` CC )
229		resttopon 20175	. . . . . . . . . . . . . 14 |- ( ( ( TopOpen ` ℂfld ) e. (TopOn ` CC ) /\ ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) C_ CC ) -> ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) e. (TopOn ` ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) )
230	228, 212, 229	sylancr 667	. . . . . . . . . . . . 13 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) e. (TopOn ` ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) )
231		cncnp 20294	. . . . . . . . . . . . 13 |- ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) e. (TopOn ` ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) /\ ( TopOpen ` ℂfld ) e. (TopOn ` CC ) ) -> ( ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) Cn ( TopOpen ` ℂfld ) ) <-> ( ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) : ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) --> CC /\ A. s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` s ) ) ) )
232	230, 228, 231	sylancl 666	. . . . . . . . . . . 12 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) Cn ( TopOpen ` ℂfld ) ) <-> ( ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) : ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) --> CC /\ A. s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` s ) ) ) )
233	227, 232	mpbid 213	. . . . . . . . . . 11 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) : ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) --> CC /\ A. s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` s ) ) )
234	233	simprd 464	. . . . . . . . . 10 |- ( ( ph /\ i e. ( 0..^ M ) ) -> A. s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` s ) )
235		eqidd 2423	. . . . . . . . . . . . 13 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( Q ` i ) = ( Q ` i ) )
236		elsncg 4021	. . . . . . . . . . . . . 14 |- ( ( Q ` i ) e. RR -> ( ( Q ` i ) e. { ( Q ` i ) } <-> ( Q ` i ) = ( Q ` i ) ) )
237	159, 236	syl 17	. . . . . . . . . . . . 13 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( Q ` i ) e. { ( Q ` i ) } <-> ( Q ` i ) = ( Q ` i ) ) )
238	235, 237	mpbird 235	. . . . . . . . . . . 12 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( Q ` i ) e. { ( Q ` i ) } )
239	238	olcd 394	. . . . . . . . . . 11 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( Q ` i ) e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) \/ ( Q ` i ) e. { ( Q ` i ) } ) )
240		elun 3606	. . . . . . . . . . 11 |- ( ( Q ` i ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) <-> ( ( Q ` i ) e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) \/ ( Q ` i ) e. { ( Q ` i ) } ) )
241	239, 240	sylibr 215	. . . . . . . . . 10 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( Q ` i ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) )
242		fveq2 5881	. . . . . . . . . . . 12 |- ( s = ( Q ` i ) -> ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` s ) = ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` ( Q ` i ) ) )
243	242	eleq2d 2492	. . . . . . . . . . 11 |- ( s = ( Q ` i ) -> ( ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` s ) <-> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` ( Q ` i ) ) ) )
244	243	rspccva 3181	. . . . . . . . . 10 |- ( ( A. s e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` s ) /\ ( Q ` i ) e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) -> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` ( Q ` i ) ) )
245	234, 241, 244	syl2anc 665	. . . . . . . . 9 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> ( ( D ` N ) ` ( t - X ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` ( Q ` i ) ) )
246	171, 245	eqeltrd 2507	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> if ( t = ( Q ` i ) , ( ( D ` N ) ` ( ( Q ` i ) - X ) ) , ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` ( Q ` i ) ) )
247		eqid 2422	. . . . . . . . 9 |- ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> if ( t = ( Q ` i ) , ( ( D ` N ) ` ( ( Q ` i ) - X ) ) , ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) = ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> if ( t = ( Q ` i ) , ( ( D ` N ) ` ( ( Q ` i ) - X ) ) , ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) )
248	218, 217, 247, 137, 106, 210	ellimc 22826	. . . . . . . 8 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( ( D ` N ) ` ( ( Q ` i ) - X ) ) e. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) lim CC ( Q ` i ) ) <-> ( t e. ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) |-> if ( t = ( Q ` i ) , ( ( D ` N ) ` ( ( Q ` i ) - X ) ) , ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) e. ( ( ( ( TopOpen ` ℂfld ) ↾t ( ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) u. { ( Q ` i ) } ) ) CnP ( TopOpen ` ℂfld ) ) ` ( Q ` i ) ) ) )
249	246, 248	mpbird 235	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( D ` N ) ` ( ( Q ` i ) - X ) ) e. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) lim CC ( Q ` i ) ) )
250	127, 137, 138, 139, 249	mullimcf 37643	. . . . . 6 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( R x. ( ( D ` N ) ` ( ( Q ` i ) - X ) ) ) e. ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) lim CC ( Q ` i ) ) )
251		fvres 5895	. . . . . . . . . 10 |- ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) -> ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) ` t ) = ( F ` t ) )
252	251	adantl 467	. . . . . . . . 9 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) ` t ) = ( F ` t ) )
253	252	oveq1d 6320	. . . . . . . 8 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) = ( ( F ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) )
254	253	mpteq2dva 4510	. . . . . . 7 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) = ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) )
255	254	oveq1d 6320	. . . . . 6 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) lim CC ( Q ` i ) ) = ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) lim CC ( Q ` i ) ) )
256	250, 255	eleqtrd 2509	. . . . 5 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( R x. ( ( D ` N ) ` ( ( Q ` i ) - X ) ) ) e. ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) lim CC ( Q ` i ) ) )
257		eqidd 2423	. . . . . . . . 9 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) = ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) )
258		simpr 462	. . . . . . . . . . 11 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) /\ s = t ) -> s = t )
259	258	oveq1d 6320	. . . . . . . . . 10 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) /\ s = t ) -> ( s - X ) = ( t - X ) )
260	259	fveq2d 5885	. . . . . . . . 9 |- ( ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) /\ s = t ) -> ( ( D ` N ) ` ( s - X ) ) = ( ( D ` N ) ` ( t - X ) ) )
261		simpr 462	. . . . . . . . 9 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) )
262	113	ad2antrr 730	. . . . . . . . . 10 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( D ` N ) : RR --> RR )
263	262, 69	ffvelrnd 6038	. . . . . . . . 9 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( D ` N ) ` ( t - X ) ) e. RR )
264	257, 260, 261, 263	fvmptd 5970	. . . . . . . 8 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) = ( ( D ` N ) ` ( t - X ) ) )
265	264	oveq2d 6321	. . . . . . 7 |- ( ( ( ph /\ i e. ( 0..^ M ) ) /\ t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) -> ( ( F ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) = ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) )
266	265	mpteq2dva 4510	. . . . . 6 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) = ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) )
267	266	oveq1d 6320	. . . . 5 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) ) lim CC ( Q ` i ) ) = ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) lim CC ( Q ` i ) ) )
268	256, 267	eleqtrd 2509	. . . 4 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( R x. ( ( D ` N ) ` ( ( Q ` i ) - X ) ) ) e. ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) lim CC ( Q ` i ) ) )
269	45	eqcomd 2430	. . . . 5 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) = ( G |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) )
270	269	oveq1d 6320	. . . 4 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( ( t e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( F ` t ) x. ( ( D ` N ) ` ( t - X ) ) ) ) lim CC ( Q ` i ) ) = ( ( G |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) lim CC ( Q ` i ) ) )
271	268, 270	eleqtrd 2509	. . 3 |- ( ( ph /\ i e. ( 0..^ M ) ) -> ( R x. ( ( D ` N ) ` ( ( Q ` i ) - X ) ) ) e. ( ( G |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) lim CC ( Q ` i ) ) )
272		fourierdlem101.l	. . . . 5 |- ( ( ph /\ i e. ( 0..^ M ) ) -> L e. ( ( F |` ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) ) lim CC ( Q ` ( i + 1 ) ) ) )
273		iftrue 3917	. . . . . . . . . . 11 |- ( t = ( Q ` ( i + 1 ) ) -> if ( t = ( Q ` ( i + 1 ) ) , ( ( D ` N ) ` ( ( Q ` ( i + 1 ) ) - X ) ) , ( ( s e. ( ( Q ` i ) (,) ( Q ` ( i + 1 ) ) ) |-> ( ( D ` N ) ` ( s - X ) ) ) ` t ) ) = ( ( D ` N ) ` ( ( Q ` ( i + 1 ) ) - X ) ) )
274		oveq1 6312	. . . . . . . . . . . . 13 |- ( t = ( Q ` ( i + 1 ) ) -> ( t - X ) = ( ( Q ` ( i + 1 ) ) - X ) )
275	274	eqcomd 2430	. . . . . . . . . . . 12 |- ( t = ( Q ` ( i + 1 ) ) -> ( ( Q ` ( i + 1 ) ) - X ) = ( t - X ) )
276	275	fveq2d 5885	. . . . . . . . . . 11 |- ( t = ( Q ` ( i + 1 ) ) -> ( ( D ` N ) ` ( ( Q ` ( i + 1 ) ) - X ) ) = ( ( D ` N ) ` ( t - X ) ) )
277	273, 276