Metamath Proof Explorer


Theorem dirkerper

Description: the Dirichlet kernel has period 2 _pi . (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses dirkerper.1 D = n y if y mod 2 π = 0 2 n + 1 2 π sin n + 1 2 y 2 π sin y 2
dirkerper.2 T = 2 π
Assertion dirkerper N x D N x + T = D N x

Proof

Step Hyp Ref Expression
1 dirkerper.1 D = n y if y mod 2 π = 0 2 n + 1 2 π sin n + 1 2 y 2 π sin y 2
2 dirkerper.2 T = 2 π
3 2 eqcomi 2 π = T
4 3 oveq2i 1 2 π = 1 T
5 2pire 2 π
6 2 5 eqeltri T
7 6 recni T
8 7 mullidi 1 T = T
9 4 8 eqtri 1 2 π = T
10 9 oveq2i x + 1 2 π = x + T
11 10 eqcomi x + T = x + 1 2 π
12 11 oveq1i x + T mod 2 π = x + 1 2 π mod 2 π
13 12 a1i N x x mod 2 π = 0 x + T mod 2 π = x + 1 2 π mod 2 π
14 id x x
15 14 ad2antlr N x x mod 2 π = 0 x
16 2rp 2 +
17 pirp π +
18 rpmulcl 2 + π + 2 π +
19 16 17 18 mp2an 2 π +
20 19 a1i N x x mod 2 π = 0 2 π +
21 1z 1
22 21 a1i N x x mod 2 π = 0 1
23 modcyc x 2 π + 1 x + 1 2 π mod 2 π = x mod 2 π
24 15 20 22 23 syl3anc N x x mod 2 π = 0 x + 1 2 π mod 2 π = x mod 2 π
25 simpr N x x mod 2 π = 0 x mod 2 π = 0
26 13 24 25 3eqtrd N x x mod 2 π = 0 x + T mod 2 π = 0
27 26 iftrued N x x mod 2 π = 0 if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2 = 2 N + 1 2 π
28 iftrue x mod 2 π = 0 if x mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x 2 π sin x 2 = 2 N + 1 2 π
29 28 adantl N x x mod 2 π = 0 if x mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x 2 π sin x 2 = 2 N + 1 2 π
30 27 29 eqtr4d N x x mod 2 π = 0 if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2 = if x mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x 2 π sin x 2
31 iffalse ¬ x mod 2 π = 0 if x mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x 2 π sin x 2 = sin N + 1 2 x 2 π sin x 2
32 31 adantl N x ¬ x mod 2 π = 0 if x mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x 2 π sin x 2 = sin N + 1 2 x 2 π sin x 2
33 nncn N N
34 halfcn 1 2
35 34 a1i N 1 2
36 33 35 addcld N N + 1 2
37 36 adantr N x N + 1 2
38 recn x x
39 38 adantl N x x
40 37 39 mulcld N x N + 1 2 x
41 40 sincld N x sin N + 1 2 x
42 41 adantr N x ¬ x mod 2 π = 0 sin N + 1 2 x
43 2picn 2 π
44 43 a1i N x 2 π
45 39 halfcld N x x 2
46 45 sincld N x sin x 2
47 44 46 mulcld N x 2 π sin x 2
48 47 adantr N x ¬ x mod 2 π = 0 2 π sin x 2
49 dirkerdenne0 x ¬ x mod 2 π = 0 2 π sin x 2 0
50 49 adantll N x ¬ x mod 2 π = 0 2 π sin x 2 0
51 42 48 50 div2negd N x ¬ x mod 2 π = 0 sin N + 1 2 x 2 π sin x 2 = sin N + 1 2 x 2 π sin x 2
52 12 a1i x x + T mod 2 π = x + 1 2 π mod 2 π
53 19 21 23 mp3an23 x x + 1 2 π mod 2 π = x mod 2 π
54 52 53 eqtrd x x + T mod 2 π = x mod 2 π
55 54 adantr x ¬ x mod 2 π = 0 x + T mod 2 π = x mod 2 π
56 simpr x ¬ x mod 2 π = 0 ¬ x mod 2 π = 0
57 56 neqned x ¬ x mod 2 π = 0 x mod 2 π 0
58 55 57 eqnetrd x ¬ x mod 2 π = 0 x + T mod 2 π 0
59 58 neneqd x ¬ x mod 2 π = 0 ¬ x + T mod 2 π = 0
60 iffalse ¬ x + T mod 2 π = 0 if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2 = sin N + 1 2 x + T 2 π sin x + T 2
61 2 oveq2i x + T = x + 2 π
62 61 oveq2i N + 1 2 x + T = N + 1 2 x + 2 π
63 62 fveq2i sin N + 1 2 x + T = sin N + 1 2 x + 2 π
64 61 oveq1i x + T 2 = x + 2 π 2
65 64 fveq2i sin x + T 2 = sin x + 2 π 2
66 65 oveq2i 2 π sin x + T 2 = 2 π sin x + 2 π 2
67 63 66 oveq12i sin N + 1 2 x + T 2 π sin x + T 2 = sin N + 1 2 x + 2 π 2 π sin x + 2 π 2
68 60 67 eqtrdi ¬ x + T mod 2 π = 0 if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2 = sin N + 1 2 x + 2 π 2 π sin x + 2 π 2
69 59 68 syl x ¬ x mod 2 π = 0 if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2 = sin N + 1 2 x + 2 π 2 π sin x + 2 π 2
70 69 adantll N x ¬ x mod 2 π = 0 if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2 = sin N + 1 2 x + 2 π 2 π sin x + 2 π 2
71 43 a1i N 2 π
72 33 35 71 adddird N N + 1 2 2 π = N 2 π + 1 2 2 π
73 ax-1cn 1
74 2cnne0 2 2 0
75 div32 1 2 2 0 2 π 1 2 2 π = 1 2 π 2
76 73 74 43 75 mp3an 1 2 2 π = 1 2 π 2
77 2cn 2
78 2ne0 2 0
79 43 77 78 divcli 2 π 2
80 79 mullidi 1 2 π 2 = 2 π 2
81 picn π
82 81 77 78 divcan3i 2 π 2 = π
83 80 82 eqtri 1 2 π 2 = π
84 76 83 eqtri 1 2 2 π = π
85 84 oveq2i N 2 π + 1 2 2 π = N 2 π + π
86 72 85 eqtrdi N N + 1 2 2 π = N 2 π + π
87 86 oveq2d N N + 1 2 x + N + 1 2 2 π = N + 1 2 x + N 2 π + π
88 87 adantr N x N + 1 2 x + N + 1 2 2 π = N + 1 2 x + N 2 π + π
89 37 39 44 adddid N x N + 1 2 x + 2 π = N + 1 2 x + N + 1 2 2 π
90 33 71 mulcld N N 2 π
91 90 adantr N x N 2 π
92 81 a1i N x π
93 40 91 92 addassd N x N + 1 2 x + N 2 π + π = N + 1 2 x + N 2 π + π
94 88 89 93 3eqtr4d N x N + 1 2 x + 2 π = N + 1 2 x + N 2 π + π
95 94 fveq2d N x sin N + 1 2 x + 2 π = sin N + 1 2 x + N 2 π + π
96 40 91 addcld N x N + 1 2 x + N 2 π
97 sinppi N + 1 2 x + N 2 π sin N + 1 2 x + N 2 π + π = sin N + 1 2 x + N 2 π
98 96 97 syl N x sin N + 1 2 x + N 2 π + π = sin N + 1 2 x + N 2 π
99 simpl N x N
100 99 nnzd N x N
101 sinper N + 1 2 x N sin N + 1 2 x + N 2 π = sin N + 1 2 x
102 40 100 101 syl2anc N x sin N + 1 2 x + N 2 π = sin N + 1 2 x
103 102 negeqd N x sin N + 1 2 x + N 2 π = sin N + 1 2 x
104 95 98 103 3eqtrd N x sin N + 1 2 x + 2 π = sin N + 1 2 x
105 43 a1i x 2 π
106 77 a1i x 2
107 78 a1i x 2 0
108 38 105 106 107 divdird x x + 2 π 2 = x 2 + 2 π 2
109 82 a1i x 2 π 2 = π
110 109 oveq2d x x 2 + 2 π 2 = x 2 + π
111 108 110 eqtrd x x + 2 π 2 = x 2 + π
112 111 fveq2d x sin x + 2 π 2 = sin x 2 + π
113 38 halfcld x x 2
114 sinppi x 2 sin x 2 + π = sin x 2
115 113 114 syl x sin x 2 + π = sin x 2
116 112 115 eqtrd x sin x + 2 π 2 = sin x 2
117 116 oveq2d x 2 π sin x + 2 π 2 = 2 π sin x 2
118 117 adantl N x 2 π sin x + 2 π 2 = 2 π sin x 2
119 104 118 oveq12d N x sin N + 1 2 x + 2 π 2 π sin x + 2 π 2 = sin N + 1 2 x 2 π sin x 2
120 119 adantr N x ¬ x mod 2 π = 0 sin N + 1 2 x + 2 π 2 π sin x + 2 π 2 = sin N + 1 2 x 2 π sin x 2
121 113 sincld x sin x 2
122 105 121 mulneg2d x 2 π sin x 2 = 2 π sin x 2
123 122 oveq2d x sin N + 1 2 x 2 π sin x 2 = sin N + 1 2 x 2 π sin x 2
124 123 ad2antlr N x ¬ x mod 2 π = 0 sin N + 1 2 x 2 π sin x 2 = sin N + 1 2 x 2 π sin x 2
125 70 120 124 3eqtrrd N x ¬ x mod 2 π = 0 sin N + 1 2 x 2 π sin x 2 = if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2
126 32 51 125 3eqtr2rd N x ¬ x mod 2 π = 0 if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2 = if x mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x 2 π sin x 2
127 30 126 pm2.61dan N x if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2 = if x mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x 2 π sin x 2
128 6 a1i x T
129 14 128 readdcld x x + T
130 1 dirkerval2 N x + T D N x + T = if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2
131 129 130 sylan2 N x D N x + T = if x + T mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x + T 2 π sin x + T 2
132 1 dirkerval2 N x D N x = if x mod 2 π = 0 2 N + 1 2 π sin N + 1 2 x 2 π sin x 2
133 127 131 132 3eqtr4d N x D N x + T = D N x