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

Theorem fourierdlem77 46788
Description: If 𝐻 is bounded, then 𝑈 is bounded. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem77.f (𝜑𝐹:ℝ⟶ℝ)
fourierdlem77.x (𝜑𝑋 ∈ ℝ)
fourierdlem77.y (𝜑𝑌 ∈ ℝ)
fourierdlem77.w (𝜑𝑊 ∈ ℝ)
fourierdlem77.h 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
fourierdlem77.k 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
fourierdlem77.u 𝑈 = (𝑠 ∈ (-π[,]π) ↦ ((𝐻𝑠) · (𝐾𝑠)))
fourierdlem77.bd (𝜑 → ∃𝑎 ∈ ℝ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎)
Assertion
Ref Expression
fourierdlem77 (𝜑 → ∃𝑏 ∈ ℝ+𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ 𝑏)
Distinct variable groups:   𝐾,𝑏,𝑠   𝑈,𝑎,𝑏   𝜑,𝑎,𝑠
Allowed substitution hints:   𝜑(𝑏)   𝑈(𝑠)   𝐹(𝑠,𝑎,𝑏)   𝐻(𝑠,𝑎,𝑏)   𝐾(𝑎)   𝑊(𝑠,𝑎,𝑏)   𝑋(𝑠,𝑎,𝑏)   𝑌(𝑠,𝑎,𝑏)

