Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fourierswlem Structured version   Visualization version   GIF version

Theorem fourierswlem 46151
Description: The Fourier series for the square wave 𝐹 converges to 𝑌, a simpler expression for this special case. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierswlem.t 𝑇 = (2 · π)
fourierswlem.f 𝐹 = (𝑥 ∈ ℝ ↦ if((𝑥 mod 𝑇) < π, 1, -1))
fourierswlem.x 𝑋 ∈ ℝ
fourierswlem.y 𝑌 = if((𝑋 mod π) = 0, 0, (𝐹𝑋))
Assertion
Ref Expression
fourierswlem 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2)
Distinct variable groups:   𝑥,𝑇   𝑥,𝑋
Allowed substitution hints:   𝐹(𝑥)   𝑌(𝑥)

Proof of Theorem fourierswlem
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 simpr 484 . . . . . . . . . 10 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → 2 ∥ (𝑋 / π))
2 2z 12675 . . . . . . . . . . . 12 2 ∈ ℤ
32a1i 11 . . . . . . . . . . 11 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → 2 ∈ ℤ)
4 fourierswlem.x . . . . . . . . . . . . . 14 𝑋 ∈ ℝ
5 pirp 26521 . . . . . . . . . . . . . 14 π ∈ ℝ+
6 mod0 13927 . . . . . . . . . . . . . 14 ((𝑋 ∈ ℝ ∧ π ∈ ℝ+) → ((𝑋 mod π) = 0 ↔ (𝑋 / π) ∈ ℤ))
74, 5, 6mp2an 691 . . . . . . . . . . . . 13 ((𝑋 mod π) = 0 ↔ (𝑋 / π) ∈ ℤ)
87biimpi 216 . . . . . . . . . . . 12 ((𝑋 mod π) = 0 → (𝑋 / π) ∈ ℤ)
98adantr 480 . . . . . . . . . . 11 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → (𝑋 / π) ∈ ℤ)
10 divides 16304 . . . . . . . . . . 11 ((2 ∈ ℤ ∧ (𝑋 / π) ∈ ℤ) → (2 ∥ (𝑋 / π) ↔ ∃𝑘 ∈ ℤ (𝑘 · 2) = (𝑋 / π)))
113, 9, 10syl2anc 583 . . . . . . . . . 10 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → (2 ∥ (𝑋 / π) ↔ ∃𝑘 ∈ ℤ (𝑘 · 2) = (𝑋 / π)))
121, 11mpbid 232 . . . . . . . . 9 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → ∃𝑘 ∈ ℤ (𝑘 · 2) = (𝑋 / π))
13 2cnd 12371 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ ℤ → 2 ∈ ℂ)
14 picn 26519 . . . . . . . . . . . . . . . . . . . 20 π ∈ ℂ
1514a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ ℤ → π ∈ ℂ)
16 zcn 12644 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ ℤ → 𝑘 ∈ ℂ)
1713, 15, 16mulassd 11313 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℤ → ((2 · π) · 𝑘) = (2 · (π · 𝑘)))
1815, 16mulcld 11310 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ ℤ → (π · 𝑘) ∈ ℂ)
1913, 18mulcomd 11311 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℤ → (2 · (π · 𝑘)) = ((π · 𝑘) · 2))
2017, 19eqtrd 2780 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℤ → ((2 · π) · 𝑘) = ((π · 𝑘) · 2))
2120adantr 480 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → ((2 · π) · 𝑘) = ((π · 𝑘) · 2))
2215, 16, 13mulassd 11313 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℤ → ((π · 𝑘) · 2) = (π · (𝑘 · 2)))
2322adantr 480 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → ((π · 𝑘) · 2) = (π · (𝑘 · 2)))
24 id 22 . . . . . . . . . . . . . . . . . . 19 ((𝑘 · 2) = (𝑋 / π) → (𝑘 · 2) = (𝑋 / π))
2524eqcomd 2746 . . . . . . . . . . . . . . . . . 18 ((𝑘 · 2) = (𝑋 / π) → (𝑋 / π) = (𝑘 · 2))
2625adantl 481 . . . . . . . . . . . . . . . . 17 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → (𝑋 / π) = (𝑘 · 2))
274recni 11304 . . . . . . . . . . . . . . . . . . 19 𝑋 ∈ ℂ
2827a1i 11 . . . . . . . . . . . . . . . . . 18 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → 𝑋 ∈ ℂ)
2914a1i 11 . . . . . . . . . . . . . . . . . 18 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → π ∈ ℂ)
3016adantr 480 . . . . . . . . . . . . . . . . . . 19 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → 𝑘 ∈ ℂ)
31 2cnd 12371 . . . . . . . . . . . . . . . . . . 19 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → 2 ∈ ℂ)
3230, 31mulcld 11310 . . . . . . . . . . . . . . . . . 18 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → (𝑘 · 2) ∈ ℂ)
33 pire 26518 . . . . . . . . . . . . . . . . . . . 20 π ∈ ℝ
34 pipos 26520 . . . . . . . . . . . . . . . . . . . 20 0 < π
3533, 34gt0ne0ii 11826 . . . . . . . . . . . . . . . . . . 19 π ≠ 0
3635a1i 11 . . . . . . . . . . . . . . . . . 18 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → π ≠ 0)
3728, 29, 32, 36divmuld 12092 . . . . . . . . . . . . . . . . 17 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → ((𝑋 / π) = (𝑘 · 2) ↔ (π · (𝑘 · 2)) = 𝑋))
3826, 37mpbid 232 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → (π · (𝑘 · 2)) = 𝑋)
3921, 23, 383eqtrrd 2785 . . . . . . . . . . . . . . 15 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → 𝑋 = ((2 · π) · 𝑘))
40 fourierswlem.t . . . . . . . . . . . . . . . 16 𝑇 = (2 · π)
4140a1i 11 . . . . . . . . . . . . . . 15 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → 𝑇 = (2 · π))
4239, 41oveq12d 7466 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → (𝑋 / 𝑇) = (((2 · π) · 𝑘) / (2 · π)))
4313, 15mulcld 11310 . . . . . . . . . . . . . . . 16 (𝑘 ∈ ℤ → (2 · π) ∈ ℂ)
44 2ne0 12397 . . . . . . . . . . . . . . . . . 18 2 ≠ 0
4544a1i 11 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℤ → 2 ≠ 0)
4635a1i 11 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℤ → π ≠ 0)
4713, 15, 45, 46mulne0d 11942 . . . . . . . . . . . . . . . 16 (𝑘 ∈ ℤ → (2 · π) ≠ 0)
4816, 43, 47divcan3d 12075 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℤ → (((2 · π) · 𝑘) / (2 · π)) = 𝑘)
4948adantr 480 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → (((2 · π) · 𝑘) / (2 · π)) = 𝑘)
5042, 49eqtrd 2780 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → (𝑋 / 𝑇) = 𝑘)
51 simpl 482 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → 𝑘 ∈ ℤ)
5250, 51eqeltrd 2844 . . . . . . . . . . . 12 ((𝑘 ∈ ℤ ∧ (𝑘 · 2) = (𝑋 / π)) → (𝑋 / 𝑇) ∈ ℤ)
5352ex 412 . . . . . . . . . . 11 (𝑘 ∈ ℤ → ((𝑘 · 2) = (𝑋 / π) → (𝑋 / 𝑇) ∈ ℤ))
5453a1i 11 . . . . . . . . . 10 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → (𝑘 ∈ ℤ → ((𝑘 · 2) = (𝑋 / π) → (𝑋 / 𝑇) ∈ ℤ)))
5554rexlimdv 3159 . . . . . . . . 9 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → (∃𝑘 ∈ ℤ (𝑘 · 2) = (𝑋 / π) → (𝑋 / 𝑇) ∈ ℤ))
5612, 55mpd 15 . . . . . . . 8 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → (𝑋 / 𝑇) ∈ ℤ)
57 2re 12367 . . . . . . . . . . . 12 2 ∈ ℝ
5857, 33remulcli 11306 . . . . . . . . . . 11 (2 · π) ∈ ℝ
5940, 58eqeltri 2840 . . . . . . . . . 10 𝑇 ∈ ℝ
60 2pos 12396 . . . . . . . . . . . 12 0 < 2
6157, 33, 60, 34mulgt0ii 11423 . . . . . . . . . . 11 0 < (2 · π)
6261, 40breqtrri 5193 . . . . . . . . . 10 0 < 𝑇
6359, 62elrpii 13060 . . . . . . . . 9 𝑇 ∈ ℝ+
64 mod0 13927 . . . . . . . . 9 ((𝑋 ∈ ℝ ∧ 𝑇 ∈ ℝ+) → ((𝑋 mod 𝑇) = 0 ↔ (𝑋 / 𝑇) ∈ ℤ))
654, 63, 64mp2an 691 . . . . . . . 8 ((𝑋 mod 𝑇) = 0 ↔ (𝑋 / 𝑇) ∈ ℤ)
6656, 65sylibr 234 . . . . . . 7 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → (𝑋 mod 𝑇) = 0)
6766orcd 872 . . . . . 6 (((𝑋 mod π) = 0 ∧ 2 ∥ (𝑋 / π)) → ((𝑋 mod 𝑇) = 0 ∨ (𝑋 mod 𝑇) = π))
68 odd2np1 16389 . . . . . . . . . 10 ((𝑋 / π) ∈ ℤ → (¬ 2 ∥ (𝑋 / π) ↔ ∃𝑘 ∈ ℤ ((2 · 𝑘) + 1) = (𝑋 / π)))
697, 68sylbi 217 . . . . . . . . 9 ((𝑋 mod π) = 0 → (¬ 2 ∥ (𝑋 / π) ↔ ∃𝑘 ∈ ℤ ((2 · 𝑘) + 1) = (𝑋 / π)))
7069biimpa 476 . . . . . . . 8 (((𝑋 mod π) = 0 ∧ ¬ 2 ∥ (𝑋 / π)) → ∃𝑘 ∈ ℤ ((2 · 𝑘) + 1) = (𝑋 / π))
7113, 16mulcld 11310 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℤ → (2 · 𝑘) ∈ ℂ)
7271adantr 480 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (2 · 𝑘) ∈ ℂ)
73 1cnd 11285 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → 1 ∈ ℂ)
7414a1i 11 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → π ∈ ℂ)
7572, 73, 74adddird 11315 . . . . . . . . . . . . . . 15 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (((2 · 𝑘) + 1) · π) = (((2 · 𝑘) · π) + (1 · π)))
7613, 16mulcomd 11311 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ ℤ → (2 · 𝑘) = (𝑘 · 2))
7776oveq1d 7463 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℤ → ((2 · 𝑘) · π) = ((𝑘 · 2) · π))
7816, 13, 15mulassd 11313 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℤ → ((𝑘 · 2) · π) = (𝑘 · (2 · π)))
7940eqcomi 2749 . . . . . . . . . . . . . . . . . . . 20 (2 · π) = 𝑇
8079a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝑘 ∈ ℤ → (2 · π) = 𝑇)
8180oveq2d 7464 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℤ → (𝑘 · (2 · π)) = (𝑘 · 𝑇))
8277, 78, 813eqtrd 2784 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℤ → ((2 · 𝑘) · π) = (𝑘 · 𝑇))
8314mullidi 11295 . . . . . . . . . . . . . . . . . 18 (1 · π) = π
8483a1i 11 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℤ → (1 · π) = π)
8582, 84oveq12d 7466 . . . . . . . . . . . . . . . 16 (𝑘 ∈ ℤ → (((2 · 𝑘) · π) + (1 · π)) = ((𝑘 · 𝑇) + π))
8685adantr 480 . . . . . . . . . . . . . . 15 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (((2 · 𝑘) · π) + (1 · π)) = ((𝑘 · 𝑇) + π))
8740, 43eqeltrid 2848 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℤ → 𝑇 ∈ ℂ)
8816, 87mulcld 11310 . . . . . . . . . . . . . . . . 17 (𝑘 ∈ ℤ → (𝑘 · 𝑇) ∈ ℂ)
8988, 15addcomd 11492 . . . . . . . . . . . . . . . 16 (𝑘 ∈ ℤ → ((𝑘 · 𝑇) + π) = (π + (𝑘 · 𝑇)))
9089adantr 480 . . . . . . . . . . . . . . 15 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → ((𝑘 · 𝑇) + π) = (π + (𝑘 · 𝑇)))
9175, 86, 903eqtrrd 2785 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (π + (𝑘 · 𝑇)) = (((2 · 𝑘) + 1) · π))
92 peano2cn 11462 . . . . . . . . . . . . . . . . 17 ((2 · 𝑘) ∈ ℂ → ((2 · 𝑘) + 1) ∈ ℂ)
9371, 92syl 17 . . . . . . . . . . . . . . . 16 (𝑘 ∈ ℤ → ((2 · 𝑘) + 1) ∈ ℂ)
9493, 15mulcomd 11311 . . . . . . . . . . . . . . 15 (𝑘 ∈ ℤ → (((2 · 𝑘) + 1) · π) = (π · ((2 · 𝑘) + 1)))
9594adantr 480 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (((2 · 𝑘) + 1) · π) = (π · ((2 · 𝑘) + 1)))
96 id 22 . . . . . . . . . . . . . . . . 17 (((2 · 𝑘) + 1) = (𝑋 / π) → ((2 · 𝑘) + 1) = (𝑋 / π))
9796eqcomd 2746 . . . . . . . . . . . . . . . 16 (((2 · 𝑘) + 1) = (𝑋 / π) → (𝑋 / π) = ((2 · 𝑘) + 1))
9897adantl 481 . . . . . . . . . . . . . . 15 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (𝑋 / π) = ((2 · 𝑘) + 1))
9927a1i 11 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → 𝑋 ∈ ℂ)
10093adantr 480 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → ((2 · 𝑘) + 1) ∈ ℂ)
10135a1i 11 . . . . . . . . . . . . . . . 16 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → π ≠ 0)
10299, 74, 100, 101divmuld 12092 . . . . . . . . . . . . . . 15 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → ((𝑋 / π) = ((2 · 𝑘) + 1) ↔ (π · ((2 · 𝑘) + 1)) = 𝑋))
10398, 102mpbid 232 . . . . . . . . . . . . . 14 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (π · ((2 · 𝑘) + 1)) = 𝑋)
10491, 95, 1033eqtrrd 2785 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → 𝑋 = (π + (𝑘 · 𝑇)))
105104oveq1d 7463 . . . . . . . . . . . 12 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (𝑋 mod 𝑇) = ((π + (𝑘 · 𝑇)) mod 𝑇))
106 modcyc 13957 . . . . . . . . . . . . . 14 ((π ∈ ℝ ∧ 𝑇 ∈ ℝ+𝑘 ∈ ℤ) → ((π + (𝑘 · 𝑇)) mod 𝑇) = (π mod 𝑇))
10733, 63, 106mp3an12 1451 . . . . . . . . . . . . 13 (𝑘 ∈ ℤ → ((π + (𝑘 · 𝑇)) mod 𝑇) = (π mod 𝑇))
108107adantr 480 . . . . . . . . . . . 12 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → ((π + (𝑘 · 𝑇)) mod 𝑇) = (π mod 𝑇))
10933a1i 11 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → π ∈ ℝ)
11063a1i 11 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → 𝑇 ∈ ℝ+)
111 0re 11292 . . . . . . . . . . . . . . 15 0 ∈ ℝ
112111, 33, 34ltleii 11413 . . . . . . . . . . . . . 14 0 ≤ π
113112a1i 11 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → 0 ≤ π)
114 2timesgt 45203 . . . . . . . . . . . . . . . 16 (π ∈ ℝ+ → π < (2 · π))
1155, 114ax-mp 5 . . . . . . . . . . . . . . 15 π < (2 · π)
116115, 40breqtrri 5193 . . . . . . . . . . . . . 14 π < 𝑇
117116a1i 11 . . . . . . . . . . . . 13 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → π < 𝑇)
118 modid 13947 . . . . . . . . . . . . 13 (((π ∈ ℝ ∧ 𝑇 ∈ ℝ+) ∧ (0 ≤ π ∧ π < 𝑇)) → (π mod 𝑇) = π)
119109, 110, 113, 117, 118syl22anc 838 . . . . . . . . . . . 12 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (π mod 𝑇) = π)
120105, 108, 1193eqtrd 2784 . . . . . . . . . . 11 ((𝑘 ∈ ℤ ∧ ((2 · 𝑘) + 1) = (𝑋 / π)) → (𝑋 mod 𝑇) = π)
121120ex 412 . . . . . . . . . 10 (𝑘 ∈ ℤ → (((2 · 𝑘) + 1) = (𝑋 / π) → (𝑋 mod 𝑇) = π))
122121a1i 11 . . . . . . . . 9 (((𝑋 mod π) = 0 ∧ ¬ 2 ∥ (𝑋 / π)) → (𝑘 ∈ ℤ → (((2 · 𝑘) + 1) = (𝑋 / π) → (𝑋 mod 𝑇) = π)))
123122rexlimdv 3159 . . . . . . . 8 (((𝑋 mod π) = 0 ∧ ¬ 2 ∥ (𝑋 / π)) → (∃𝑘 ∈ ℤ ((2 · 𝑘) + 1) = (𝑋 / π) → (𝑋 mod 𝑇) = π))
12470, 123mpd 15 . . . . . . 7 (((𝑋 mod π) = 0 ∧ ¬ 2 ∥ (𝑋 / π)) → (𝑋 mod 𝑇) = π)
125124olcd 873 . . . . . 6 (((𝑋 mod π) = 0 ∧ ¬ 2 ∥ (𝑋 / π)) → ((𝑋 mod 𝑇) = 0 ∨ (𝑋 mod 𝑇) = π))
12667, 125pm2.61dan 812 . . . . 5 ((𝑋 mod π) = 0 → ((𝑋 mod 𝑇) = 0 ∨ (𝑋 mod 𝑇) = π))
127 0xr 11337 . . . . . . . 8 0 ∈ ℝ*
12833rexri 11348 . . . . . . . 8 π ∈ ℝ*
129 iocgtlb 45420 . . . . . . . 8 ((0 ∈ ℝ* ∧ π ∈ ℝ* ∧ (𝑋 mod 𝑇) ∈ (0(,]π)) → 0 < (𝑋 mod 𝑇))
130127, 128, 129mp3an12 1451 . . . . . . 7 ((𝑋 mod 𝑇) ∈ (0(,]π) → 0 < (𝑋 mod 𝑇))
131130gt0ne0d 11854 . . . . . 6 ((𝑋 mod 𝑇) ∈ (0(,]π) → (𝑋 mod 𝑇) ≠ 0)
132131neneqd 2951 . . . . 5 ((𝑋 mod 𝑇) ∈ (0(,]π) → ¬ (𝑋 mod 𝑇) = 0)
133 pm2.53 850 . . . . . 6 (((𝑋 mod 𝑇) = 0 ∨ (𝑋 mod 𝑇) = π) → (¬ (𝑋 mod 𝑇) = 0 → (𝑋 mod 𝑇) = π))
134133imp 406 . . . . 5 ((((𝑋 mod 𝑇) = 0 ∨ (𝑋 mod 𝑇) = π) ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) = π)
135126, 132, 134syl2anr 596 . . . 4 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ (𝑋 mod π) = 0) → (𝑋 mod 𝑇) = π)
136127a1i 11 . . . . . . . . . . . 12 ((𝑋 mod 𝑇) = π → 0 ∈ ℝ*)
137128a1i 11 . . . . . . . . . . . 12 ((𝑋 mod 𝑇) = π → π ∈ ℝ*)
138 modcl 13924 . . . . . . . . . . . . . . 15 ((𝑋 ∈ ℝ ∧ 𝑇 ∈ ℝ+) → (𝑋 mod 𝑇) ∈ ℝ)
1394, 63, 138mp2an 691 . . . . . . . . . . . . . 14 (𝑋 mod 𝑇) ∈ ℝ
140139rexri 11348 . . . . . . . . . . . . 13 (𝑋 mod 𝑇) ∈ ℝ*
141140a1i 11 . . . . . . . . . . . 12 ((𝑋 mod 𝑇) = π → (𝑋 mod 𝑇) ∈ ℝ*)
142 id 22 . . . . . . . . . . . . 13 ((𝑋 mod 𝑇) = π → (𝑋 mod 𝑇) = π)
14334, 142breqtrrid 5204 . . . . . . . . . . . 12 ((𝑋 mod 𝑇) = π → 0 < (𝑋 mod 𝑇))
14433eqlei2 11401 . . . . . . . . . . . 12 ((𝑋 mod 𝑇) = π → (𝑋 mod 𝑇) ≤ π)
145136, 137, 141, 143, 144eliocd 45425 . . . . . . . . . . 11 ((𝑋 mod 𝑇) = π → (𝑋 mod 𝑇) ∈ (0(,]π))
146145iftrued 4556 . . . . . . . . . 10 ((𝑋 mod 𝑇) = π → if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) = 1)
147146adantl 481 . . . . . . . . 9 (((𝑋 mod π) = 0 ∧ (𝑋 mod 𝑇) = π) → if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) = 1)
148 oveq1 7455 . . . . . . . . . . . . . . 15 (𝑥 = 𝑋 → (𝑥 mod 𝑇) = (𝑋 mod 𝑇))
149148breq1d 5176 . . . . . . . . . . . . . 14 (𝑥 = 𝑋 → ((𝑥 mod 𝑇) < π ↔ (𝑋 mod 𝑇) < π))
150149ifbid 4571 . . . . . . . . . . . . 13 (𝑥 = 𝑋 → if((𝑥 mod 𝑇) < π, 1, -1) = if((𝑋 mod 𝑇) < π, 1, -1))
151 fourierswlem.f . . . . . . . . . . . . 13 𝐹 = (𝑥 ∈ ℝ ↦ if((𝑥 mod 𝑇) < π, 1, -1))
152 1ex 11286 . . . . . . . . . . . . . 14 1 ∈ V
153 negex 11534 . . . . . . . . . . . . . 14 -1 ∈ V
154152, 153ifex 4598 . . . . . . . . . . . . 13 if((𝑋 mod 𝑇) < π, 1, -1) ∈ V
155150, 151, 154fvmpt 7029 . . . . . . . . . . . 12 (𝑋 ∈ ℝ → (𝐹𝑋) = if((𝑋 mod 𝑇) < π, 1, -1))
1564, 155ax-mp 5 . . . . . . . . . . 11 (𝐹𝑋) = if((𝑋 mod 𝑇) < π, 1, -1)
157139a1i 11 . . . . . . . . . . . . . 14 ((𝑋 mod 𝑇) < π → (𝑋 mod 𝑇) ∈ ℝ)
158 id 22 . . . . . . . . . . . . . 14 ((𝑋 mod 𝑇) < π → (𝑋 mod 𝑇) < π)
159157, 158ltned 11426 . . . . . . . . . . . . 13 ((𝑋 mod 𝑇) < π → (𝑋 mod 𝑇) ≠ π)
160159necon2bi 2977 . . . . . . . . . . . 12 ((𝑋 mod 𝑇) = π → ¬ (𝑋 mod 𝑇) < π)
161160iffalsed 4559 . . . . . . . . . . 11 ((𝑋 mod 𝑇) = π → if((𝑋 mod 𝑇) < π, 1, -1) = -1)
162156, 161eqtrid 2792 . . . . . . . . . 10 ((𝑋 mod 𝑇) = π → (𝐹𝑋) = -1)
163162adantl 481 . . . . . . . . 9 (((𝑋 mod π) = 0 ∧ (𝑋 mod 𝑇) = π) → (𝐹𝑋) = -1)
164147, 163oveq12d 7466 . . . . . . . 8 (((𝑋 mod π) = 0 ∧ (𝑋 mod 𝑇) = π) → (if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) = (1 + -1))
165 1pneg1e0 12412 . . . . . . . 8 (1 + -1) = 0
166164, 165eqtrdi 2796 . . . . . . 7 (((𝑋 mod π) = 0 ∧ (𝑋 mod 𝑇) = π) → (if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) = 0)
167166oveq1d 7463 . . . . . 6 (((𝑋 mod π) = 0 ∧ (𝑋 mod 𝑇) = π) → ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2) = (0 / 2))
168167adantll 713 . . . . 5 ((((𝑋 mod 𝑇) ∈ (0(,]π) ∧ (𝑋 mod π) = 0) ∧ (𝑋 mod 𝑇) = π) → ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2) = (0 / 2))
169 2cn 12368 . . . . . . 7 2 ∈ ℂ
170169, 44div0i 12028 . . . . . 6 (0 / 2) = 0
171170a1i 11 . . . . 5 ((((𝑋 mod 𝑇) ∈ (0(,]π) ∧ (𝑋 mod π) = 0) ∧ (𝑋 mod 𝑇) = π) → (0 / 2) = 0)
172 fourierswlem.y . . . . . . 7 𝑌 = if((𝑋 mod π) = 0, 0, (𝐹𝑋))
173 iftrue 4554 . . . . . . 7 ((𝑋 mod π) = 0 → if((𝑋 mod π) = 0, 0, (𝐹𝑋)) = 0)
174172, 173eqtr2id 2793 . . . . . 6 ((𝑋 mod π) = 0 → 0 = 𝑌)
175174ad2antlr 726 . . . . 5 ((((𝑋 mod 𝑇) ∈ (0(,]π) ∧ (𝑋 mod π) = 0) ∧ (𝑋 mod 𝑇) = π) → 0 = 𝑌)
176168, 171, 1753eqtrrd 2785 . . . 4 ((((𝑋 mod 𝑇) ∈ (0(,]π) ∧ (𝑋 mod π) = 0) ∧ (𝑋 mod 𝑇) = π) → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
177135, 176mpdan 686 . . 3 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ (𝑋 mod π) = 0) → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
178 iftrue 4554 . . . . . . 7 ((𝑋 mod 𝑇) ∈ (0(,]π) → if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) = 1)
179178adantr 480 . . . . . 6 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) = 1)
180139a1i 11 . . . . . . . 8 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → (𝑋 mod 𝑇) ∈ ℝ)
18133a1i 11 . . . . . . . 8 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → π ∈ ℝ)
182 iocleub 45421 . . . . . . . . . 10 ((0 ∈ ℝ* ∧ π ∈ ℝ* ∧ (𝑋 mod 𝑇) ∈ (0(,]π)) → (𝑋 mod 𝑇) ≤ π)
183127, 128, 182mp3an12 1451 . . . . . . . . 9 ((𝑋 mod 𝑇) ∈ (0(,]π) → (𝑋 mod 𝑇) ≤ π)
184183adantr 480 . . . . . . . 8 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → (𝑋 mod 𝑇) ≤ π)
185 ax-1cn 11242 . . . . . . . . . . . . . . . . . . . 20 1 ∈ ℂ
186185, 14mulcomi 11298 . . . . . . . . . . . . . . . . . . 19 (1 · π) = (π · 1)
18783, 186eqtr3i 2770 . . . . . . . . . . . . . . . . . 18 π = (π · 1)
188187oveq1i 7458 . . . . . . . . . . . . . . . . 17 (π + (π · (2 · (⌊‘(𝑋 / 𝑇))))) = ((π · 1) + (π · (2 · (⌊‘(𝑋 / 𝑇)))))
189169, 14mulcomi 11298 . . . . . . . . . . . . . . . . . . . . 21 (2 · π) = (π · 2)
19040, 189eqtri 2768 . . . . . . . . . . . . . . . . . . . 20 𝑇 = (π · 2)
191190oveq1i 7458 . . . . . . . . . . . . . . . . . . 19 (𝑇 · (⌊‘(𝑋 / 𝑇))) = ((π · 2) · (⌊‘(𝑋 / 𝑇)))
192111, 62gtneii 11402 . . . . . . . . . . . . . . . . . . . . . . 23 𝑇 ≠ 0
1934, 59, 192redivcli 12061 . . . . . . . . . . . . . . . . . . . . . 22 (𝑋 / 𝑇) ∈ ℝ
194 flcl 13846 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑋 / 𝑇) ∈ ℝ → (⌊‘(𝑋 / 𝑇)) ∈ ℤ)
195193, 194ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 (⌊‘(𝑋 / 𝑇)) ∈ ℤ
196 zcn 12644 . . . . . . . . . . . . . . . . . . . . 21 ((⌊‘(𝑋 / 𝑇)) ∈ ℤ → (⌊‘(𝑋 / 𝑇)) ∈ ℂ)
197195, 196ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 (⌊‘(𝑋 / 𝑇)) ∈ ℂ
19814, 169, 197mulassi 11301 . . . . . . . . . . . . . . . . . . 19 ((π · 2) · (⌊‘(𝑋 / 𝑇))) = (π · (2 · (⌊‘(𝑋 / 𝑇))))
199191, 198eqtri 2768 . . . . . . . . . . . . . . . . . 18 (𝑇 · (⌊‘(𝑋 / 𝑇))) = (π · (2 · (⌊‘(𝑋 / 𝑇))))
200199oveq2i 7459 . . . . . . . . . . . . . . . . 17 (π + (𝑇 · (⌊‘(𝑋 / 𝑇)))) = (π + (π · (2 · (⌊‘(𝑋 / 𝑇)))))
201169, 197mulcli 11297 . . . . . . . . . . . . . . . . . 18 (2 · (⌊‘(𝑋 / 𝑇))) ∈ ℂ
20214, 185, 201adddii 11302 . . . . . . . . . . . . . . . . 17 (π · (1 + (2 · (⌊‘(𝑋 / 𝑇))))) = ((π · 1) + (π · (2 · (⌊‘(𝑋 / 𝑇)))))
203188, 200, 2023eqtr4ri 2779 . . . . . . . . . . . . . . . 16 (π · (1 + (2 · (⌊‘(𝑋 / 𝑇))))) = (π + (𝑇 · (⌊‘(𝑋 / 𝑇))))
204203a1i 11 . . . . . . . . . . . . . . 15 (π = (𝑋 mod 𝑇) → (π · (1 + (2 · (⌊‘(𝑋 / 𝑇))))) = (π + (𝑇 · (⌊‘(𝑋 / 𝑇)))))
205 id 22 . . . . . . . . . . . . . . . . 17 (π = (𝑋 mod 𝑇) → π = (𝑋 mod 𝑇))
206 modval 13922 . . . . . . . . . . . . . . . . . 18 ((𝑋 ∈ ℝ ∧ 𝑇 ∈ ℝ+) → (𝑋 mod 𝑇) = (𝑋 − (𝑇 · (⌊‘(𝑋 / 𝑇)))))
2074, 63, 206mp2an 691 . . . . . . . . . . . . . . . . 17 (𝑋 mod 𝑇) = (𝑋 − (𝑇 · (⌊‘(𝑋 / 𝑇))))
208205, 207eqtrdi 2796 . . . . . . . . . . . . . . . 16 (π = (𝑋 mod 𝑇) → π = (𝑋 − (𝑇 · (⌊‘(𝑋 / 𝑇)))))
209208oveq1d 7463 . . . . . . . . . . . . . . 15 (π = (𝑋 mod 𝑇) → (π + (𝑇 · (⌊‘(𝑋 / 𝑇)))) = ((𝑋 − (𝑇 · (⌊‘(𝑋 / 𝑇)))) + (𝑇 · (⌊‘(𝑋 / 𝑇)))))
21027a1i 11 . . . . . . . . . . . . . . . 16 (π = (𝑋 mod 𝑇) → 𝑋 ∈ ℂ)
21159recni 11304 . . . . . . . . . . . . . . . . . 18 𝑇 ∈ ℂ
212211, 197mulcli 11297 . . . . . . . . . . . . . . . . 17 (𝑇 · (⌊‘(𝑋 / 𝑇))) ∈ ℂ
213212a1i 11 . . . . . . . . . . . . . . . 16 (π = (𝑋 mod 𝑇) → (𝑇 · (⌊‘(𝑋 / 𝑇))) ∈ ℂ)
214210, 213npcand 11651 . . . . . . . . . . . . . . 15 (π = (𝑋 mod 𝑇) → ((𝑋 − (𝑇 · (⌊‘(𝑋 / 𝑇)))) + (𝑇 · (⌊‘(𝑋 / 𝑇)))) = 𝑋)
215204, 209, 2143eqtrrd 2785 . . . . . . . . . . . . . 14 (π = (𝑋 mod 𝑇) → 𝑋 = (π · (1 + (2 · (⌊‘(𝑋 / 𝑇))))))
216215oveq1d 7463 . . . . . . . . . . . . 13 (π = (𝑋 mod 𝑇) → (𝑋 / π) = ((π · (1 + (2 · (⌊‘(𝑋 / 𝑇))))) / π))
217185, 201addcli 11296 . . . . . . . . . . . . . 14 (1 + (2 · (⌊‘(𝑋 / 𝑇)))) ∈ ℂ
218217, 14, 35divcan3i 12040 . . . . . . . . . . . . 13 ((π · (1 + (2 · (⌊‘(𝑋 / 𝑇))))) / π) = (1 + (2 · (⌊‘(𝑋 / 𝑇))))
219216, 218eqtrdi 2796 . . . . . . . . . . . 12 (π = (𝑋 mod 𝑇) → (𝑋 / π) = (1 + (2 · (⌊‘(𝑋 / 𝑇)))))
220 1z 12673 . . . . . . . . . . . . . 14 1 ∈ ℤ
221 zmulcl 12692 . . . . . . . . . . . . . . 15 ((2 ∈ ℤ ∧ (⌊‘(𝑋 / 𝑇)) ∈ ℤ) → (2 · (⌊‘(𝑋 / 𝑇))) ∈ ℤ)
2222, 195, 221mp2an 691 . . . . . . . . . . . . . 14 (2 · (⌊‘(𝑋 / 𝑇))) ∈ ℤ
223 zaddcl 12683 . . . . . . . . . . . . . 14 ((1 ∈ ℤ ∧ (2 · (⌊‘(𝑋 / 𝑇))) ∈ ℤ) → (1 + (2 · (⌊‘(𝑋 / 𝑇)))) ∈ ℤ)
224220, 222, 223mp2an 691 . . . . . . . . . . . . 13 (1 + (2 · (⌊‘(𝑋 / 𝑇)))) ∈ ℤ
225224a1i 11 . . . . . . . . . . . 12 (π = (𝑋 mod 𝑇) → (1 + (2 · (⌊‘(𝑋 / 𝑇)))) ∈ ℤ)
226219, 225eqeltrd 2844 . . . . . . . . . . 11 (π = (𝑋 mod 𝑇) → (𝑋 / π) ∈ ℤ)
227226, 7sylibr 234 . . . . . . . . . 10 (π = (𝑋 mod 𝑇) → (𝑋 mod π) = 0)
228227necon3bi 2973 . . . . . . . . 9 (¬ (𝑋 mod π) = 0 → π ≠ (𝑋 mod 𝑇))
229228adantl 481 . . . . . . . 8 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → π ≠ (𝑋 mod 𝑇))
230180, 181, 184, 229leneltd 11444 . . . . . . 7 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → (𝑋 mod 𝑇) < π)
231 iftrue 4554 . . . . . . . 8 ((𝑋 mod 𝑇) < π → if((𝑋 mod 𝑇) < π, 1, -1) = 1)
232156, 231eqtrid 2792 . . . . . . 7 ((𝑋 mod 𝑇) < π → (𝐹𝑋) = 1)
233230, 232syl 17 . . . . . 6 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → (𝐹𝑋) = 1)
234179, 233oveq12d 7466 . . . . 5 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → (if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) = (1 + 1))
235234oveq1d 7463 . . . 4 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2) = ((1 + 1) / 2))
236 1p1e2 12418 . . . . . . 7 (1 + 1) = 2
237236oveq1i 7458 . . . . . 6 ((1 + 1) / 2) = (2 / 2)
238 2div2e1 12434 . . . . . 6 (2 / 2) = 1
239237, 238eqtr2i 2769 . . . . 5 1 = ((1 + 1) / 2)
240233, 239eqtr2di 2797 . . . 4 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → ((1 + 1) / 2) = (𝐹𝑋))
241 iffalse 4557 . . . . . 6 (¬ (𝑋 mod π) = 0 → if((𝑋 mod π) = 0, 0, (𝐹𝑋)) = (𝐹𝑋))
242172, 241eqtr2id 2793 . . . . 5 (¬ (𝑋 mod π) = 0 → (𝐹𝑋) = 𝑌)
243242adantl 481 . . . 4 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → (𝐹𝑋) = 𝑌)
244235, 240, 2433eqtrrd 2785 . . 3 (((𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod π) = 0) → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
245177, 244pm2.61dan 812 . 2 ((𝑋 mod 𝑇) ∈ (0(,]π) → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
246131necon2bi 2977 . . . . . . . 8 ((𝑋 mod 𝑇) = 0 → ¬ (𝑋 mod 𝑇) ∈ (0(,]π))
247246iffalsed 4559 . . . . . . 7 ((𝑋 mod 𝑇) = 0 → if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) = -1)
248 id 22 . . . . . . . . . 10 ((𝑋 mod 𝑇) = 0 → (𝑋 mod 𝑇) = 0)
249248, 34eqbrtrdi 5205 . . . . . . . . 9 ((𝑋 mod 𝑇) = 0 → (𝑋 mod 𝑇) < π)
250249iftrued 4556 . . . . . . . 8 ((𝑋 mod 𝑇) = 0 → if((𝑋 mod 𝑇) < π, 1, -1) = 1)
251156, 250eqtrid 2792 . . . . . . 7 ((𝑋 mod 𝑇) = 0 → (𝐹𝑋) = 1)
252247, 251oveq12d 7466 . . . . . 6 ((𝑋 mod 𝑇) = 0 → (if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) = (-1 + 1))
253252oveq1d 7463 . . . . 5 ((𝑋 mod 𝑇) = 0 → ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2) = ((-1 + 1) / 2))
254 neg1cn 12407 . . . . . . . . 9 -1 ∈ ℂ
255185, 254, 165addcomli 11482 . . . . . . . 8 (-1 + 1) = 0
256255oveq1i 7458 . . . . . . 7 ((-1 + 1) / 2) = (0 / 2)
257256, 170eqtri 2768 . . . . . 6 ((-1 + 1) / 2) = 0
258257a1i 11 . . . . 5 ((𝑋 mod 𝑇) = 0 → ((-1 + 1) / 2) = 0)
25940oveq2i 7459 . . . . . . . . . . . . 13 (𝑋 / 𝑇) = (𝑋 / (2 · π))
260 2cnne0 12503 . . . . . . . . . . . . . 14 (2 ∈ ℂ ∧ 2 ≠ 0)
26114, 35pm3.2i 470 . . . . . . . . . . . . . 14 (π ∈ ℂ ∧ π ≠ 0)
262 divdiv1 12005 . . . . . . . . . . . . . 14 ((𝑋 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((𝑋 / 2) / π) = (𝑋 / (2 · π)))
26327, 260, 261, 262mp3an 1461 . . . . . . . . . . . . 13 ((𝑋 / 2) / π) = (𝑋 / (2 · π))
26427, 169, 14, 44, 35divdiv32i 12049 . . . . . . . . . . . . 13 ((𝑋 / 2) / π) = ((𝑋 / π) / 2)
265259, 263, 2643eqtr2i 2774 . . . . . . . . . . . 12 (𝑋 / 𝑇) = ((𝑋 / π) / 2)
266265oveq2i 7459 . . . . . . . . . . 11 (2 · (𝑋 / 𝑇)) = (2 · ((𝑋 / π) / 2))
26727, 14, 35divcli 12036 . . . . . . . . . . . 12 (𝑋 / π) ∈ ℂ
268267, 169, 44divcan2i 12037 . . . . . . . . . . 11 (2 · ((𝑋 / π) / 2)) = (𝑋 / π)
269266, 268eqtr2i 2769 . . . . . . . . . 10 (𝑋 / π) = (2 · (𝑋 / 𝑇))
2702a1i 11 . . . . . . . . . . 11 ((𝑋 / 𝑇) ∈ ℤ → 2 ∈ ℤ)
271 id 22 . . . . . . . . . . 11 ((𝑋 / 𝑇) ∈ ℤ → (𝑋 / 𝑇) ∈ ℤ)
272270, 271zmulcld 12753 . . . . . . . . . 10 ((𝑋 / 𝑇) ∈ ℤ → (2 · (𝑋 / 𝑇)) ∈ ℤ)
273269, 272eqeltrid 2848 . . . . . . . . 9 ((𝑋 / 𝑇) ∈ ℤ → (𝑋 / π) ∈ ℤ)
27465, 273sylbi 217 . . . . . . . 8 ((𝑋 mod 𝑇) = 0 → (𝑋 / π) ∈ ℤ)
275274, 7sylibr 234 . . . . . . 7 ((𝑋 mod 𝑇) = 0 → (𝑋 mod π) = 0)
276275iftrued 4556 . . . . . 6 ((𝑋 mod 𝑇) = 0 → if((𝑋 mod π) = 0, 0, (𝐹𝑋)) = 0)
277172, 276eqtr2id 2793 . . . . 5 ((𝑋 mod 𝑇) = 0 → 0 = 𝑌)
278253, 258, 2773eqtrrd 2785 . . . 4 ((𝑋 mod 𝑇) = 0 → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
279278adantl 481 . . 3 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ (𝑋 mod 𝑇) = 0) → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
280128a1i 11 . . . . 5 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → π ∈ ℝ*)
28159rexri 11348 . . . . . 6 𝑇 ∈ ℝ*
282281a1i 11 . . . . 5 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → 𝑇 ∈ ℝ*)
283139a1i 11 . . . . 5 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) ∈ ℝ)
284 pm4.56 989 . . . . . . . 8 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) ↔ ¬ ((𝑋 mod 𝑇) ∈ (0(,]π) ∨ (𝑋 mod 𝑇) = 0))
285284biimpi 216 . . . . . . 7 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → ¬ ((𝑋 mod 𝑇) ∈ (0(,]π) ∨ (𝑋 mod 𝑇) = 0))
286 olc 867 . . . . . . . . 9 ((𝑋 mod 𝑇) = 0 → ((𝑋 mod 𝑇) ∈ (0(,]π) ∨ (𝑋 mod 𝑇) = 0))
287286adantl 481 . . . . . . . 8 (((𝑋 mod 𝑇) ≤ π ∧ (𝑋 mod 𝑇) = 0) → ((𝑋 mod 𝑇) ∈ (0(,]π) ∨ (𝑋 mod 𝑇) = 0))
288127a1i 11 . . . . . . . . . 10 (((𝑋 mod 𝑇) ≤ π ∧ ¬ (𝑋 mod 𝑇) = 0) → 0 ∈ ℝ*)
289128a1i 11 . . . . . . . . . 10 (((𝑋 mod 𝑇) ≤ π ∧ ¬ (𝑋 mod 𝑇) = 0) → π ∈ ℝ*)
290140a1i 11 . . . . . . . . . 10 (((𝑋 mod 𝑇) ≤ π ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) ∈ ℝ*)
291 0red 11293 . . . . . . . . . . . 12 (¬ (𝑋 mod 𝑇) = 0 → 0 ∈ ℝ)
292139a1i 11 . . . . . . . . . . . 12 (¬ (𝑋 mod 𝑇) = 0 → (𝑋 mod 𝑇) ∈ ℝ)
293 modge0 13930 . . . . . . . . . . . . . 14 ((𝑋 ∈ ℝ ∧ 𝑇 ∈ ℝ+) → 0 ≤ (𝑋 mod 𝑇))
2944, 63, 293mp2an 691 . . . . . . . . . . . . 13 0 ≤ (𝑋 mod 𝑇)
295294a1i 11 . . . . . . . . . . . 12 (¬ (𝑋 mod 𝑇) = 0 → 0 ≤ (𝑋 mod 𝑇))
296 neqne 2954 . . . . . . . . . . . 12 (¬ (𝑋 mod 𝑇) = 0 → (𝑋 mod 𝑇) ≠ 0)
297291, 292, 295, 296leneltd 11444 . . . . . . . . . . 11 (¬ (𝑋 mod 𝑇) = 0 → 0 < (𝑋 mod 𝑇))
298297adantl 481 . . . . . . . . . 10 (((𝑋 mod 𝑇) ≤ π ∧ ¬ (𝑋 mod 𝑇) = 0) → 0 < (𝑋 mod 𝑇))
299 simpl 482 . . . . . . . . . 10 (((𝑋 mod 𝑇) ≤ π ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) ≤ π)
300288, 289, 290, 298, 299eliocd 45425 . . . . . . . . 9 (((𝑋 mod 𝑇) ≤ π ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) ∈ (0(,]π))
301300orcd 872 . . . . . . . 8 (((𝑋 mod 𝑇) ≤ π ∧ ¬ (𝑋 mod 𝑇) = 0) → ((𝑋 mod 𝑇) ∈ (0(,]π) ∨ (𝑋 mod 𝑇) = 0))
302287, 301pm2.61dan 812 . . . . . . 7 ((𝑋 mod 𝑇) ≤ π → ((𝑋 mod 𝑇) ∈ (0(,]π) ∨ (𝑋 mod 𝑇) = 0))
303285, 302nsyl 140 . . . . . 6 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → ¬ (𝑋 mod 𝑇) ≤ π)
30433a1i 11 . . . . . . 7 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → π ∈ ℝ)
305304, 283ltnled 11437 . . . . . 6 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → (π < (𝑋 mod 𝑇) ↔ ¬ (𝑋 mod 𝑇) ≤ π))
306303, 305mpbird 257 . . . . 5 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → π < (𝑋 mod 𝑇))
307 modlt 13931 . . . . . . 7 ((𝑋 ∈ ℝ ∧ 𝑇 ∈ ℝ+) → (𝑋 mod 𝑇) < 𝑇)
3084, 63, 307mp2an 691 . . . . . 6 (𝑋 mod 𝑇) < 𝑇
309308a1i 11 . . . . 5 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) < 𝑇)
310280, 282, 283, 306, 309eliood 45416 . . . 4 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) ∈ (π(,)𝑇))
311127a1i 11 . . . . . . . . 9 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → 0 ∈ ℝ*)
31233a1i 11 . . . . . . . . 9 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → π ∈ ℝ)
313140a1i 11 . . . . . . . . 9 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → (𝑋 mod 𝑇) ∈ ℝ*)
314 ioogtlb 45413 . . . . . . . . . 10 ((π ∈ ℝ*𝑇 ∈ ℝ* ∧ (𝑋 mod 𝑇) ∈ (π(,)𝑇)) → π < (𝑋 mod 𝑇))
315128, 281, 314mp3an12 1451 . . . . . . . . 9 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → π < (𝑋 mod 𝑇))
316311, 312, 313, 315gtnelioc 45409 . . . . . . . 8 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → ¬ (𝑋 mod 𝑇) ∈ (0(,]π))
317316iffalsed 4559 . . . . . . 7 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) = -1)
318139a1i 11 . . . . . . . . . 10 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → (𝑋 mod 𝑇) ∈ ℝ)
319312, 318, 315ltnsymd 11439 . . . . . . . . 9 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → ¬ (𝑋 mod 𝑇) < π)
320319iffalsed 4559 . . . . . . . 8 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → if((𝑋 mod 𝑇) < π, 1, -1) = -1)
321156, 320eqtrid 2792 . . . . . . 7 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → (𝐹𝑋) = -1)
322317, 321oveq12d 7466 . . . . . 6 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → (if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) = (-1 + -1))
323322oveq1d 7463 . . . . 5 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2) = ((-1 + -1) / 2))
324 df-2 12356 . . . . . . . . . 10 2 = (1 + 1)
325324negeqi 11529 . . . . . . . . 9 -2 = -(1 + 1)
326185, 185negdii 11620 . . . . . . . . 9 -(1 + 1) = (-1 + -1)
327325, 326eqtr2i 2769 . . . . . . . 8 (-1 + -1) = -2
328327oveq1i 7458 . . . . . . 7 ((-1 + -1) / 2) = (-2 / 2)
329 divneg 11986 . . . . . . . 8 ((2 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → -(2 / 2) = (-2 / 2))
330169, 169, 44, 329mp3an 1461 . . . . . . 7 -(2 / 2) = (-2 / 2)
331238negeqi 11529 . . . . . . 7 -(2 / 2) = -1
332328, 330, 3313eqtr2i 2774 . . . . . 6 ((-1 + -1) / 2) = -1
333332a1i 11 . . . . 5 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → ((-1 + -1) / 2) = -1)
334172a1i 11 . . . . . 6 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → 𝑌 = if((𝑋 mod π) = 0, 0, (𝐹𝑋)))
335312, 318ltnled 11437 . . . . . . . . 9 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → (π < (𝑋 mod 𝑇) ↔ ¬ (𝑋 mod 𝑇) ≤ π))
336315, 335mpbid 232 . . . . . . . 8 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → ¬ (𝑋 mod 𝑇) ≤ π)
337248, 112eqbrtrdi 5205 . . . . . . . . . 10 ((𝑋 mod 𝑇) = 0 → (𝑋 mod 𝑇) ≤ π)
338337adantl 481 . . . . . . . . 9 (((𝑋 mod π) = 0 ∧ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) ≤ π)
339126orcanai 1003 . . . . . . . . . 10 (((𝑋 mod π) = 0 ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) = π)
340339, 144syl 17 . . . . . . . . 9 (((𝑋 mod π) = 0 ∧ ¬ (𝑋 mod 𝑇) = 0) → (𝑋 mod 𝑇) ≤ π)
341338, 340pm2.61dan 812 . . . . . . . 8 ((𝑋 mod π) = 0 → (𝑋 mod 𝑇) ≤ π)
342336, 341nsyl 140 . . . . . . 7 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → ¬ (𝑋 mod π) = 0)
343342iffalsed 4559 . . . . . 6 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → if((𝑋 mod π) = 0, 0, (𝐹𝑋)) = (𝐹𝑋))
344334, 343, 3213eqtrrd 2785 . . . . 5 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → -1 = 𝑌)
345323, 333, 3443eqtrrd 2785 . . . 4 ((𝑋 mod 𝑇) ∈ (π(,)𝑇) → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
346310, 345syl 17 . . 3 ((¬ (𝑋 mod 𝑇) ∈ (0(,]π) ∧ ¬ (𝑋 mod 𝑇) = 0) → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
347279, 346pm2.61dan 812 . 2 (¬ (𝑋 mod 𝑇) ∈ (0(,]π) → 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2))
348245, 347pm2.61i 182 1 𝑌 = ((if((𝑋 mod 𝑇) ∈ (0(,]π), 1, -1) + (𝐹𝑋)) / 2)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  wo 846   = wceq 1537  wcel 2108  wne 2946  wrex 3076  ifcif 4548   class class class wbr 5166  cmpt 5249  cfv 6573  (class class class)co 7448  cc 11182  cr 11183  0cc0 11184  1c1 11185   + caddc 11187   · cmul 11189  *cxr 11323   < clt 11324  cle 11325  cmin 11520  -cneg 11521   / cdiv 11947  2c2 12348  cz 12639  +crp 13057  (,)cioo 13407  (,]cioc 13408  cfl 13841   mod cmo 13920  πcpi 16114  cdvds 16302
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-inf2 9710  ax-cnex 11240  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-pre-sup 11262  ax-addf 11263
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-pss 3996  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-tp 4653  df-op 4655  df-uni 4932  df-int 4971  df-iun 5017  df-iin 5018  df-br 5167  df-opab 5229  df-mpt 5250  df-tr 5284  df-id 5593  df-eprel 5599  df-po 5607  df-so 5608  df-fr 5652  df-se 5653  df-we 5654  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-pred 6332  df-ord 6398  df-on 6399  df-lim 6400  df-suc 6401  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-isom 6582  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-of 7714  df-om 7904  df-1st 8030  df-2nd 8031  df-supp 8202  df-frecs 8322  df-wrecs 8353  df-recs 8427  df-rdg 8466  df-1o 8522  df-2o 8523  df-er 8763  df-map 8886  df-pm 8887  df-ixp 8956  df-en 9004  df-dom 9005  df-sdom 9006  df-fin 9007  df-fsupp 9432  df-fi 9480  df-sup 9511  df-inf 9512  df-oi 9579  df-card 10008  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-nn 12294  df-2 12356  df-3 12357  df-4 12358  df-5 12359  df-6 12360  df-7 12361  df-8 12362  df-9 12363  df-n0 12554  df-z 12640  df-dec 12759  df-uz 12904  df-q 13014  df-rp 13058  df-xneg 13175  df-xadd 13176  df-xmul 13177  df-ioo 13411  df-ioc 13412  df-ico 13413  df-icc 13414  df-fz 13568  df-fzo 13712  df-fl 13843  df-mod 13921  df-seq 14053  df-exp 14113  df-fac 14323  df-bc 14352  df-hash 14380  df-shft 15116  df-cj 15148  df-re 15149  df-im 15150  df-sqrt 15284  df-abs 15285  df-limsup 15517  df-clim 15534  df-rlim 15535  df-sum 15735  df-ef 16115  df-sin 16117  df-cos 16118  df-pi 16120  df-dvds 16303  df-struct 17194  df-sets 17211  df-slot 17229  df-ndx 17241  df-base 17259  df-ress 17288  df-plusg 17324  df-mulr 17325  df-starv 17326  df-sca 17327  df-vsca 17328  df-ip 17329  df-tset 17330  df-ple 17331  df-ds 17333  df-unif 17334  df-hom 17335  df-cco 17336  df-rest 17482  df-topn 17483  df-0g 17501  df-gsum 17502  df-topgen 17503  df-pt 17504  df-prds 17507  df-xrs 17562  df-qtop 17567  df-imas 17568  df-xps 17570  df-mre 17644  df-mrc 17645  df-acs 17647  df-mgm 18678  df-sgrp 18757  df-mnd 18773  df-submnd 18819  df-mulg 19108  df-cntz 19357  df-cmn 19824  df-psmet 21379  df-xmet 21380  df-met 21381  df-bl 21382  df-mopn 21383  df-fbas 21384  df-fg 21385  df-cnfld 21388  df-top 22921  df-topon 22938  df-topsp 22960  df-bases 22974  df-cld 23048  df-ntr 23049  df-cls 23050  df-nei 23127  df-lp 23165  df-perf 23166  df-cn 23256  df-cnp 23257  df-haus 23344  df-tx 23591  df-hmeo 23784  df-fil 23875  df-fm 23967  df-flim 23968  df-flf 23969  df-xms 24351  df-ms 24352  df-tms 24353  df-cncf 24923  df-limc 25921  df-dv 25922
This theorem is referenced by:  fouriersw  46152
  Copyright terms: Public domain W3C validator