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

Theorem fourierdlem43 44511
Description: 𝐾 is a real function. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypothesis
Ref Expression
fourierdlem43.1 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
Assertion
Ref Expression
fourierdlem43 𝐾:(-π[,]π)⟶ℝ

Proof of Theorem fourierdlem43
StepHypRef Expression
1 fourierdlem43.1 . 2 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
2 1red 11165 . . 3 ((𝑠 ∈ (-π[,]π) ∧ 𝑠 = 0) → 1 ∈ ℝ)
3 pire 25852 . . . . . . . 8 π ∈ ℝ
43a1i 11 . . . . . . 7 (𝑠 ∈ (-π[,]π) → π ∈ ℝ)
54renegcld 11591 . . . . . 6 (𝑠 ∈ (-π[,]π) → -π ∈ ℝ)
6 id 22 . . . . . 6 (𝑠 ∈ (-π[,]π) → 𝑠 ∈ (-π[,]π))
7 eliccre 43863 . . . . . 6 ((-π ∈ ℝ ∧ π ∈ ℝ ∧ 𝑠 ∈ (-π[,]π)) → 𝑠 ∈ ℝ)
85, 4, 6, 7syl3anc 1371 . . . . 5 (𝑠 ∈ (-π[,]π) → 𝑠 ∈ ℝ)
98adantr 481 . . . 4 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → 𝑠 ∈ ℝ)
10 2re 12236 . . . . . 6 2 ∈ ℝ
1110a1i 11 . . . . 5 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → 2 ∈ ℝ)
129rehalfcld 12409 . . . . . 6 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → (𝑠 / 2) ∈ ℝ)
1312resincld 16036 . . . . 5 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → (sin‘(𝑠 / 2)) ∈ ℝ)
1411, 13remulcld 11194 . . . 4 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → (2 · (sin‘(𝑠 / 2))) ∈ ℝ)
15 2cnd 12240 . . . . 5 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → 2 ∈ ℂ)
1613recnd 11192 . . . . 5 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → (sin‘(𝑠 / 2)) ∈ ℂ)
17 2ne0 12266 . . . . . 6 2 ≠ 0
1817a1i 11 . . . . 5 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → 2 ≠ 0)
19 0xr 11211 . . . . . . . . . 10 0 ∈ ℝ*
2019a1i 11 . . . . . . . . 9 ((𝑠 ∈ (-π[,]π) ∧ 0 < 𝑠) → 0 ∈ ℝ*)
2110, 3remulcli 11180 . . . . . . . . . . 11 (2 · π) ∈ ℝ
2221rexri 11222 . . . . . . . . . 10 (2 · π) ∈ ℝ*
2322a1i 11 . . . . . . . . 9 ((𝑠 ∈ (-π[,]π) ∧ 0 < 𝑠) → (2 · π) ∈ ℝ*)
248adantr 481 . . . . . . . . 9 ((𝑠 ∈ (-π[,]π) ∧ 0 < 𝑠) → 𝑠 ∈ ℝ)
25 simpr 485 . . . . . . . . 9 ((𝑠 ∈ (-π[,]π) ∧ 0 < 𝑠) → 0 < 𝑠)
2621a1i 11 . . . . . . . . . . 11 (𝑠 ∈ (-π[,]π) → (2 · π) ∈ ℝ)
275rexrd 11214 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,]π) → -π ∈ ℝ*)
284rexrd 11214 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,]π) → π ∈ ℝ*)
29 iccleub 13329 . . . . . . . . . . . 12 ((-π ∈ ℝ* ∧ π ∈ ℝ*𝑠 ∈ (-π[,]π)) → 𝑠 ≤ π)
3027, 28, 6, 29syl3anc 1371 . . . . . . . . . . 11 (𝑠 ∈ (-π[,]π) → 𝑠 ≤ π)
31 pirp 25855 . . . . . . . . . . . . 13 π ∈ ℝ+
32 2timesgt 43643 . . . . . . . . . . . . 13 (π ∈ ℝ+ → π < (2 · π))
3331, 32ax-mp 5 . . . . . . . . . . . 12 π < (2 · π)
3433a1i 11 . . . . . . . . . . 11 (𝑠 ∈ (-π[,]π) → π < (2 · π))
358, 4, 26, 30, 34lelttrd 11322 . . . . . . . . . 10 (𝑠 ∈ (-π[,]π) → 𝑠 < (2 · π))
3635adantr 481 . . . . . . . . 9 ((𝑠 ∈ (-π[,]π) ∧ 0 < 𝑠) → 𝑠 < (2 · π))
3720, 23, 24, 25, 36eliood 43856 . . . . . . . 8 ((𝑠 ∈ (-π[,]π) ∧ 0 < 𝑠) → 𝑠 ∈ (0(,)(2 · π)))
38 sinaover2ne0 44229 . . . . . . . 8 (𝑠 ∈ (0(,)(2 · π)) → (sin‘(𝑠 / 2)) ≠ 0)
3937, 38syl 17 . . . . . . 7 ((𝑠 ∈ (-π[,]π) ∧ 0 < 𝑠) → (sin‘(𝑠 / 2)) ≠ 0)
4039adantlr 713 . . . . . 6 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ 0 < 𝑠) → (sin‘(𝑠 / 2)) ≠ 0)
418ad2antrr 724 . . . . . . . 8 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → 𝑠 ∈ ℝ)
42 iccgelb 13330 . . . . . . . . . 10 ((-π ∈ ℝ* ∧ π ∈ ℝ*𝑠 ∈ (-π[,]π)) → -π ≤ 𝑠)
4327, 28, 6, 42syl3anc 1371 . . . . . . . . 9 (𝑠 ∈ (-π[,]π) → -π ≤ 𝑠)
4443ad2antrr 724 . . . . . . . 8 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → -π ≤ 𝑠)
45 0red 11167 . . . . . . . . 9 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → 0 ∈ ℝ)
46 neqne 2947 . . . . . . . . . 10 𝑠 = 0 → 𝑠 ≠ 0)
4746ad2antlr 725 . . . . . . . . 9 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → 𝑠 ≠ 0)
48 simpr 485 . . . . . . . . 9 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → ¬ 0 < 𝑠)
4941, 45, 47, 48lttri5d 43654 . . . . . . . 8 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → 𝑠 < 0)
505ad2antrr 724 . . . . . . . . 9 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → -π ∈ ℝ)
51 elico2 13338 . . . . . . . . 9 ((-π ∈ ℝ ∧ 0 ∈ ℝ*) → (𝑠 ∈ (-π[,)0) ↔ (𝑠 ∈ ℝ ∧ -π ≤ 𝑠𝑠 < 0)))
5250, 19, 51sylancl 586 . . . . . . . 8 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → (𝑠 ∈ (-π[,)0) ↔ (𝑠 ∈ ℝ ∧ -π ≤ 𝑠𝑠 < 0)))
5341, 44, 49, 52mpbir3and 1342 . . . . . . 7 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → 𝑠 ∈ (-π[,)0))
543renegcli 11471 . . . . . . . . . . . . . . 15 -π ∈ ℝ
55 elicore 13326 . . . . . . . . . . . . . . 15 ((-π ∈ ℝ ∧ 𝑠 ∈ (-π[,)0)) → 𝑠 ∈ ℝ)
5654, 55mpan 688 . . . . . . . . . . . . . 14 (𝑠 ∈ (-π[,)0) → 𝑠 ∈ ℝ)
5756recnd 11192 . . . . . . . . . . . . 13 (𝑠 ∈ (-π[,)0) → 𝑠 ∈ ℂ)
58 2cnd 12240 . . . . . . . . . . . . 13 (𝑠 ∈ (-π[,)0) → 2 ∈ ℂ)
5917a1i 11 . . . . . . . . . . . . 13 (𝑠 ∈ (-π[,)0) → 2 ≠ 0)
6057, 58, 59divnegd 11953 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,)0) → -(𝑠 / 2) = (-𝑠 / 2))
6160eqcomd 2737 . . . . . . . . . . 11 (𝑠 ∈ (-π[,)0) → (-𝑠 / 2) = -(𝑠 / 2))
6261fveq2d 6851 . . . . . . . . . 10 (𝑠 ∈ (-π[,)0) → (sin‘(-𝑠 / 2)) = (sin‘-(𝑠 / 2)))
6362negeqd 11404 . . . . . . . . 9 (𝑠 ∈ (-π[,)0) → -(sin‘(-𝑠 / 2)) = -(sin‘-(𝑠 / 2)))
6457halfcld 12407 . . . . . . . . . . 11 (𝑠 ∈ (-π[,)0) → (𝑠 / 2) ∈ ℂ)
65 sinneg 16039 . . . . . . . . . . 11 ((𝑠 / 2) ∈ ℂ → (sin‘-(𝑠 / 2)) = -(sin‘(𝑠 / 2)))
6664, 65syl 17 . . . . . . . . . 10 (𝑠 ∈ (-π[,)0) → (sin‘-(𝑠 / 2)) = -(sin‘(𝑠 / 2)))
6766negeqd 11404 . . . . . . . . 9 (𝑠 ∈ (-π[,)0) → -(sin‘-(𝑠 / 2)) = --(sin‘(𝑠 / 2)))
6864sincld 16023 . . . . . . . . . 10 (𝑠 ∈ (-π[,)0) → (sin‘(𝑠 / 2)) ∈ ℂ)
6968negnegd 11512 . . . . . . . . 9 (𝑠 ∈ (-π[,)0) → --(sin‘(𝑠 / 2)) = (sin‘(𝑠 / 2)))
7063, 67, 693eqtrd 2775 . . . . . . . 8 (𝑠 ∈ (-π[,)0) → -(sin‘(-𝑠 / 2)) = (sin‘(𝑠 / 2)))
7157negcld 11508 . . . . . . . . . . 11 (𝑠 ∈ (-π[,)0) → -𝑠 ∈ ℂ)
7271halfcld 12407 . . . . . . . . . 10 (𝑠 ∈ (-π[,)0) → (-𝑠 / 2) ∈ ℂ)
7372sincld 16023 . . . . . . . . 9 (𝑠 ∈ (-π[,)0) → (sin‘(-𝑠 / 2)) ∈ ℂ)
7419a1i 11 . . . . . . . . . . 11 (𝑠 ∈ (-π[,)0) → 0 ∈ ℝ*)
7522a1i 11 . . . . . . . . . . 11 (𝑠 ∈ (-π[,)0) → (2 · π) ∈ ℝ*)
7656renegcld 11591 . . . . . . . . . . 11 (𝑠 ∈ (-π[,)0) → -𝑠 ∈ ℝ)
7754a1i 11 . . . . . . . . . . . . . 14 (𝑠 ∈ (-π[,)0) → -π ∈ ℝ)
7877rexrd 11214 . . . . . . . . . . . . 13 (𝑠 ∈ (-π[,)0) → -π ∈ ℝ*)
79 id 22 . . . . . . . . . . . . 13 (𝑠 ∈ (-π[,)0) → 𝑠 ∈ (-π[,)0))
80 icoltub 43866 . . . . . . . . . . . . 13 ((-π ∈ ℝ* ∧ 0 ∈ ℝ*𝑠 ∈ (-π[,)0)) → 𝑠 < 0)
8178, 74, 79, 80syl3anc 1371 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,)0) → 𝑠 < 0)
8256lt0neg1d 11733 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,)0) → (𝑠 < 0 ↔ 0 < -𝑠))
8381, 82mpbid 231 . . . . . . . . . . 11 (𝑠 ∈ (-π[,)0) → 0 < -𝑠)
843a1i 11 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,)0) → π ∈ ℝ)
8521a1i 11 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,)0) → (2 · π) ∈ ℝ)
86 icogelb 13325 . . . . . . . . . . . . . 14 ((-π ∈ ℝ* ∧ 0 ∈ ℝ*𝑠 ∈ (-π[,)0)) → -π ≤ 𝑠)
8778, 74, 79, 86syl3anc 1371 . . . . . . . . . . . . 13 (𝑠 ∈ (-π[,)0) → -π ≤ 𝑠)
8884, 56, 87lenegcon1d 11746 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,)0) → -𝑠 ≤ π)
8933a1i 11 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,)0) → π < (2 · π))
9076, 84, 85, 88, 89lelttrd 11322 . . . . . . . . . . 11 (𝑠 ∈ (-π[,)0) → -𝑠 < (2 · π))
9174, 75, 76, 83, 90eliood 43856 . . . . . . . . . 10 (𝑠 ∈ (-π[,)0) → -𝑠 ∈ (0(,)(2 · π)))
92 sinaover2ne0 44229 . . . . . . . . . 10 (-𝑠 ∈ (0(,)(2 · π)) → (sin‘(-𝑠 / 2)) ≠ 0)
9391, 92syl 17 . . . . . . . . 9 (𝑠 ∈ (-π[,)0) → (sin‘(-𝑠 / 2)) ≠ 0)
9473, 93negne0d 11519 . . . . . . . 8 (𝑠 ∈ (-π[,)0) → -(sin‘(-𝑠 / 2)) ≠ 0)
9570, 94eqnetrrd 3008 . . . . . . 7 (𝑠 ∈ (-π[,)0) → (sin‘(𝑠 / 2)) ≠ 0)
9653, 95syl 17 . . . . . 6 (((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) ∧ ¬ 0 < 𝑠) → (sin‘(𝑠 / 2)) ≠ 0)
9740, 96pm2.61dan 811 . . . . 5 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → (sin‘(𝑠 / 2)) ≠ 0)
9815, 16, 18, 97mulne0d 11816 . . . 4 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → (2 · (sin‘(𝑠 / 2))) ≠ 0)
999, 14, 98redivcld 11992 . . 3 ((𝑠 ∈ (-π[,]π) ∧ ¬ 𝑠 = 0) → (𝑠 / (2 · (sin‘(𝑠 / 2)))) ∈ ℝ)
1002, 99ifclda 4526 . 2 (𝑠 ∈ (-π[,]π) → if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))) ∈ ℝ)
1011, 100fmpti 7065 1 𝐾:(-π[,]π)⟶ℝ
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wb 205  wa 396  w3a 1087   = wceq 1541  wcel 2106  wne 2939  ifcif 4491   class class class wbr 5110  cmpt 5193  wf 6497  cfv 6501  (class class class)co 7362  cc 11058  cr 11059  0cc0 11060  1c1 11061   · cmul 11065  *cxr 11197   < clt 11198  cle 11199  -cneg 11395   / cdiv 11821  2c2 12217  +crp 12924  (,)cioo 13274  [,)cico 13276  [,]cicc 13277  sincsin 15957  πcpi 15960
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 2702  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-inf2 9586  ax-cnex 11116  ax-resscn 11117  ax-1cn 11118  ax-icn 11119  ax-addcl 11120  ax-addrcl 11121  ax-mulcl 11122  ax-mulrcl 11123  ax-mulcom 11124  ax-addass 11125  ax-mulass 11126  ax-distr 11127  ax-i2m1 11128  ax-1ne0 11129  ax-1rid 11130  ax-rnegex 11131  ax-rrecex 11132  ax-cnre 11133  ax-pre-lttri 11134  ax-pre-lttrn 11135  ax-pre-ltadd 11136  ax-pre-mulgt0 11137  ax-pre-sup 11138  ax-addf 11139  ax-mulf 11140
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 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3351  df-reu 3352  df-rab 3406  df-v 3448  df-sbc 3743  df-csb 3859  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3932  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-iin 4962  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-se 5594  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-isom 6510  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-of 7622  df-om 7808  df-1st 7926  df-2nd 7927  df-supp 8098  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-2o 8418  df-er 8655  df-map 8774  df-pm 8775  df-ixp 8843  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-fsupp 9313  df-fi 9356  df-sup 9387  df-inf 9388  df-oi 9455  df-card 9884  df-pnf 11200  df-mnf 11201  df-xr 11202  df-ltxr 11203  df-le 11204  df-sub 11396  df-neg 11397  df-div 11822  df-nn 12163  df-2 12225  df-3 12226  df-4 12227  df-5 12228  df-6 12229  df-7 12230  df-8 12231  df-9 12232  df-n0 12423  df-z 12509  df-dec 12628  df-uz 12773  df-q 12883  df-rp 12925  df-xneg 13042  df-xadd 13043  df-xmul 13044  df-ioo 13278  df-ioc 13279  df-ico 13280  df-icc 13281  df-fz 13435  df-fzo 13578  df-fl 13707  df-mod 13785  df-seq 13917  df-exp 13978  df-fac 14184  df-bc 14213  df-hash 14241  df-shft 14964  df-cj 14996  df-re 14997  df-im 14998  df-sqrt 15132  df-abs 15133  df-limsup 15365  df-clim 15382  df-rlim 15383  df-sum 15583  df-ef 15961  df-sin 15963  df-cos 15964  df-pi 15966  df-struct 17030  df-sets 17047  df-slot 17065  df-ndx 17077  df-base 17095  df-ress 17124  df-plusg 17160  df-mulr 17161  df-starv 17162  df-sca 17163  df-vsca 17164  df-ip 17165  df-tset 17166  df-ple 17167  df-ds 17169  df-unif 17170  df-hom 17171  df-cco 17172  df-rest 17318  df-topn 17319  df-0g 17337  df-gsum 17338  df-topgen 17339  df-pt 17340  df-prds 17343  df-xrs 17398  df-qtop 17403  df-imas 17404  df-xps 17406  df-mre 17480  df-mrc 17481  df-acs 17483  df-mgm 18511  df-sgrp 18560  df-mnd 18571  df-submnd 18616  df-mulg 18887  df-cntz 19111  df-cmn 19578  df-psmet 20825  df-xmet 20826  df-met 20827  df-bl 20828  df-mopn 20829  df-fbas 20830  df-fg 20831  df-cnfld 20834  df-top 22280  df-topon 22297  df-topsp 22319  df-bases 22333  df-cld 22407  df-ntr 22408  df-cls 22409  df-nei 22486  df-lp 22524  df-perf 22525  df-cn 22615  df-cnp 22616  df-haus 22703  df-tx 22950  df-hmeo 23143  df-fil 23234  df-fm 23326  df-flim 23327  df-flf 23328  df-xms 23710  df-ms 23711  df-tms 23712  df-cncf 24278  df-limc 25267  df-dv 25268
This theorem is referenced by:  fourierdlem55  44522  fourierdlem62  44529  fourierdlem66  44533  fourierdlem77  44544  fourierdlem85  44552  fourierdlem88  44555  fourierdlem103  44570  fourierdlem104  44571
  Copyright terms: Public domain W3C validator