Proof of Theorem fourierdlem77
Dummy variables 𝑐 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem77.bd . 2 (𝜑 → ∃𝑎 ∈ ℝ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎)
2 pire 26584 . . . . . . . . . 10 π ∈ ℝ
32renegcli 11518 . . . . . . . . 9 -π ∈ ℝ
43a1i 11 . . . . . . . 8 (⊤ → -π ∈ ℝ)
52a1i 11 . . . . . . . 8 (⊤ → π ∈ ℝ)
6 pirp 26591 . . . . . . . . . . 11 π ∈ ℝ+
7 neglt 13035 . . . . . . . . . . 11 (π ∈ ℝ+ → -π < π)
86, 7ax-mp 5 . . . . . . . . . 10 -π < π
93, 2, 8ltleii 11332 . . . . . . . . 9 -π ≤ π
109a1i 11 . . . . . . . 8 (⊤ → -π ≤ π)
11 fourierdlem77.k . . . . . . . . . 10 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
1211fourierdlem62 46773 . . . . . . . . 9 𝐾 ∈ ((-π[,]π)–cn→ℝ)
1312a1i 11 . . . . . . . 8 (⊤ → 𝐾 ∈ ((-π[,]π)–cn→ℝ))
144, 5, 10, 13evthiccabs 46103 . . . . . . 7 (⊤ → (∃𝑐 ∈ (-π[,]π)∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)) ∧ ∃𝑥 ∈ (-π[,]π)∀𝑦 ∈ (-π[,]π)(abs‘(𝐾𝑥)) ≤ (abs‘(𝐾𝑦))))
1514mptru 1574 . . . . . 6 (∃𝑐 ∈ (-π[,]π)∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)) ∧ ∃𝑥 ∈ (-π[,]π)∀𝑦 ∈ (-π[,]π)(abs‘(𝐾𝑥)) ≤ (abs‘(𝐾𝑦)))
1615simpli 488 . . . . 5 𝑐 ∈ (-π[,]π)∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))
1716a1i 11 . . . 4 ((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) → ∃𝑐 ∈ (-π[,]π)∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)))
18 simpl 487 . . . . . . . . . . . 12 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → 𝑎 ∈ ℝ)
1911fourierdlem43 46755 . . . . . . . . . . . . . 14 𝐾:(-π[,]π)⟶ℝ
2019ffvelcdmi 7079 . . . . . . . . . . . . 13 (𝑐 ∈ (-π[,]π) → (𝐾𝑐) ∈ ℝ)
2120adantl 486 . . . . . . . . . . . 12 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → (𝐾𝑐) ∈ ℝ)
2218, 21remulcld 11238 . . . . . . . . . . 11 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → (𝑎 · (𝐾𝑐)) ∈ ℝ)
2322recnd 11236 . . . . . . . . . 10 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → (𝑎 · (𝐾𝑐)) ∈ ℂ)
2423abscld 15489 . . . . . . . . 9 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → (abs‘(𝑎 · (𝐾𝑐))) ∈ ℝ)
2523absge0d 15497 . . . . . . . . 9 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → 0 ≤ (abs‘(𝑎 · (𝐾𝑐))))
2624, 25ge0p1rpd 13089 . . . . . . . 8 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → ((abs‘(𝑎 · (𝐾𝑐))) + 1) ∈ ℝ+)
27263ad2antl2 1203 . . . . . . 7 (((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) → ((abs‘(𝑎 · (𝐾𝑐))) + 1) ∈ ℝ+)
28273adant3 1148 . . . . . 6 (((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) → ((abs‘(𝑎 · (𝐾𝑐))) + 1) ∈ ℝ+)
29 nfv 1941 . . . . . . . . 9 𝑠𝜑
30 nfv 1941 . . . . . . . . 9 𝑠 𝑎 ∈ ℝ
31 nfra1 3295 . . . . . . . . 9 𝑠𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎
3229, 30, 31nf3an 1928 . . . . . . . 8 𝑠(𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎)
33 nfv 1941 . . . . . . . 8 𝑠 𝑐 ∈ (-π[,]π)
34 nfra1 3295 . . . . . . . 8 𝑠𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))
3532, 33, 34nf3an 1928 . . . . . . 7 𝑠((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)))
36 simpl11 1265 . . . . . . . . . . 11 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 𝜑)
37 simpl12 1266 . . . . . . . . . . 11 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 𝑎 ∈ ℝ)
3836, 37jca 520 . . . . . . . . . 10 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (𝜑𝑎 ∈ ℝ))
39 simpl13 1267 . . . . . . . . . . 11 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎)
40 rspa 3260 . . . . . . . . . . 11 ((∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎𝑠 ∈ (-π[,]π)) → (abs‘(𝐻𝑠)) ≤ 𝑎)
4139, 40sylancom 599 . . . . . . . . . 10 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐻𝑠)) ≤ 𝑎)
42 simpl2 1209 . . . . . . . . . 10 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 𝑐 ∈ (-π[,]π))
4338, 41, 42jca31 523 . . . . . . . . 9 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)))
44 rspa 3260 . . . . . . . . . 10 ((∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)))
45443ad2antl3 1204 . . . . . . . . 9 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)))
46 simpr 489 . . . . . . . . 9 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 𝑠 ∈ (-π[,]π))
47 simp-5l 796 . . . . . . . . . . 11 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 𝜑)
48 simpr 489 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ (-π[,]π)) → 𝑠 ∈ (-π[,]π))
49 fourierdlem77.f . . . . . . . . . . . . . . . . . 18 (𝜑𝐹:ℝ⟶ℝ)
50 fourierdlem77.x . . . . . . . . . . . . . . . . . 18 (𝜑𝑋 ∈ ℝ)
51 fourierdlem77.y . . . . . . . . . . . . . . . . . 18 (𝜑𝑌 ∈ ℝ)
52 fourierdlem77.w . . . . . . . . . . . . . . . . . 18 (𝜑𝑊 ∈ ℝ)
53 fourierdlem77.h . . . . . . . . . . . . . . . . . 18 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
5449, 50, 51, 52, 53fourierdlem9 46721 . . . . . . . . . . . . . . . . 17 (𝜑𝐻:(-π[,]π)⟶ℝ)
5554ffvelcdmda 7080 . . . . . . . . . . . . . . . 16 ((𝜑𝑠 ∈ (-π[,]π)) → (𝐻𝑠) ∈ ℝ)
5619ffvelcdmi 7079 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ (-π[,]π) → (𝐾𝑠) ∈ ℝ)
5756adantl 486 . . . . . . . . . . . . . . . 16 ((𝜑𝑠 ∈ (-π[,]π)) → (𝐾𝑠) ∈ ℝ)
5855, 57remulcld 11238 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ (-π[,]π)) → ((𝐻𝑠) · (𝐾𝑠)) ∈ ℝ)
59 fourierdlem77.u . . . . . . . . . . . . . . . 16 𝑈 = (𝑠 ∈ (-π[,]π) ↦ ((𝐻𝑠) · (𝐾𝑠)))
6059fvmpt2 7002 . . . . . . . . . . . . . . 15 ((𝑠 ∈ (-π[,]π) ∧ ((𝐻𝑠) · (𝐾𝑠)) ∈ ℝ) → (𝑈𝑠) = ((𝐻𝑠) · (𝐾𝑠)))
6148, 58, 60syl2anc 595 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (-π[,]π)) → (𝑈𝑠) = ((𝐻𝑠) · (𝐾𝑠)))
6261, 58eqeltrd 2869 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (-π[,]π)) → (𝑈𝑠) ∈ ℝ)
6362recnd 11236 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (-π[,]π)) → (𝑈𝑠) ∈ ℂ)
6463abscld 15489 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (-π[,]π)) → (abs‘(𝑈𝑠)) ∈ ℝ)
6547, 64sylancom 599 . . . . . . . . . 10 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑈𝑠)) ∈ ℝ)
66 simp-5r 797 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 𝑎 ∈ ℝ)
67 simpllr 787 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 𝑐 ∈ (-π[,]π))
6866, 67, 24syl2anc 595 . . . . . . . . . . 11 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑎 · (𝐾𝑐))) ∈ ℝ)
69 peano2re 11382 . . . . . . . . . . 11 ((abs‘(𝑎 · (𝐾𝑐))) ∈ ℝ → ((abs‘(𝑎 · (𝐾𝑐))) + 1) ∈ ℝ)
7068, 69syl 18 . . . . . . . . . 10 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → ((abs‘(𝑎 · (𝐾𝑐))) + 1) ∈ ℝ)
7161fveq2d 6886 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (-π[,]π)) → (abs‘(𝑈𝑠)) = (abs‘((𝐻𝑠) · (𝐾𝑠))))
7247, 71sylancom 599 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑈𝑠)) = (abs‘((𝐻𝑠) · (𝐾𝑠))))
7355recnd 11236 . . . . . . . . . . . . . . . 16 ((𝜑𝑠 ∈ (-π[,]π)) → (𝐻𝑠) ∈ ℂ)
7473abscld 15489 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ (-π[,]π)) → (abs‘(𝐻𝑠)) ∈ ℝ)
7547, 74sylancom 599 . . . . . . . . . . . . . 14 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐻𝑠)) ∈ ℝ)
76 recn 11189 . . . . . . . . . . . . . . . 16 (𝑎 ∈ ℝ → 𝑎 ∈ ℂ)
7776abscld 15489 . . . . . . . . . . . . . . 15 (𝑎 ∈ ℝ → (abs‘𝑎) ∈ ℝ)
7866, 77syl 18 . . . . . . . . . . . . . 14 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘𝑎) ∈ ℝ)
7956recnd 11236 . . . . . . . . . . . . . . . 16 (𝑠 ∈ (-π[,]π) → (𝐾𝑠) ∈ ℂ)
8079abscld 15489 . . . . . . . . . . . . . . 15 (𝑠 ∈ (-π[,]π) → (abs‘(𝐾𝑠)) ∈ ℝ)
8180adantl 486 . . . . . . . . . . . . . 14 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐾𝑠)) ∈ ℝ)
8220recnd 11236 . . . . . . . . . . . . . . . 16 (𝑐 ∈ (-π[,]π) → (𝐾𝑐) ∈ ℂ)
8382abscld 15489 . . . . . . . . . . . . . . 15 (𝑐 ∈ (-π[,]π) → (abs‘(𝐾𝑐)) ∈ ℝ)
8467, 83syl 18 . . . . . . . . . . . . . 14 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐾𝑐)) ∈ ℝ)
8573absge0d 15497 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ (-π[,]π)) → 0 ≤ (abs‘(𝐻𝑠)))
8647, 85sylancom 599 . . . . . . . . . . . . . 14 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 0 ≤ (abs‘(𝐻𝑠)))
8782absge0d 15497 . . . . . . . . . . . . . . 15 (𝑐 ∈ (-π[,]π) → 0 ≤ (abs‘(𝐾𝑐)))
8867, 87syl 18 . . . . . . . . . . . . . 14 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → 0 ≤ (abs‘(𝐾𝑐)))
8974ad4ant14 764 . . . . . . . . . . . . . . . 16 ((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐻𝑠)) ∈ ℝ)
90 simpllr 787 . . . . . . . . . . . . . . . 16 ((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑠 ∈ (-π[,]π)) → 𝑎 ∈ ℝ)
9177ad3antlr 743 . . . . . . . . . . . . . . . 16 ((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘𝑎) ∈ ℝ)
92 simplr 780 . . . . . . . . . . . . . . . 16 ((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐻𝑠)) ≤ 𝑎)
9390leabsd 15465 . . . . . . . . . . . . . . . 16 ((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑠 ∈ (-π[,]π)) → 𝑎 ≤ (abs‘𝑎))
9489, 90, 91, 92, 93letrd 11366 . . . . . . . . . . . . . . 15 ((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐻𝑠)) ≤ (abs‘𝑎))
9594ad4ant14 764 . . . . . . . . . . . . . 14 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐻𝑠)) ≤ (abs‘𝑎))
96 simplr 780 . . . . . . . . . . . . . 14 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)))
9775, 78, 81, 84, 86, 88, 95, 96lemul12bd 12157 . . . . . . . . . . . . 13 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → ((abs‘(𝐻𝑠)) · (abs‘(𝐾𝑠))) ≤ ((abs‘𝑎) · (abs‘(𝐾𝑐))))
9857recnd 11236 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ (-π[,]π)) → (𝐾𝑠) ∈ ℂ)
9973, 98absmuld 15507 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (-π[,]π)) → (abs‘((𝐻𝑠) · (𝐾𝑠))) = ((abs‘(𝐻𝑠)) · (abs‘(𝐾𝑠))))
10047, 99sylancom 599 . . . . . . . . . . . . 13 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘((𝐻𝑠) · (𝐾𝑠))) = ((abs‘(𝐻𝑠)) · (abs‘(𝐾𝑠))))
10176adantr 485 . . . . . . . . . . . . . . 15 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → 𝑎 ∈ ℂ)
10221recnd 11236 . . . . . . . . . . . . . . 15 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → (𝐾𝑐) ∈ ℂ)
103101, 102absmuld 15507 . . . . . . . . . . . . . 14 ((𝑎 ∈ ℝ ∧ 𝑐 ∈ (-π[,]π)) → (abs‘(𝑎 · (𝐾𝑐))) = ((abs‘𝑎) · (abs‘(𝐾𝑐))))
10466, 67, 103syl2anc 595 . . . . . . . . . . . . 13 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑎 · (𝐾𝑐))) = ((abs‘𝑎) · (abs‘(𝐾𝑐))))
10597, 100, 1043brtr4d 5147 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘((𝐻𝑠) · (𝐾𝑠))) ≤ (abs‘(𝑎 · (𝐾𝑐))))
10672, 105eqbrtrd 5137 . . . . . . . . . . 11 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑈𝑠)) ≤ (abs‘(𝑎 · (𝐾𝑐))))
10768ltp1d 12144 . . . . . . . . . . 11 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑎 · (𝐾𝑐))) < ((abs‘(𝑎 · (𝐾𝑐))) + 1))
10865, 68, 70, 106, 107lelttrd 11367 . . . . . . . . . 10 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑈𝑠)) < ((abs‘(𝑎 · (𝐾𝑐))) + 1))
10965, 70, 108ltled 11357 . . . . . . . . 9 ((((((𝜑𝑎 ∈ ℝ) ∧ (abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π)) ∧ (abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑈𝑠)) ≤ ((abs‘(𝑎 · (𝐾𝑐))) + 1))
11043, 45, 46, 109syl21anc 850 . . . . . . . 8 ((((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) ∧ 𝑠 ∈ (-π[,]π)) → (abs‘(𝑈𝑠)) ≤ ((abs‘(𝑎 · (𝐾𝑐))) + 1))
111110ex 417 . . . . . . 7 (((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) → (𝑠 ∈ (-π[,]π) → (abs‘(𝑈𝑠)) ≤ ((abs‘(𝑎 · (𝐾𝑐))) + 1)))
11235, 111ralrimi 3269 . . . . . 6 (((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) → ∀𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ ((abs‘(𝑎 · (𝐾𝑐))) + 1))
113 breq2 5117 . . . . . . . 8 (𝑏 = ((abs‘(𝑎 · (𝐾𝑐))) + 1) → ((abs‘(𝑈𝑠)) ≤ 𝑏 ↔ (abs‘(𝑈𝑠)) ≤ ((abs‘(𝑎 · (𝐾𝑐))) + 1)))
114113ralbidv 3194 . . . . . . 7 (𝑏 = ((abs‘(𝑎 · (𝐾𝑐))) + 1) → (∀𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ 𝑏 ↔ ∀𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ ((abs‘(𝑎 · (𝐾𝑐))) + 1)))
115114rspcev 3590 . . . . . 6 ((((abs‘(𝑎 · (𝐾𝑐))) + 1) ∈ ℝ+ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ ((abs‘(𝑎 · (𝐾𝑐))) + 1)) → ∃𝑏 ∈ ℝ+𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ 𝑏)
11628, 112, 115syl2anc 595 . . . . 5 (((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) ∧ 𝑐 ∈ (-π[,]π) ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐))) → ∃𝑏 ∈ ℝ+𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ 𝑏)
117116rexlimdv3a 3176 . . . 4 ((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) → (∃𝑐 ∈ (-π[,]π)∀𝑠 ∈ (-π[,]π)(abs‘(𝐾𝑠)) ≤ (abs‘(𝐾𝑐)) → ∃𝑏 ∈ ℝ+𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ 𝑏))
11817, 117mpd 16 . . 3 ((𝜑𝑎 ∈ ℝ ∧ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎) → ∃𝑏 ∈ ℝ+𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ 𝑏)
119118rexlimdv3a 3176 . 2 (𝜑 → (∃𝑎 ∈ ℝ ∀𝑠 ∈ (-π[,]π)(abs‘(𝐻𝑠)) ≤ 𝑎 → ∃𝑏 ∈ ℝ+𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ 𝑏))
1201, 119mpd 16 1 (𝜑 → ∃𝑏 ∈ ℝ+𝑠 ∈ (-π[,]π)(abs‘(𝑈𝑠)) ≤ 𝑏)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 400  w3a 1101   = wceq 1567  wtru 1568  wcel 2149  wral 3085  wrex 3095  ifcif 4492   class class class wbr 5113  cmpt 5196  wf 6533  cfv 6537  (class class class)co 7411  cc 11097  cr 11098  0cc0 11099  1c1 11100   + caddc 11102   · cmul 11104   < clt 11242  cle 11243  cmin 11440  -cneg 11441   / cdiv 11870  2c2 12294  +crp 13015  [,]cicc 13374  abscabs 15284  sincsin 16116  πcpi 16119  cnccncf 25003
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-inf2 9609  ax-cnex 11155  ax-resscn 11156  ax-1cn 11157  ax-icn 11158  ax-addcl 11159  ax-addrcl 11160  ax-mulcl 11161  ax-mulrcl 11162  ax-mulcom 11163  ax-addass 11164  ax-mulass 11165  ax-distr 11166  ax-i2m1 11167  ax-1ne0 11168  ax-1rid 11169  ax-rnegex 11170  ax-rrecex 11171  ax-cnre 11172  ax-pre-lttri 11173  ax-pre-lttrn 11174  ax-pre-ltadd 11175  ax-pre-mulgt0 11176  ax-pre-sup 11177  ax-addf 11178
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-iin 4963  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-se 5616  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-of 7675  df-om 7862  df-1st 7985  df-2nd 7986  df-supp 8156  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8452  df-2o 8453  df-er 8693  df-map 8825  df-pm 8826  df-ixp 8895  df-en 8943  df-dom 8944  df-sdom 8945  df-fin 8946  df-fsupp 9321  df-fi 9370  df-sup 9401  df-inf 9402  df-oi 9471  df-card 9924  df-pnf 11244  df-mnf 11245  df-xr 11246  df-ltxr 11247  df-le 11248  df-sub 11442  df-neg 11443  df-div 11871  df-nn 12233  df-2 12302  df-3 12303  df-4 12304  df-5 12305  df-6 12306  df-7 12307  df-8 12308  df-9 12309  df-n0 12504  df-z 12591  df-dec 12711  df-uz 12862  df-q 12972  df-rp 13016  df-xneg 13136  df-xadd 13137  df-xmul 13138  df-ioo 13375  df-ioc 13376  df-ico 13377  df-icc 13378  df-fz 13535  df-fzo 13682  df-fl 13824  df-mod 13902  df-seq 14037  df-exp 14097  df-fac 14309  df-bc 14338  df-hash 14366  df-shft 15103  df-cj 15149  df-re 15150  df-im 15151  df-sqrt 15285  df-abs 15286  df-limsup 15521  df-clim 15538  df-rlim 15539  df-sum 15737  df-ef 16120  df-sin 16122  df-cos 16123  df-pi 16125  df-struct 17206  df-sets 17223  df-slot 17241  df-ndx 17253  df-base 17269  df-ress 17290  df-plusg 17322  df-mulr 17323  df-starv 17324  df-sca 17325  df-vsca 17326  df-ip 17327  df-tset 17328  df-ple 17329  df-ds 17331  df-unif 17332  df-hom 17333  df-cco 17334  df-rest 17474  df-topn 17475  df-0g 17493  df-gsum 17494  df-topgen 17495  df-pt 17496  df-prds 17499  df-xrs 17555  df-qtop 17560  df-imas 17561  df-xps 17563  df-mre 17637  df-mrc 17638  df-acs 17640  df-mgm 18697  df-sgrp 18776  df-mnd 18792  df-submnd 18841  df-mulg 19133  df-cntz 19386  df-cmn 19851  df-psmet 21482  df-xmet 21483  df-met 21484  df-bl 21485  df-mopn 21486  df-fbas 21487  df-fg 21488  df-cnfld 21491  df-top 23019  df-topon 23036  df-topsp 23058  df-bases 23071  df-cld 23144  df-ntr 23145  df-cls 23146  df-nei 23223  df-lp 23261  df-perf 23262  df-cn 23352  df-cnp 23353  df-t1 23439  df-haus 23440  df-cmp 23512  df-tx 23687  df-hmeo 23880  df-fil 23971  df-fm 24063  df-flim 24064  df-flf 24065  df-xms 24445  df-ms 24446  df-tms 24447  df-cncf 25005  df-limc 25993  df-dv 25994
This theorem is referenced by:  fourierdlem87  46798
  Copyright terms: Public domain W3C validator