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 44932
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 485 . . . . . . . . . 10 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ 2 โˆฅ (๐‘‹ / ฯ€))
2 2z 12590 . . . . . . . . . . . 12 2 โˆˆ โ„ค
32a1i 11 . . . . . . . . . . 11 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ 2 โˆˆ โ„ค)
4 fourierswlem.x . . . . . . . . . . . . . 14 ๐‘‹ โˆˆ โ„
5 pirp 25962 . . . . . . . . . . . . . 14 ฯ€ โˆˆ โ„+
6 mod0 13837 . . . . . . . . . . . . . 14 ((๐‘‹ โˆˆ โ„ โˆง ฯ€ โˆˆ โ„+) โ†’ ((๐‘‹ mod ฯ€) = 0 โ†” (๐‘‹ / ฯ€) โˆˆ โ„ค))
74, 5, 6mp2an 690 . . . . . . . . . . . . 13 ((๐‘‹ mod ฯ€) = 0 โ†” (๐‘‹ / ฯ€) โˆˆ โ„ค)
87biimpi 215 . . . . . . . . . . . 12 ((๐‘‹ mod ฯ€) = 0 โ†’ (๐‘‹ / ฯ€) โˆˆ โ„ค)
98adantr 481 . . . . . . . . . . 11 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (๐‘‹ / ฯ€) โˆˆ โ„ค)
10 divides 16195 . . . . . . . . . . 11 ((2 โˆˆ โ„ค โˆง (๐‘‹ / ฯ€) โˆˆ โ„ค) โ†’ (2 โˆฅ (๐‘‹ / ฯ€) โ†” โˆƒ๐‘˜ โˆˆ โ„ค (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)))
113, 9, 10syl2anc 584 . . . . . . . . . 10 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (2 โˆฅ (๐‘‹ / ฯ€) โ†” โˆƒ๐‘˜ โˆˆ โ„ค (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)))
121, 11mpbid 231 . . . . . . . . 9 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ โˆƒ๐‘˜ โˆˆ โ„ค (๐‘˜ ยท 2) = (๐‘‹ / ฯ€))
13 2cnd 12286 . . . . . . . . . . . . . . . . . . 19 (๐‘˜ โˆˆ โ„ค โ†’ 2 โˆˆ โ„‚)
14 picn 25960 . . . . . . . . . . . . . . . . . . . 20 ฯ€ โˆˆ โ„‚
1514a1i 11 . . . . . . . . . . . . . . . . . . 19 (๐‘˜ โˆˆ โ„ค โ†’ ฯ€ โˆˆ โ„‚)
16 zcn 12559 . . . . . . . . . . . . . . . . . . 19 (๐‘˜ โˆˆ โ„ค โ†’ ๐‘˜ โˆˆ โ„‚)
1713, 15, 16mulassd 11233 . . . . . . . . . . . . . . . . . 18 (๐‘˜ โˆˆ โ„ค โ†’ ((2 ยท ฯ€) ยท ๐‘˜) = (2 ยท (ฯ€ ยท ๐‘˜)))
1815, 16mulcld 11230 . . . . . . . . . . . . . . . . . . 19 (๐‘˜ โˆˆ โ„ค โ†’ (ฯ€ ยท ๐‘˜) โˆˆ โ„‚)
1913, 18mulcomd 11231 . . . . . . . . . . . . . . . . . 18 (๐‘˜ โˆˆ โ„ค โ†’ (2 ยท (ฯ€ ยท ๐‘˜)) = ((ฯ€ ยท ๐‘˜) ยท 2))
2017, 19eqtrd 2772 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ โ„ค โ†’ ((2 ยท ฯ€) ยท ๐‘˜) = ((ฯ€ ยท ๐‘˜) ยท 2))
2120adantr 481 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ((2 ยท ฯ€) ยท ๐‘˜) = ((ฯ€ ยท ๐‘˜) ยท 2))
2215, 16, 13mulassd 11233 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ โ„ค โ†’ ((ฯ€ ยท ๐‘˜) ยท 2) = (ฯ€ ยท (๐‘˜ ยท 2)))
2322adantr 481 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ((ฯ€ ยท ๐‘˜) ยท 2) = (ฯ€ ยท (๐‘˜ ยท 2)))
24 id 22 . . . . . . . . . . . . . . . . . . 19 ((๐‘˜ ยท 2) = (๐‘‹ / ฯ€) โ†’ (๐‘˜ ยท 2) = (๐‘‹ / ฯ€))
2524eqcomd 2738 . . . . . . . . . . . . . . . . . 18 ((๐‘˜ ยท 2) = (๐‘‹ / ฯ€) โ†’ (๐‘‹ / ฯ€) = (๐‘˜ ยท 2))
2625adantl 482 . . . . . . . . . . . . . . . . 17 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ (๐‘‹ / ฯ€) = (๐‘˜ ยท 2))
274recni 11224 . . . . . . . . . . . . . . . . . . 19 ๐‘‹ โˆˆ โ„‚
2827a1i 11 . . . . . . . . . . . . . . . . . 18 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ๐‘‹ โˆˆ โ„‚)
2914a1i 11 . . . . . . . . . . . . . . . . . 18 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ฯ€ โˆˆ โ„‚)
3016adantr 481 . . . . . . . . . . . . . . . . . . 19 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ๐‘˜ โˆˆ โ„‚)
31 2cnd 12286 . . . . . . . . . . . . . . . . . . 19 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ 2 โˆˆ โ„‚)
3230, 31mulcld 11230 . . . . . . . . . . . . . . . . . 18 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ (๐‘˜ ยท 2) โˆˆ โ„‚)
33 pire 25959 . . . . . . . . . . . . . . . . . . . 20 ฯ€ โˆˆ โ„
34 pipos 25961 . . . . . . . . . . . . . . . . . . . 20 0 < ฯ€
3533, 34gt0ne0ii 11746 . . . . . . . . . . . . . . . . . . 19 ฯ€ โ‰  0
3635a1i 11 . . . . . . . . . . . . . . . . . 18 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ฯ€ โ‰  0)
3728, 29, 32, 36divmuld 12008 . . . . . . . . . . . . . . . . 17 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ((๐‘‹ / ฯ€) = (๐‘˜ ยท 2) โ†” (ฯ€ ยท (๐‘˜ ยท 2)) = ๐‘‹))
3826, 37mpbid 231 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ (ฯ€ ยท (๐‘˜ ยท 2)) = ๐‘‹)
3921, 23, 383eqtrrd 2777 . . . . . . . . . . . . . . 15 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ๐‘‹ = ((2 ยท ฯ€) ยท ๐‘˜))
40 fourierswlem.t . . . . . . . . . . . . . . . 16 ๐‘‡ = (2 ยท ฯ€)
4140a1i 11 . . . . . . . . . . . . . . 15 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ๐‘‡ = (2 ยท ฯ€))
4239, 41oveq12d 7423 . . . . . . . . . . . . . 14 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ (๐‘‹ / ๐‘‡) = (((2 ยท ฯ€) ยท ๐‘˜) / (2 ยท ฯ€)))
4313, 15mulcld 11230 . . . . . . . . . . . . . . . 16 (๐‘˜ โˆˆ โ„ค โ†’ (2 ยท ฯ€) โˆˆ โ„‚)
44 2ne0 12312 . . . . . . . . . . . . . . . . . 18 2 โ‰  0
4544a1i 11 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ โ„ค โ†’ 2 โ‰  0)
4635a1i 11 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ โ„ค โ†’ ฯ€ โ‰  0)
4713, 15, 45, 46mulne0d 11862 . . . . . . . . . . . . . . . 16 (๐‘˜ โˆˆ โ„ค โ†’ (2 ยท ฯ€) โ‰  0)
4816, 43, 47divcan3d 11991 . . . . . . . . . . . . . . 15 (๐‘˜ โˆˆ โ„ค โ†’ (((2 ยท ฯ€) ยท ๐‘˜) / (2 ยท ฯ€)) = ๐‘˜)
4948adantr 481 . . . . . . . . . . . . . 14 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ (((2 ยท ฯ€) ยท ๐‘˜) / (2 ยท ฯ€)) = ๐‘˜)
5042, 49eqtrd 2772 . . . . . . . . . . . . 13 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ (๐‘‹ / ๐‘‡) = ๐‘˜)
51 simpl 483 . . . . . . . . . . . . 13 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ ๐‘˜ โˆˆ โ„ค)
5250, 51eqeltrd 2833 . . . . . . . . . . . 12 ((๐‘˜ โˆˆ โ„ค โˆง (๐‘˜ ยท 2) = (๐‘‹ / ฯ€)) โ†’ (๐‘‹ / ๐‘‡) โˆˆ โ„ค)
5352ex 413 . . . . . . . . . . 11 (๐‘˜ โˆˆ โ„ค โ†’ ((๐‘˜ ยท 2) = (๐‘‹ / ฯ€) โ†’ (๐‘‹ / ๐‘‡) โˆˆ โ„ค))
5453a1i 11 . . . . . . . . . 10 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (๐‘˜ โˆˆ โ„ค โ†’ ((๐‘˜ ยท 2) = (๐‘‹ / ฯ€) โ†’ (๐‘‹ / ๐‘‡) โˆˆ โ„ค)))
5554rexlimdv 3153 . . . . . . . . 9 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (โˆƒ๐‘˜ โˆˆ โ„ค (๐‘˜ ยท 2) = (๐‘‹ / ฯ€) โ†’ (๐‘‹ / ๐‘‡) โˆˆ โ„ค))
5612, 55mpd 15 . . . . . . . 8 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (๐‘‹ / ๐‘‡) โˆˆ โ„ค)
57 2re 12282 . . . . . . . . . . . 12 2 โˆˆ โ„
5857, 33remulcli 11226 . . . . . . . . . . 11 (2 ยท ฯ€) โˆˆ โ„
5940, 58eqeltri 2829 . . . . . . . . . 10 ๐‘‡ โˆˆ โ„
60 2pos 12311 . . . . . . . . . . . 12 0 < 2
6157, 33, 60, 34mulgt0ii 11343 . . . . . . . . . . 11 0 < (2 ยท ฯ€)
6261, 40breqtrri 5174 . . . . . . . . . 10 0 < ๐‘‡
6359, 62elrpii 12973 . . . . . . . . 9 ๐‘‡ โˆˆ โ„+
64 mod0 13837 . . . . . . . . 9 ((๐‘‹ โˆˆ โ„ โˆง ๐‘‡ โˆˆ โ„+) โ†’ ((๐‘‹ mod ๐‘‡) = 0 โ†” (๐‘‹ / ๐‘‡) โˆˆ โ„ค))
654, 63, 64mp2an 690 . . . . . . . 8 ((๐‘‹ mod ๐‘‡) = 0 โ†” (๐‘‹ / ๐‘‡) โˆˆ โ„ค)
6656, 65sylibr 233 . . . . . . 7 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (๐‘‹ mod ๐‘‡) = 0)
6766orcd 871 . . . . . 6 (((๐‘‹ mod ฯ€) = 0 โˆง 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ ((๐‘‹ mod ๐‘‡) = 0 โˆจ (๐‘‹ mod ๐‘‡) = ฯ€))
68 odd2np1 16280 . . . . . . . . . 10 ((๐‘‹ / ฯ€) โˆˆ โ„ค โ†’ (ยฌ 2 โˆฅ (๐‘‹ / ฯ€) โ†” โˆƒ๐‘˜ โˆˆ โ„ค ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)))
697, 68sylbi 216 . . . . . . . . 9 ((๐‘‹ mod ฯ€) = 0 โ†’ (ยฌ 2 โˆฅ (๐‘‹ / ฯ€) โ†” โˆƒ๐‘˜ โˆˆ โ„ค ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)))
7069biimpa 477 . . . . . . . 8 (((๐‘‹ mod ฯ€) = 0 โˆง ยฌ 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ โˆƒ๐‘˜ โˆˆ โ„ค ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€))
7113, 16mulcld 11230 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ โ„ค โ†’ (2 ยท ๐‘˜) โˆˆ โ„‚)
7271adantr 481 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (2 ยท ๐‘˜) โˆˆ โ„‚)
73 1cnd 11205 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ 1 โˆˆ โ„‚)
7414a1i 11 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ฯ€ โˆˆ โ„‚)
7572, 73, 74adddird 11235 . . . . . . . . . . . . . . 15 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (((2 ยท ๐‘˜) + 1) ยท ฯ€) = (((2 ยท ๐‘˜) ยท ฯ€) + (1 ยท ฯ€)))
7613, 16mulcomd 11231 . . . . . . . . . . . . . . . . . . 19 (๐‘˜ โˆˆ โ„ค โ†’ (2 ยท ๐‘˜) = (๐‘˜ ยท 2))
7776oveq1d 7420 . . . . . . . . . . . . . . . . . 18 (๐‘˜ โˆˆ โ„ค โ†’ ((2 ยท ๐‘˜) ยท ฯ€) = ((๐‘˜ ยท 2) ยท ฯ€))
7816, 13, 15mulassd 11233 . . . . . . . . . . . . . . . . . 18 (๐‘˜ โˆˆ โ„ค โ†’ ((๐‘˜ ยท 2) ยท ฯ€) = (๐‘˜ ยท (2 ยท ฯ€)))
7940eqcomi 2741 . . . . . . . . . . . . . . . . . . . 20 (2 ยท ฯ€) = ๐‘‡
8079a1i 11 . . . . . . . . . . . . . . . . . . 19 (๐‘˜ โˆˆ โ„ค โ†’ (2 ยท ฯ€) = ๐‘‡)
8180oveq2d 7421 . . . . . . . . . . . . . . . . . 18 (๐‘˜ โˆˆ โ„ค โ†’ (๐‘˜ ยท (2 ยท ฯ€)) = (๐‘˜ ยท ๐‘‡))
8277, 78, 813eqtrd 2776 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ โ„ค โ†’ ((2 ยท ๐‘˜) ยท ฯ€) = (๐‘˜ ยท ๐‘‡))
8314mullidi 11215 . . . . . . . . . . . . . . . . . 18 (1 ยท ฯ€) = ฯ€
8483a1i 11 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ โ„ค โ†’ (1 ยท ฯ€) = ฯ€)
8582, 84oveq12d 7423 . . . . . . . . . . . . . . . 16 (๐‘˜ โˆˆ โ„ค โ†’ (((2 ยท ๐‘˜) ยท ฯ€) + (1 ยท ฯ€)) = ((๐‘˜ ยท ๐‘‡) + ฯ€))
8685adantr 481 . . . . . . . . . . . . . . 15 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (((2 ยท ๐‘˜) ยท ฯ€) + (1 ยท ฯ€)) = ((๐‘˜ ยท ๐‘‡) + ฯ€))
8740, 43eqeltrid 2837 . . . . . . . . . . . . . . . . . 18 (๐‘˜ โˆˆ โ„ค โ†’ ๐‘‡ โˆˆ โ„‚)
8816, 87mulcld 11230 . . . . . . . . . . . . . . . . 17 (๐‘˜ โˆˆ โ„ค โ†’ (๐‘˜ ยท ๐‘‡) โˆˆ โ„‚)
8988, 15addcomd 11412 . . . . . . . . . . . . . . . 16 (๐‘˜ โˆˆ โ„ค โ†’ ((๐‘˜ ยท ๐‘‡) + ฯ€) = (ฯ€ + (๐‘˜ ยท ๐‘‡)))
9089adantr 481 . . . . . . . . . . . . . . 15 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ((๐‘˜ ยท ๐‘‡) + ฯ€) = (ฯ€ + (๐‘˜ ยท ๐‘‡)))
9175, 86, 903eqtrrd 2777 . . . . . . . . . . . . . 14 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (ฯ€ + (๐‘˜ ยท ๐‘‡)) = (((2 ยท ๐‘˜) + 1) ยท ฯ€))
92 peano2cn 11382 . . . . . . . . . . . . . . . . 17 ((2 ยท ๐‘˜) โˆˆ โ„‚ โ†’ ((2 ยท ๐‘˜) + 1) โˆˆ โ„‚)
9371, 92syl 17 . . . . . . . . . . . . . . . 16 (๐‘˜ โˆˆ โ„ค โ†’ ((2 ยท ๐‘˜) + 1) โˆˆ โ„‚)
9493, 15mulcomd 11231 . . . . . . . . . . . . . . 15 (๐‘˜ โˆˆ โ„ค โ†’ (((2 ยท ๐‘˜) + 1) ยท ฯ€) = (ฯ€ ยท ((2 ยท ๐‘˜) + 1)))
9594adantr 481 . . . . . . . . . . . . . 14 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (((2 ยท ๐‘˜) + 1) ยท ฯ€) = (ฯ€ ยท ((2 ยท ๐‘˜) + 1)))
96 id 22 . . . . . . . . . . . . . . . . 17 (((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€) โ†’ ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€))
9796eqcomd 2738 . . . . . . . . . . . . . . . 16 (((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€) โ†’ (๐‘‹ / ฯ€) = ((2 ยท ๐‘˜) + 1))
9897adantl 482 . . . . . . . . . . . . . . 15 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (๐‘‹ / ฯ€) = ((2 ยท ๐‘˜) + 1))
9927a1i 11 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ๐‘‹ โˆˆ โ„‚)
10093adantr 481 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ((2 ยท ๐‘˜) + 1) โˆˆ โ„‚)
10135a1i 11 . . . . . . . . . . . . . . . 16 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ฯ€ โ‰  0)
10299, 74, 100, 101divmuld 12008 . . . . . . . . . . . . . . 15 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ((๐‘‹ / ฯ€) = ((2 ยท ๐‘˜) + 1) โ†” (ฯ€ ยท ((2 ยท ๐‘˜) + 1)) = ๐‘‹))
10398, 102mpbid 231 . . . . . . . . . . . . . 14 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (ฯ€ ยท ((2 ยท ๐‘˜) + 1)) = ๐‘‹)
10491, 95, 1033eqtrrd 2777 . . . . . . . . . . . . 13 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ๐‘‹ = (ฯ€ + (๐‘˜ ยท ๐‘‡)))
105104oveq1d 7420 . . . . . . . . . . . 12 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (๐‘‹ mod ๐‘‡) = ((ฯ€ + (๐‘˜ ยท ๐‘‡)) mod ๐‘‡))
106 modcyc 13867 . . . . . . . . . . . . . 14 ((ฯ€ โˆˆ โ„ โˆง ๐‘‡ โˆˆ โ„+ โˆง ๐‘˜ โˆˆ โ„ค) โ†’ ((ฯ€ + (๐‘˜ ยท ๐‘‡)) mod ๐‘‡) = (ฯ€ mod ๐‘‡))
10733, 63, 106mp3an12 1451 . . . . . . . . . . . . 13 (๐‘˜ โˆˆ โ„ค โ†’ ((ฯ€ + (๐‘˜ ยท ๐‘‡)) mod ๐‘‡) = (ฯ€ mod ๐‘‡))
108107adantr 481 . . . . . . . . . . . 12 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ((ฯ€ + (๐‘˜ ยท ๐‘‡)) mod ๐‘‡) = (ฯ€ mod ๐‘‡))
10933a1i 11 . . . . . . . . . . . . 13 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ฯ€ โˆˆ โ„)
11063a1i 11 . . . . . . . . . . . . 13 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ๐‘‡ โˆˆ โ„+)
111 0re 11212 . . . . . . . . . . . . . . 15 0 โˆˆ โ„
112111, 33, 34ltleii 11333 . . . . . . . . . . . . . 14 0 โ‰ค ฯ€
113112a1i 11 . . . . . . . . . . . . 13 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ 0 โ‰ค ฯ€)
114 2timesgt 43984 . . . . . . . . . . . . . . . 16 (ฯ€ โˆˆ โ„+ โ†’ ฯ€ < (2 ยท ฯ€))
1155, 114ax-mp 5 . . . . . . . . . . . . . . 15 ฯ€ < (2 ยท ฯ€)
116115, 40breqtrri 5174 . . . . . . . . . . . . . 14 ฯ€ < ๐‘‡
117116a1i 11 . . . . . . . . . . . . 13 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ ฯ€ < ๐‘‡)
118 modid 13857 . . . . . . . . . . . . 13 (((ฯ€ โˆˆ โ„ โˆง ๐‘‡ โˆˆ โ„+) โˆง (0 โ‰ค ฯ€ โˆง ฯ€ < ๐‘‡)) โ†’ (ฯ€ mod ๐‘‡) = ฯ€)
119109, 110, 113, 117, 118syl22anc 837 . . . . . . . . . . . 12 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (ฯ€ mod ๐‘‡) = ฯ€)
120105, 108, 1193eqtrd 2776 . . . . . . . . . . 11 ((๐‘˜ โˆˆ โ„ค โˆง ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€)) โ†’ (๐‘‹ mod ๐‘‡) = ฯ€)
121120ex 413 . . . . . . . . . 10 (๐‘˜ โˆˆ โ„ค โ†’ (((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€) โ†’ (๐‘‹ mod ๐‘‡) = ฯ€))
122121a1i 11 . . . . . . . . 9 (((๐‘‹ mod ฯ€) = 0 โˆง ยฌ 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (๐‘˜ โˆˆ โ„ค โ†’ (((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€) โ†’ (๐‘‹ mod ๐‘‡) = ฯ€)))
123122rexlimdv 3153 . . . . . . . 8 (((๐‘‹ mod ฯ€) = 0 โˆง ยฌ 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (โˆƒ๐‘˜ โˆˆ โ„ค ((2 ยท ๐‘˜) + 1) = (๐‘‹ / ฯ€) โ†’ (๐‘‹ mod ๐‘‡) = ฯ€))
12470, 123mpd 15 . . . . . . 7 (((๐‘‹ mod ฯ€) = 0 โˆง ยฌ 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ (๐‘‹ mod ๐‘‡) = ฯ€)
125124olcd 872 . . . . . 6 (((๐‘‹ mod ฯ€) = 0 โˆง ยฌ 2 โˆฅ (๐‘‹ / ฯ€)) โ†’ ((๐‘‹ mod ๐‘‡) = 0 โˆจ (๐‘‹ mod ๐‘‡) = ฯ€))
12667, 125pm2.61dan 811 . . . . 5 ((๐‘‹ mod ฯ€) = 0 โ†’ ((๐‘‹ mod ๐‘‡) = 0 โˆจ (๐‘‹ mod ๐‘‡) = ฯ€))
127 0xr 11257 . . . . . . . 8 0 โˆˆ โ„*
12833rexri 11268 . . . . . . . 8 ฯ€ โˆˆ โ„*
129 iocgtlb 44201 . . . . . . . 8 ((0 โˆˆ โ„* โˆง ฯ€ โˆˆ โ„* โˆง (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€)) โ†’ 0 < (๐‘‹ mod ๐‘‡))
130127, 128, 129mp3an12 1451 . . . . . . 7 ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โ†’ 0 < (๐‘‹ mod ๐‘‡))
131130gt0ne0d 11774 . . . . . 6 ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โ†’ (๐‘‹ mod ๐‘‡) โ‰  0)
132131neneqd 2945 . . . . 5 ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โ†’ ยฌ (๐‘‹ mod ๐‘‡) = 0)
133 pm2.53 849 . . . . . 6 (((๐‘‹ mod ๐‘‡) = 0 โˆจ (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ (ยฌ (๐‘‹ mod ๐‘‡) = 0 โ†’ (๐‘‹ mod ๐‘‡) = ฯ€))
134133imp 407 . . . . 5 ((((๐‘‹ mod ๐‘‡) = 0 โˆจ (๐‘‹ mod ๐‘‡) = ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) = ฯ€)
135126, 132, 134syl2anr 597 . . . 4 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง (๐‘‹ mod ฯ€) = 0) โ†’ (๐‘‹ mod ๐‘‡) = ฯ€)
136127a1i 11 . . . . . . . . . . . 12 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ 0 โˆˆ โ„*)
137128a1i 11 . . . . . . . . . . . 12 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ ฯ€ โˆˆ โ„*)
138 modcl 13834 . . . . . . . . . . . . . . 15 ((๐‘‹ โˆˆ โ„ โˆง ๐‘‡ โˆˆ โ„+) โ†’ (๐‘‹ mod ๐‘‡) โˆˆ โ„)
1394, 63, 138mp2an 690 . . . . . . . . . . . . . 14 (๐‘‹ mod ๐‘‡) โˆˆ โ„
140139rexri 11268 . . . . . . . . . . . . 13 (๐‘‹ mod ๐‘‡) โˆˆ โ„*
141140a1i 11 . . . . . . . . . . . 12 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ (๐‘‹ mod ๐‘‡) โˆˆ โ„*)
142 id 22 . . . . . . . . . . . . 13 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ (๐‘‹ mod ๐‘‡) = ฯ€)
14334, 142breqtrrid 5185 . . . . . . . . . . . 12 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ 0 < (๐‘‹ mod ๐‘‡))
14433eqlei2 11321 . . . . . . . . . . . 12 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
145136, 137, 141, 143, 144eliocd 44206 . . . . . . . . . . 11 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€))
146145iftrued 4535 . . . . . . . . . 10 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) = 1)
147146adantl 482 . . . . . . . . 9 (((๐‘‹ mod ฯ€) = 0 โˆง (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) = 1)
148 oveq1 7412 . . . . . . . . . . . . . . 15 (๐‘ฅ = ๐‘‹ โ†’ (๐‘ฅ mod ๐‘‡) = (๐‘‹ mod ๐‘‡))
149148breq1d 5157 . . . . . . . . . . . . . 14 (๐‘ฅ = ๐‘‹ โ†’ ((๐‘ฅ mod ๐‘‡) < ฯ€ โ†” (๐‘‹ mod ๐‘‡) < ฯ€))
150149ifbid 4550 . . . . . . . . . . . . 13 (๐‘ฅ = ๐‘‹ โ†’ if((๐‘ฅ mod ๐‘‡) < ฯ€, 1, -1) = if((๐‘‹ mod ๐‘‡) < ฯ€, 1, -1))
151 fourierswlem.f . . . . . . . . . . . . 13 ๐น = (๐‘ฅ โˆˆ โ„ โ†ฆ if((๐‘ฅ mod ๐‘‡) < ฯ€, 1, -1))
152 1ex 11206 . . . . . . . . . . . . . 14 1 โˆˆ V
153 negex 11454 . . . . . . . . . . . . . 14 -1 โˆˆ V
154152, 153ifex 4577 . . . . . . . . . . . . 13 if((๐‘‹ mod ๐‘‡) < ฯ€, 1, -1) โˆˆ V
155150, 151, 154fvmpt 6995 . . . . . . . . . . . 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 11346 . . . . . . . . . . . . 13 ((๐‘‹ mod ๐‘‡) < ฯ€ โ†’ (๐‘‹ mod ๐‘‡) โ‰  ฯ€)
160159necon2bi 2971 . . . . . . . . . . . 12 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ ยฌ (๐‘‹ mod ๐‘‡) < ฯ€)
161160iffalsed 4538 . . . . . . . . . . 11 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ if((๐‘‹ mod ๐‘‡) < ฯ€, 1, -1) = -1)
162156, 161eqtrid 2784 . . . . . . . . . 10 ((๐‘‹ mod ๐‘‡) = ฯ€ โ†’ (๐นโ€˜๐‘‹) = -1)
163162adantl 482 . . . . . . . . 9 (((๐‘‹ mod ฯ€) = 0 โˆง (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ (๐นโ€˜๐‘‹) = -1)
164147, 163oveq12d 7423 . . . . . . . 8 (((๐‘‹ mod ฯ€) = 0 โˆง (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ (if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) = (1 + -1))
165 1pneg1e0 12327 . . . . . . . 8 (1 + -1) = 0
166164, 165eqtrdi 2788 . . . . . . 7 (((๐‘‹ mod ฯ€) = 0 โˆง (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ (if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) = 0)
167166oveq1d 7420 . . . . . 6 (((๐‘‹ mod ฯ€) = 0 โˆง (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2) = (0 / 2))
168167adantll 712 . . . . 5 ((((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง (๐‘‹ mod ฯ€) = 0) โˆง (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2) = (0 / 2))
169 2cn 12283 . . . . . . 7 2 โˆˆ โ„‚
170169, 44div0i 11944 . . . . . 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 4533 . . . . . . 7 ((๐‘‹ mod ฯ€) = 0 โ†’ if((๐‘‹ mod ฯ€) = 0, 0, (๐นโ€˜๐‘‹)) = 0)
174172, 173eqtr2id 2785 . . . . . 6 ((๐‘‹ mod ฯ€) = 0 โ†’ 0 = ๐‘Œ)
175174ad2antlr 725 . . . . 5 ((((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง (๐‘‹ mod ฯ€) = 0) โˆง (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ 0 = ๐‘Œ)
176168, 171, 1753eqtrrd 2777 . . . 4 ((((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง (๐‘‹ mod ฯ€) = 0) โˆง (๐‘‹ mod ๐‘‡) = ฯ€) โ†’ ๐‘Œ = ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2))
177135, 176mpdan 685 . . 3 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง (๐‘‹ mod ฯ€) = 0) โ†’ ๐‘Œ = ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2))
178 iftrue 4533 . . . . . . 7 ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โ†’ if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) = 1)
179178adantr 481 . . . . . 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 44202 . . . . . . . . . 10 ((0 โˆˆ โ„* โˆง ฯ€ โˆˆ โ„* โˆง (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€)) โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
183127, 128, 182mp3an12 1451 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
184183adantr 481 . . . . . . . 8 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
185 ax-1cn 11164 . . . . . . . . . . . . . . . . . . . 20 1 โˆˆ โ„‚
186185, 14mulcomi 11218 . . . . . . . . . . . . . . . . . . 19 (1 ยท ฯ€) = (ฯ€ ยท 1)
18783, 186eqtr3i 2762 . . . . . . . . . . . . . . . . . 18 ฯ€ = (ฯ€ ยท 1)
188187oveq1i 7415 . . . . . . . . . . . . . . . . 17 (ฯ€ + (ฯ€ ยท (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))) = ((ฯ€ ยท 1) + (ฯ€ ยท (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))))
189169, 14mulcomi 11218 . . . . . . . . . . . . . . . . . . . . 21 (2 ยท ฯ€) = (ฯ€ ยท 2)
19040, 189eqtri 2760 . . . . . . . . . . . . . . . . . . . 20 ๐‘‡ = (ฯ€ ยท 2)
191190oveq1i 7415 . . . . . . . . . . . . . . . . . . 19 (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) = ((ฯ€ ยท 2) ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))
192111, 62gtneii 11322 . . . . . . . . . . . . . . . . . . . . . . 23 ๐‘‡ โ‰  0
1934, 59, 192redivcli 11977 . . . . . . . . . . . . . . . . . . . . . 22 (๐‘‹ / ๐‘‡) โˆˆ โ„
194 flcl 13756 . . . . . . . . . . . . . . . . . . . . . 22 ((๐‘‹ / ๐‘‡) โˆˆ โ„ โ†’ (โŒŠโ€˜(๐‘‹ / ๐‘‡)) โˆˆ โ„ค)
195193, 194ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 (โŒŠโ€˜(๐‘‹ / ๐‘‡)) โˆˆ โ„ค
196 zcn 12559 . . . . . . . . . . . . . . . . . . . . 21 ((โŒŠโ€˜(๐‘‹ / ๐‘‡)) โˆˆ โ„ค โ†’ (โŒŠโ€˜(๐‘‹ / ๐‘‡)) โˆˆ โ„‚)
197195, 196ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 (โŒŠโ€˜(๐‘‹ / ๐‘‡)) โˆˆ โ„‚
19814, 169, 197mulassi 11221 . . . . . . . . . . . . . . . . . . 19 ((ฯ€ ยท 2) ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) = (ฯ€ ยท (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))
199191, 198eqtri 2760 . . . . . . . . . . . . . . . . . 18 (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) = (ฯ€ ยท (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))
200199oveq2i 7416 . . . . . . . . . . . . . . . . 17 (ฯ€ + (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) = (ฯ€ + (ฯ€ ยท (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))))
201169, 197mulcli 11217 . . . . . . . . . . . . . . . . . 18 (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) โˆˆ โ„‚
20214, 185, 201adddii 11222 . . . . . . . . . . . . . . . . 17 (ฯ€ ยท (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))) = ((ฯ€ ยท 1) + (ฯ€ ยท (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))))
203188, 200, 2023eqtr4ri 2771 . . . . . . . . . . . . . . . 16 (ฯ€ ยท (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))) = (ฯ€ + (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))
204203a1i 11 . . . . . . . . . . . . . . 15 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ (ฯ€ ยท (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))) = (ฯ€ + (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))))
205 id 22 . . . . . . . . . . . . . . . . 17 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ ฯ€ = (๐‘‹ mod ๐‘‡))
206 modval 13832 . . . . . . . . . . . . . . . . . 18 ((๐‘‹ โˆˆ โ„ โˆง ๐‘‡ โˆˆ โ„+) โ†’ (๐‘‹ mod ๐‘‡) = (๐‘‹ โˆ’ (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))))
2074, 63, 206mp2an 690 . . . . . . . . . . . . . . . . 17 (๐‘‹ mod ๐‘‡) = (๐‘‹ โˆ’ (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))
208205, 207eqtrdi 2788 . . . . . . . . . . . . . . . 16 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ ฯ€ = (๐‘‹ โˆ’ (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))))
209208oveq1d 7420 . . . . . . . . . . . . . . 15 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ (ฯ€ + (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) = ((๐‘‹ โˆ’ (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) + (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))))
21027a1i 11 . . . . . . . . . . . . . . . 16 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ ๐‘‹ โˆˆ โ„‚)
21159recni 11224 . . . . . . . . . . . . . . . . . 18 ๐‘‡ โˆˆ โ„‚
212211, 197mulcli 11217 . . . . . . . . . . . . . . . . 17 (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) โˆˆ โ„‚
213212a1i 11 . . . . . . . . . . . . . . . 16 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) โˆˆ โ„‚)
214210, 213npcand 11571 . . . . . . . . . . . . . . 15 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ ((๐‘‹ โˆ’ (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) + (๐‘‡ ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) = ๐‘‹)
215204, 209, 2143eqtrrd 2777 . . . . . . . . . . . . . 14 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ ๐‘‹ = (ฯ€ ยท (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))))
216215oveq1d 7420 . . . . . . . . . . . . 13 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ (๐‘‹ / ฯ€) = ((ฯ€ ยท (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))) / ฯ€))
217185, 201addcli 11216 . . . . . . . . . . . . . 14 (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) โˆˆ โ„‚
218217, 14, 35divcan3i 11956 . . . . . . . . . . . . 13 ((ฯ€ ยท (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))) / ฯ€) = (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))))
219216, 218eqtrdi 2788 . . . . . . . . . . . 12 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ (๐‘‹ / ฯ€) = (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))))
220 1z 12588 . . . . . . . . . . . . . 14 1 โˆˆ โ„ค
221 zmulcl 12607 . . . . . . . . . . . . . . 15 ((2 โˆˆ โ„ค โˆง (โŒŠโ€˜(๐‘‹ / ๐‘‡)) โˆˆ โ„ค) โ†’ (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) โˆˆ โ„ค)
2222, 195, 221mp2an 690 . . . . . . . . . . . . . 14 (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) โˆˆ โ„ค
223 zaddcl 12598 . . . . . . . . . . . . . 14 ((1 โˆˆ โ„ค โˆง (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡))) โˆˆ โ„ค) โ†’ (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) โˆˆ โ„ค)
224220, 222, 223mp2an 690 . . . . . . . . . . . . 13 (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) โˆˆ โ„ค
225224a1i 11 . . . . . . . . . . . 12 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ (1 + (2 ยท (โŒŠโ€˜(๐‘‹ / ๐‘‡)))) โˆˆ โ„ค)
226219, 225eqeltrd 2833 . . . . . . . . . . 11 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ (๐‘‹ / ฯ€) โˆˆ โ„ค)
227226, 7sylibr 233 . . . . . . . . . 10 (ฯ€ = (๐‘‹ mod ๐‘‡) โ†’ (๐‘‹ mod ฯ€) = 0)
228227necon3bi 2967 . . . . . . . . 9 (ยฌ (๐‘‹ mod ฯ€) = 0 โ†’ ฯ€ โ‰  (๐‘‹ mod ๐‘‡))
229228adantl 482 . . . . . . . 8 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ ฯ€ โ‰  (๐‘‹ mod ๐‘‡))
230180, 181, 184, 229leneltd 11364 . . . . . . 7 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ (๐‘‹ mod ๐‘‡) < ฯ€)
231 iftrue 4533 . . . . . . . 8 ((๐‘‹ mod ๐‘‡) < ฯ€ โ†’ if((๐‘‹ mod ๐‘‡) < ฯ€, 1, -1) = 1)
232156, 231eqtrid 2784 . . . . . . 7 ((๐‘‹ mod ๐‘‡) < ฯ€ โ†’ (๐นโ€˜๐‘‹) = 1)
233230, 232syl 17 . . . . . 6 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ (๐นโ€˜๐‘‹) = 1)
234179, 233oveq12d 7423 . . . . 5 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ (if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) = (1 + 1))
235234oveq1d 7420 . . . 4 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2) = ((1 + 1) / 2))
236 1p1e2 12333 . . . . . . 7 (1 + 1) = 2
237236oveq1i 7415 . . . . . 6 ((1 + 1) / 2) = (2 / 2)
238 2div2e1 12349 . . . . . 6 (2 / 2) = 1
239237, 238eqtr2i 2761 . . . . 5 1 = ((1 + 1) / 2)
240233, 239eqtr2di 2789 . . . 4 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ ((1 + 1) / 2) = (๐นโ€˜๐‘‹))
241 iffalse 4536 . . . . . 6 (ยฌ (๐‘‹ mod ฯ€) = 0 โ†’ if((๐‘‹ mod ฯ€) = 0, 0, (๐นโ€˜๐‘‹)) = (๐นโ€˜๐‘‹))
242172, 241eqtr2id 2785 . . . . 5 (ยฌ (๐‘‹ mod ฯ€) = 0 โ†’ (๐นโ€˜๐‘‹) = ๐‘Œ)
243242adantl 482 . . . 4 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ (๐นโ€˜๐‘‹) = ๐‘Œ)
244235, 240, 2433eqtrrd 2777 . . 3 (((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ฯ€) = 0) โ†’ ๐‘Œ = ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2))
245177, 244pm2.61dan 811 . 2 ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โ†’ ๐‘Œ = ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2))
246131necon2bi 2971 . . . . . . . 8 ((๐‘‹ mod ๐‘‡) = 0 โ†’ ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€))
247246iffalsed 4538 . . . . . . 7 ((๐‘‹ mod ๐‘‡) = 0 โ†’ if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) = -1)
248 id 22 . . . . . . . . . 10 ((๐‘‹ mod ๐‘‡) = 0 โ†’ (๐‘‹ mod ๐‘‡) = 0)
249248, 34eqbrtrdi 5186 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) = 0 โ†’ (๐‘‹ mod ๐‘‡) < ฯ€)
250249iftrued 4535 . . . . . . . 8 ((๐‘‹ mod ๐‘‡) = 0 โ†’ if((๐‘‹ mod ๐‘‡) < ฯ€, 1, -1) = 1)
251156, 250eqtrid 2784 . . . . . . 7 ((๐‘‹ mod ๐‘‡) = 0 โ†’ (๐นโ€˜๐‘‹) = 1)
252247, 251oveq12d 7423 . . . . . 6 ((๐‘‹ mod ๐‘‡) = 0 โ†’ (if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) = (-1 + 1))
253252oveq1d 7420 . . . . 5 ((๐‘‹ mod ๐‘‡) = 0 โ†’ ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2) = ((-1 + 1) / 2))
254 neg1cn 12322 . . . . . . . . 9 -1 โˆˆ โ„‚
255185, 254, 165addcomli 11402 . . . . . . . 8 (-1 + 1) = 0
256255oveq1i 7415 . . . . . . 7 ((-1 + 1) / 2) = (0 / 2)
257256, 170eqtri 2760 . . . . . 6 ((-1 + 1) / 2) = 0
258257a1i 11 . . . . 5 ((๐‘‹ mod ๐‘‡) = 0 โ†’ ((-1 + 1) / 2) = 0)
25940oveq2i 7416 . . . . . . . . . . . . 13 (๐‘‹ / ๐‘‡) = (๐‘‹ / (2 ยท ฯ€))
260 2cnne0 12418 . . . . . . . . . . . . . 14 (2 โˆˆ โ„‚ โˆง 2 โ‰  0)
26114, 35pm3.2i 471 . . . . . . . . . . . . . 14 (ฯ€ โˆˆ โ„‚ โˆง ฯ€ โ‰  0)
262 divdiv1 11921 . . . . . . . . . . . . . 14 ((๐‘‹ โˆˆ โ„‚ โˆง (2 โˆˆ โ„‚ โˆง 2 โ‰  0) โˆง (ฯ€ โˆˆ โ„‚ โˆง ฯ€ โ‰  0)) โ†’ ((๐‘‹ / 2) / ฯ€) = (๐‘‹ / (2 ยท ฯ€)))
26327, 260, 261, 262mp3an 1461 . . . . . . . . . . . . 13 ((๐‘‹ / 2) / ฯ€) = (๐‘‹ / (2 ยท ฯ€))
26427, 169, 14, 44, 35divdiv32i 11965 . . . . . . . . . . . . 13 ((๐‘‹ / 2) / ฯ€) = ((๐‘‹ / ฯ€) / 2)
265259, 263, 2643eqtr2i 2766 . . . . . . . . . . . 12 (๐‘‹ / ๐‘‡) = ((๐‘‹ / ฯ€) / 2)
266265oveq2i 7416 . . . . . . . . . . 11 (2 ยท (๐‘‹ / ๐‘‡)) = (2 ยท ((๐‘‹ / ฯ€) / 2))
26727, 14, 35divcli 11952 . . . . . . . . . . . 12 (๐‘‹ / ฯ€) โˆˆ โ„‚
268267, 169, 44divcan2i 11953 . . . . . . . . . . 11 (2 ยท ((๐‘‹ / ฯ€) / 2)) = (๐‘‹ / ฯ€)
269266, 268eqtr2i 2761 . . . . . . . . . 10 (๐‘‹ / ฯ€) = (2 ยท (๐‘‹ / ๐‘‡))
2702a1i 11 . . . . . . . . . . 11 ((๐‘‹ / ๐‘‡) โˆˆ โ„ค โ†’ 2 โˆˆ โ„ค)
271 id 22 . . . . . . . . . . 11 ((๐‘‹ / ๐‘‡) โˆˆ โ„ค โ†’ (๐‘‹ / ๐‘‡) โˆˆ โ„ค)
272270, 271zmulcld 12668 . . . . . . . . . 10 ((๐‘‹ / ๐‘‡) โˆˆ โ„ค โ†’ (2 ยท (๐‘‹ / ๐‘‡)) โˆˆ โ„ค)
273269, 272eqeltrid 2837 . . . . . . . . 9 ((๐‘‹ / ๐‘‡) โˆˆ โ„ค โ†’ (๐‘‹ / ฯ€) โˆˆ โ„ค)
27465, 273sylbi 216 . . . . . . . 8 ((๐‘‹ mod ๐‘‡) = 0 โ†’ (๐‘‹ / ฯ€) โˆˆ โ„ค)
275274, 7sylibr 233 . . . . . . 7 ((๐‘‹ mod ๐‘‡) = 0 โ†’ (๐‘‹ mod ฯ€) = 0)
276275iftrued 4535 . . . . . 6 ((๐‘‹ mod ๐‘‡) = 0 โ†’ if((๐‘‹ mod ฯ€) = 0, 0, (๐นโ€˜๐‘‹)) = 0)
277172, 276eqtr2id 2785 . . . . 5 ((๐‘‹ mod ๐‘‡) = 0 โ†’ 0 = ๐‘Œ)
278253, 258, 2773eqtrrd 2777 . . . 4 ((๐‘‹ mod ๐‘‡) = 0 โ†’ ๐‘Œ = ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2))
279278adantl 482 . . 3 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง (๐‘‹ mod ๐‘‡) = 0) โ†’ ๐‘Œ = ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2))
280128a1i 11 . . . . 5 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ ฯ€ โˆˆ โ„*)
28159rexri 11268 . . . . . 6 ๐‘‡ โˆˆ โ„*
282281a1i 11 . . . . 5 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ ๐‘‡ โˆˆ โ„*)
283139a1i 11 . . . . 5 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) โˆˆ โ„)
284 pm4.56 987 . . . . . . . 8 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†” ยฌ ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆจ (๐‘‹ mod ๐‘‡) = 0))
285284biimpi 215 . . . . . . 7 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ ยฌ ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆจ (๐‘‹ mod ๐‘‡) = 0))
286 olc 866 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) = 0 โ†’ ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆจ (๐‘‹ mod ๐‘‡) = 0))
287286adantl 482 . . . . . . . 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 11213 . . . . . . . . . . . 12 (ยฌ (๐‘‹ mod ๐‘‡) = 0 โ†’ 0 โˆˆ โ„)
292139a1i 11 . . . . . . . . . . . 12 (ยฌ (๐‘‹ mod ๐‘‡) = 0 โ†’ (๐‘‹ mod ๐‘‡) โˆˆ โ„)
293 modge0 13840 . . . . . . . . . . . . . 14 ((๐‘‹ โˆˆ โ„ โˆง ๐‘‡ โˆˆ โ„+) โ†’ 0 โ‰ค (๐‘‹ mod ๐‘‡))
2944, 63, 293mp2an 690 . . . . . . . . . . . . 13 0 โ‰ค (๐‘‹ mod ๐‘‡)
295294a1i 11 . . . . . . . . . . . 12 (ยฌ (๐‘‹ mod ๐‘‡) = 0 โ†’ 0 โ‰ค (๐‘‹ mod ๐‘‡))
296 neqne 2948 . . . . . . . . . . . 12 (ยฌ (๐‘‹ mod ๐‘‡) = 0 โ†’ (๐‘‹ mod ๐‘‡) โ‰  0)
297291, 292, 295, 296leneltd 11364 . . . . . . . . . . 11 (ยฌ (๐‘‹ mod ๐‘‡) = 0 โ†’ 0 < (๐‘‹ mod ๐‘‡))
298297adantl 482 . . . . . . . . . 10 (((๐‘‹ mod ๐‘‡) โ‰ค ฯ€ โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ 0 < (๐‘‹ mod ๐‘‡))
299 simpl 483 . . . . . . . . . 10 (((๐‘‹ mod ๐‘‡) โ‰ค ฯ€ โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
300288, 289, 290, 298, 299eliocd 44206 . . . . . . . . 9 (((๐‘‹ mod ๐‘‡) โ‰ค ฯ€ โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€))
301300orcd 871 . . . . . . . 8 (((๐‘‹ mod ๐‘‡) โ‰ค ฯ€ โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆจ (๐‘‹ mod ๐‘‡) = 0))
302287, 301pm2.61dan 811 . . . . . . 7 ((๐‘‹ mod ๐‘‡) โ‰ค ฯ€ โ†’ ((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆจ (๐‘‹ mod ๐‘‡) = 0))
303285, 302nsyl 140 . . . . . 6 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ ยฌ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
30433a1i 11 . . . . . . 7 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ ฯ€ โˆˆ โ„)
305304, 283ltnled 11357 . . . . . 6 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (ฯ€ < (๐‘‹ mod ๐‘‡) โ†” ยฌ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€))
306303, 305mpbird 256 . . . . 5 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ ฯ€ < (๐‘‹ mod ๐‘‡))
307 modlt 13841 . . . . . . 7 ((๐‘‹ โˆˆ โ„ โˆง ๐‘‡ โˆˆ โ„+) โ†’ (๐‘‹ mod ๐‘‡) < ๐‘‡)
3084, 63, 307mp2an 690 . . . . . 6 (๐‘‹ mod ๐‘‡) < ๐‘‡
309308a1i 11 . . . . 5 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) < ๐‘‡)
310280, 282, 283, 306, 309eliood 44197 . . . 4 ((ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€) โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡))
311127a1i 11 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ 0 โˆˆ โ„*)
31233a1i 11 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ฯ€ โˆˆ โ„)
313140a1i 11 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ (๐‘‹ mod ๐‘‡) โˆˆ โ„*)
314 ioogtlb 44194 . . . . . . . . . 10 ((ฯ€ โˆˆ โ„* โˆง ๐‘‡ โˆˆ โ„* โˆง (๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡)) โ†’ ฯ€ < (๐‘‹ mod ๐‘‡))
315128, 281, 314mp3an12 1451 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ฯ€ < (๐‘‹ mod ๐‘‡))
316311, 312, 313, 315gtnelioc 44190 . . . . . . . 8 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ยฌ (๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€))
317316iffalsed 4538 . . . . . . 7 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) = -1)
318139a1i 11 . . . . . . . . . 10 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ (๐‘‹ mod ๐‘‡) โˆˆ โ„)
319312, 318, 315ltnsymd 11359 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ยฌ (๐‘‹ mod ๐‘‡) < ฯ€)
320319iffalsed 4538 . . . . . . . 8 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ if((๐‘‹ mod ๐‘‡) < ฯ€, 1, -1) = -1)
321156, 320eqtrid 2784 . . . . . . 7 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ (๐นโ€˜๐‘‹) = -1)
322317, 321oveq12d 7423 . . . . . 6 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ (if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) = (-1 + -1))
323322oveq1d 7420 . . . . 5 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ((if((๐‘‹ mod ๐‘‡) โˆˆ (0(,]ฯ€), 1, -1) + (๐นโ€˜๐‘‹)) / 2) = ((-1 + -1) / 2))
324 df-2 12271 . . . . . . . . . 10 2 = (1 + 1)
325324negeqi 11449 . . . . . . . . 9 -2 = -(1 + 1)
326185, 185negdii 11540 . . . . . . . . 9 -(1 + 1) = (-1 + -1)
327325, 326eqtr2i 2761 . . . . . . . 8 (-1 + -1) = -2
328327oveq1i 7415 . . . . . . 7 ((-1 + -1) / 2) = (-2 / 2)
329 divneg 11902 . . . . . . . 8 ((2 โˆˆ โ„‚ โˆง 2 โˆˆ โ„‚ โˆง 2 โ‰  0) โ†’ -(2 / 2) = (-2 / 2))
330169, 169, 44, 329mp3an 1461 . . . . . . 7 -(2 / 2) = (-2 / 2)
331238negeqi 11449 . . . . . . 7 -(2 / 2) = -1
332328, 330, 3313eqtr2i 2766 . . . . . 6 ((-1 + -1) / 2) = -1
333332a1i 11 . . . . 5 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ((-1 + -1) / 2) = -1)
334172a1i 11 . . . . . 6 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ๐‘Œ = if((๐‘‹ mod ฯ€) = 0, 0, (๐นโ€˜๐‘‹)))
335312, 318ltnled 11357 . . . . . . . . 9 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ (ฯ€ < (๐‘‹ mod ๐‘‡) โ†” ยฌ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€))
336315, 335mpbid 231 . . . . . . . 8 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ยฌ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
337248, 112eqbrtrdi 5186 . . . . . . . . . 10 ((๐‘‹ mod ๐‘‡) = 0 โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
338337adantl 482 . . . . . . . . 9 (((๐‘‹ mod ฯ€) = 0 โˆง (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
339126orcanai 1001 . . . . . . . . . 10 (((๐‘‹ mod ฯ€) = 0 โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) = ฯ€)
340339, 144syl 17 . . . . . . . . 9 (((๐‘‹ mod ฯ€) = 0 โˆง ยฌ (๐‘‹ mod ๐‘‡) = 0) โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
341338, 340pm2.61dan 811 . . . . . . . 8 ((๐‘‹ mod ฯ€) = 0 โ†’ (๐‘‹ mod ๐‘‡) โ‰ค ฯ€)
342336, 341nsyl 140 . . . . . . 7 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ ยฌ (๐‘‹ mod ฯ€) = 0)
343342iffalsed 4538 . . . . . 6 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ if((๐‘‹ mod ฯ€) = 0, 0, (๐นโ€˜๐‘‹)) = (๐นโ€˜๐‘‹))
344334, 343, 3213eqtrrd 2777 . . . . 5 ((๐‘‹ mod ๐‘‡) โˆˆ (ฯ€(,)๐‘‡) โ†’ -1 = ๐‘Œ)
345323, 333, 3443eqtrrd 2777 . . . 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 811 . 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 205   โˆง wa 396   โˆจ wo 845   = wceq 1541   โˆˆ wcel 2106   โ‰  wne 2940  โˆƒwrex 3070  ifcif 4527   class class class wbr 5147   โ†ฆ cmpt 5230  โ€˜cfv 6540  (class class class)co 7405  โ„‚cc 11104  โ„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   ยท cmul 11111  โ„*cxr 11243   < clt 11244   โ‰ค cle 11245   โˆ’ cmin 11440  -cneg 11441   / cdiv 11867  2c2 12263  โ„คcz 12554  โ„+crp 12970  (,)cioo 13320  (,]cioc 13321  โŒŠcfl 13751   mod cmo 13830  ฯ€cpi 16006   โˆฅ cdvds 16193
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185  ax-mulf 11186
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-om 7852  df-1st 7971  df-2nd 7972  df-supp 8143  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-z 12555  df-dec 12674  df-uz 12819  df-q 12929  df-rp 12971  df-xneg 13088  df-xadd 13089  df-xmul 13090  df-ioo 13324  df-ioc 13325  df-ico 13326  df-icc 13327  df-fz 13481  df-fzo 13624  df-fl 13753  df-mod 13831  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-shft 15010  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-sum 15629  df-ef 16007  df-sin 16009  df-cos 16010  df-pi 16012  df-dvds 16194  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-ress 17170  df-plusg 17206  df-mulr 17207  df-starv 17208  df-sca 17209  df-vsca 17210  df-ip 17211  df-tset 17212  df-ple 17213  df-ds 17215  df-unif 17216  df-hom 17217  df-cco 17218  df-rest 17364  df-topn 17365  df-0g 17383  df-gsum 17384  df-topgen 17385  df-pt 17386  df-prds 17389  df-xrs 17444  df-qtop 17449  df-imas 17450  df-xps 17452  df-mre 17526  df-mrc 17527  df-acs 17529  df-mgm 18557  df-sgrp 18606  df-mnd 18622  df-submnd 18668  df-mulg 18945  df-cntz 19175  df-cmn 19644  df-psmet 20928  df-xmet 20929  df-met 20930  df-bl 20931  df-mopn 20932  df-fbas 20933  df-fg 20934  df-cnfld 20937  df-top 22387  df-topon 22404  df-topsp 22426  df-bases 22440  df-cld 22514  df-ntr 22515  df-cls 22516  df-nei 22593  df-lp 22631  df-perf 22632  df-cn 22722  df-cnp 22723  df-haus 22810  df-tx 23057  df-hmeo 23250  df-fil 23341  df-fm 23433  df-flim 23434  df-flf 23435  df-xms 23817  df-ms 23818  df-tms 23819  df-cncf 24385  df-limc 25374  df-dv 25375
This theorem is referenced by:  fouriersw  44933
  Copyright terms: Public domain W3C validator