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

Theorem fourierdlem68 43390
Description: The derivative of 𝑂 is bounded on the given interval. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem68.f (𝜑𝐹:ℝ⟶ℝ)
fourierdlem68.xre (𝜑𝑋 ∈ ℝ)
fourierdlem68.a (𝜑𝐴 ∈ ℝ)
fourierdlem68.b (𝜑𝐵 ∈ ℝ)
fourierdlem68.altb (𝜑𝐴 < 𝐵)
fourierdlem68.ab (𝜑 → (𝐴[,]𝐵) ⊆ (-π[,]π))
fourierdlem68.n0 (𝜑 → ¬ 0 ∈ (𝐴[,]𝐵))
fourierdlem68.fdv (𝜑 → (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))):((𝑋 + 𝐴)(,)(𝑋 + 𝐵))⟶ℝ)
fourierdlem68.d (𝜑𝐷 ∈ ℝ)
fourierdlem68.fbd ((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹𝑡)) ≤ 𝐷)
fourierdlem68.e (𝜑𝐸 ∈ ℝ)
fourierdlem68.fdvbd ((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸)
fourierdlem68.c (𝜑𝐶 ∈ ℝ)
fourierdlem68.o 𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))
Assertion
Ref Expression
fourierdlem68 (𝜑 → (dom (ℝ D 𝑂) = (𝐴(,)𝐵) ∧ ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏))
Distinct variable groups:   𝐴,𝑏,𝑠   𝑡,𝐴,𝑠   𝐵,𝑏,𝑠   𝑡,𝐵   𝐶,𝑏,𝑠   𝐷,𝑏,𝑠   𝑡,𝐷   𝐸,𝑏,𝑠   𝑡,𝐸   𝐹,𝑏,𝑠   𝑡,𝐹   𝑋,𝑏,𝑠   𝑡,𝑋   𝜑,𝑏,𝑠   𝜑,𝑡
Allowed substitution hints:   𝐶(𝑡)   𝑂(𝑡,𝑠,𝑏)

Proof of Theorem fourierdlem68
Dummy variable 𝑐 is distinct from all other variables.
StepHypRef Expression
1 fourierdlem68.f . . . . . 6 (𝜑𝐹:ℝ⟶ℝ)
2 fourierdlem68.xre . . . . . 6 (𝜑𝑋 ∈ ℝ)
3 fourierdlem68.a . . . . . 6 (𝜑𝐴 ∈ ℝ)
4 fourierdlem68.b . . . . . 6 (𝜑𝐵 ∈ ℝ)
5 fourierdlem68.fdv . . . . . 6 (𝜑 → (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))):((𝑋 + 𝐴)(,)(𝑋 + 𝐵))⟶ℝ)
6 ioossicc 13021 . . . . . . 7 (𝐴(,)𝐵) ⊆ (𝐴[,]𝐵)
7 fourierdlem68.ab . . . . . . 7 (𝜑 → (𝐴[,]𝐵) ⊆ (-π[,]π))
86, 7sstrid 3912 . . . . . 6 (𝜑 → (𝐴(,)𝐵) ⊆ (-π[,]π))
9 fourierdlem68.n0 . . . . . . 7 (𝜑 → ¬ 0 ∈ (𝐴[,]𝐵))
106sseli 3896 . . . . . . 7 (0 ∈ (𝐴(,)𝐵) → 0 ∈ (𝐴[,]𝐵))
119, 10nsyl 142 . . . . . 6 (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
12 fourierdlem68.c . . . . . 6 (𝜑𝐶 ∈ ℝ)
13 fourierdlem68.o . . . . . 6 𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))
141, 2, 3, 4, 5, 8, 11, 12, 13fourierdlem57 43379 . . . . 5 ((𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ∧ (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) − ((cos‘(𝑠 / 2)) · ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2))))) ∧ (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2))))
1514simpli 487 . . . 4 (𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ∧ (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) − ((cos‘(𝑠 / 2)) · ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2)))))
1615simpld 498 . . 3 (𝜑 → (ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ)
1716fdmd 6556 . 2 (𝜑 → dom (ℝ D 𝑂) = (𝐴(,)𝐵))
18 eqid 2737 . . . . . 6 (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) = (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2))))
19 fourierdlem68.altb . . . . . . 7 (𝜑𝐴 < 𝐵)
203, 4, 19ltled 10980 . . . . . 6 (𝜑𝐴𝐵)
21 2re 11904 . . . . . . . . . . 11 2 ∈ ℝ
2221a1i 11 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ ℝ)
233, 4iccssred 13022 . . . . . . . . . . . . 13 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
2423sselda 3901 . . . . . . . . . . . 12 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ∈ ℝ)
2524rehalfcld 12077 . . . . . . . . . . 11 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (𝑡 / 2) ∈ ℝ)
2625resincld 15704 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ∈ ℝ)
2722, 26remulcld 10863 . . . . . . . . 9 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ∈ ℝ)
28 2cnd 11908 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ ℂ)
2926recnd 10861 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ∈ ℂ)
30 2ne0 11934 . . . . . . . . . . 11 2 ≠ 0
3130a1i 11 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 2 ≠ 0)
327sselda 3901 . . . . . . . . . . 11 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ∈ (-π[,]π))
33 eqcom 2744 . . . . . . . . . . . . . . . . 17 (𝑡 = 0 ↔ 0 = 𝑡)
3433biimpi 219 . . . . . . . . . . . . . . . 16 (𝑡 = 0 → 0 = 𝑡)
3534adantl 485 . . . . . . . . . . . . . . 15 ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 0 = 𝑡)
36 simpl 486 . . . . . . . . . . . . . . 15 ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 𝑡 ∈ (𝐴[,]𝐵))
3735, 36eqeltrd 2838 . . . . . . . . . . . . . 14 ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 0 ∈ (𝐴[,]𝐵))
3837adantll 714 . . . . . . . . . . . . 13 (((𝜑𝑡 ∈ (𝐴[,]𝐵)) ∧ 𝑡 = 0) → 0 ∈ (𝐴[,]𝐵))
399ad2antrr 726 . . . . . . . . . . . . 13 (((𝜑𝑡 ∈ (𝐴[,]𝐵)) ∧ 𝑡 = 0) → ¬ 0 ∈ (𝐴[,]𝐵))
4038, 39pm2.65da 817 . . . . . . . . . . . 12 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → ¬ 𝑡 = 0)
4140neqned 2947 . . . . . . . . . . 11 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ≠ 0)
42 fourierdlem44 43367 . . . . . . . . . . 11 ((𝑡 ∈ (-π[,]π) ∧ 𝑡 ≠ 0) → (sin‘(𝑡 / 2)) ≠ 0)
4332, 41, 42syl2anc 587 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ≠ 0)
4428, 29, 31, 43mulne0d 11484 . . . . . . . . 9 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ≠ 0)
45 eldifsn 4700 . . . . . . . . 9 ((2 · (sin‘(𝑡 / 2))) ∈ (ℝ ∖ {0}) ↔ ((2 · (sin‘(𝑡 / 2))) ∈ ℝ ∧ (2 · (sin‘(𝑡 / 2))) ≠ 0))
4627, 44, 45sylanbrc 586 . . . . . . . 8 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ∈ (ℝ ∖ {0}))
4746, 18fmptd 6931 . . . . . . 7 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖ {0}))
48 difss 4046 . . . . . . . . . 10 (ℝ ∖ {0}) ⊆ ℝ
49 ax-resscn 10786 . . . . . . . . . 10 ℝ ⊆ ℂ
5048, 49sstri 3910 . . . . . . . . 9 (ℝ ∖ {0}) ⊆ ℂ
5150a1i 11 . . . . . . . 8 (𝜑 → (ℝ ∖ {0}) ⊆ ℂ)
5223, 49sstrdi 3913 . . . . . . . . . 10 (𝜑 → (𝐴[,]𝐵) ⊆ ℂ)
53 2cnd 11908 . . . . . . . . . 10 (𝜑 → 2 ∈ ℂ)
54 ssid 3923 . . . . . . . . . . 11 ℂ ⊆ ℂ
5554a1i 11 . . . . . . . . . 10 (𝜑 → ℂ ⊆ ℂ)
5652, 53, 55constcncfg 43088 . . . . . . . . 9 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→ℂ))
57 sincn 25336 . . . . . . . . . . 11 sin ∈ (ℂ–cn→ℂ)
5857a1i 11 . . . . . . . . . 10 (𝜑 → sin ∈ (ℂ–cn→ℂ))
5952, 55idcncfg 43089 . . . . . . . . . . 11 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 𝑡) ∈ ((𝐴[,]𝐵)–cn→ℂ))
60 eldifsn 4700 . . . . . . . . . . . . . 14 (2 ∈ (ℂ ∖ {0}) ↔ (2 ∈ ℂ ∧ 2 ≠ 0))
6128, 31, 60sylanbrc 586 . . . . . . . . . . . . 13 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ (ℂ ∖ {0}))
62 eqid 2737 . . . . . . . . . . . . 13 (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) = (𝑡 ∈ (𝐴[,]𝐵) ↦ 2)
6361, 62fmptd 6931 . . . . . . . . . . . 12 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖ {0}))
64 difssd 4047 . . . . . . . . . . . . 13 (𝜑 → (ℂ ∖ {0}) ⊆ ℂ)
65 cncffvrn 23795 . . . . . . . . . . . . 13 (((ℂ ∖ {0}) ⊆ ℂ ∧ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→ℂ)) → ((𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖ {0})))
6664, 56, 65syl2anc 587 . . . . . . . . . . . 12 (𝜑 → ((𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖ {0})))
6763, 66mpbird 260 . . . . . . . . . . 11 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})))
6859, 67divcncf 24344 . . . . . . . . . 10 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (𝑡 / 2)) ∈ ((𝐴[,]𝐵)–cn→ℂ))
6958, 68cncfmpt1f 23811 . . . . . . . . 9 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (sin‘(𝑡 / 2))) ∈ ((𝐴[,]𝐵)–cn→ℂ))
7056, 69mulcncf 24343 . . . . . . . 8 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→ℂ))
71 cncffvrn 23795 . . . . . . . 8 (((ℝ ∖ {0}) ⊆ ℂ ∧ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→ℂ)) → ((𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖ {0})))
7251, 70, 71syl2anc 587 . . . . . . 7 (𝜑 → ((𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖ {0})))
7347, 72mpbird 260 . . . . . 6 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0})))
7418, 3, 4, 20, 73cncficcgt0 43104 . . . . 5 (𝜑 → ∃𝑐 ∈ ℝ+𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2)))))
75 reelprrecn 10821 . . . . . . . 8 ℝ ∈ {ℝ, ℂ}
7675a1i 11 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → ℝ ∈ {ℝ, ℂ})
771adantr 484 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐹:ℝ⟶ℝ)
782adantr 484 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑋 ∈ ℝ)
79 elioore 12965 . . . . . . . . . . . . 13 (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℝ)
8079adantl 485 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
8178, 80readdcld 10862 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ℝ)
8277, 81ffvelrnd 6905 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ)
8312adantr 484 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐶 ∈ ℝ)
8482, 83resubcld 11260 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℝ)
8584recnd 10861 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℂ)
86853ad2antl1 1187 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℂ)
8775a1i 11 . . . . . . . . . 10 (𝜑 → ℝ ∈ {ℝ, ℂ})
8882recnd 10861 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
895adantr 484 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))):((𝑋 + 𝐴)(,)(𝑋 + 𝐵))⟶ℝ)
902, 3readdcld 10862 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 + 𝐴) ∈ ℝ)
9190rexrd 10883 . . . . . . . . . . . . 13 (𝜑 → (𝑋 + 𝐴) ∈ ℝ*)
9291adantr 484 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) ∈ ℝ*)
932, 4readdcld 10862 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 + 𝐵) ∈ ℝ)
9493rexrd 10883 . . . . . . . . . . . . 13 (𝜑 → (𝑋 + 𝐵) ∈ ℝ*)
9594adantr 484 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐵) ∈ ℝ*)
963adantr 484 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
9796rexrd 10883 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ*)
984rexrd 10883 . . . . . . . . . . . . . . 15 (𝜑𝐵 ∈ ℝ*)
9998adantr 484 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ*)
100 simpr 488 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴(,)𝐵))
101 ioogtlb 42708 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
10297, 99, 100, 101syl3anc 1373 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
10396, 80, 78, 102ltadd2dd 10991 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) < (𝑋 + 𝑠))
1044adantr 484 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
105 iooltub 42723 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
10697, 99, 100, 105syl3anc 1373 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
10780, 104, 78, 106ltadd2dd 10991 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝑋 + 𝐵))
10892, 95, 81, 103, 107eliood 42711 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))
10989, 108ffvelrnd 6905 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℝ)
110 eqid 2737 . . . . . . . . . . 11 (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))) = (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))
1111, 2, 3, 4, 110, 5fourierdlem28 43351 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠)))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
11283recnd 10861 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐶 ∈ ℂ)
113 0red 10836 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
114 iooretop 23663 . . . . . . . . . . . . 13 (𝐴(,)𝐵) ∈ (topGen‘ran (,))
115 eqid 2737 . . . . . . . . . . . . . 14 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
116115tgioo2 23700 . . . . . . . . . . . . 13 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
117114, 116eleqtri 2836 . . . . . . . . . . . 12 (𝐴(,)𝐵) ∈ ((TopOpen‘ℂfld) ↾t ℝ)
118117a1i 11 . . . . . . . . . . 11 (𝜑 → (𝐴(,)𝐵) ∈ ((TopOpen‘ℂfld) ↾t ℝ))
11912recnd 10861 . . . . . . . . . . 11 (𝜑𝐶 ∈ ℂ)
12087, 118, 119dvmptconst 43131 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ 𝐶)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ 0))
12187, 88, 109, 111, 112, 113, 120dvmptsub 24864 . . . . . . . . 9 (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0)))
122109recnd 10861 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℂ)
123122subid1d 11178 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0) = ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))
124123mpteq2dva 5150 . . . . . . . . 9 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
125121, 124eqtrd 2777 . . . . . . . 8 (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
1261253ad2ant1 1135 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
1271223ad2antl1 1187 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℂ)
128 2cnd 11908 . . . . . . . . 9 (𝑠 ∈ (𝐴(,)𝐵) → 2 ∈ ℂ)
12979recnd 10861 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℂ)
130129halfcld 12075 . . . . . . . . . 10 (𝑠 ∈ (𝐴(,)𝐵) → (𝑠 / 2) ∈ ℂ)
131130sincld 15691 . . . . . . . . 9 (𝑠 ∈ (𝐴(,)𝐵) → (sin‘(𝑠 / 2)) ∈ ℂ)
132128, 131mulcld 10853 . . . . . . . 8 (𝑠 ∈ (𝐴(,)𝐵) → (2 · (sin‘(𝑠 / 2))) ∈ ℂ)
133132adantl 485 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ∈ ℂ)
134 fourierdlem68.e . . . . . . . 8 (𝜑𝐸 ∈ ℝ)
1351343ad2ant1 1135 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → 𝐸 ∈ ℝ)
136 1re 10833 . . . . . . . . 9 1 ∈ ℝ
13721, 136remulcli 10849 . . . . . . . 8 (2 · 1) ∈ ℝ
138137a1i 11 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → (2 · 1) ∈ ℝ)
139 1red 10834 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → 1 ∈ ℝ)
140 fourierdlem68.d . . . . . . . . 9 (𝜑𝐷 ∈ ℝ)
141119abscld 15000 . . . . . . . . 9 (𝜑 → (abs‘𝐶) ∈ ℝ)
142140, 141readdcld 10862 . . . . . . . 8 (𝜑 → (𝐷 + (abs‘𝐶)) ∈ ℝ)
1431423ad2ant1 1135 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → (𝐷 + (abs‘𝐶)) ∈ ℝ)
144 simpl 486 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝜑)
145144, 108jca 515 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))
146 eleq1 2825 . . . . . . . . . . . 12 (𝑡 = (𝑋 + 𝑠) → (𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)) ↔ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))
147146anbi2d 632 . . . . . . . . . . 11 (𝑡 = (𝑋 + 𝑠) → ((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) ↔ (𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))))
148 fveq2 6717 . . . . . . . . . . . . 13 (𝑡 = (𝑋 + 𝑠) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡) = ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))
149148fveq2d 6721 . . . . . . . . . . . 12 (𝑡 = (𝑋 + 𝑠) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) = (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
150149breq1d 5063 . . . . . . . . . . 11 (𝑡 = (𝑋 + 𝑠) → ((abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸 ↔ (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸))
151147, 150imbi12d 348 . . . . . . . . . 10 (𝑡 = (𝑋 + 𝑠) → (((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸) ↔ ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸)))
152 fourierdlem68.fdvbd . . . . . . . . . 10 ((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸)
153151, 152vtoclg 3481 . . . . . . . . 9 ((𝑋 + 𝑠) ∈ ℝ → ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸))
15481, 145, 153sylc 65 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸)
1551543ad2antl1 1187 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸)
156128, 131absmuld 15018 . . . . . . . . 9 (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(2 · (sin‘(𝑠 / 2)))) = ((abs‘2) · (abs‘(sin‘(𝑠 / 2)))))
157 0le2 11932 . . . . . . . . . . . 12 0 ≤ 2
158 absid 14860 . . . . . . . . . . . 12 ((2 ∈ ℝ ∧ 0 ≤ 2) → (abs‘2) = 2)
15921, 157, 158mp2an 692 . . . . . . . . . . 11 (abs‘2) = 2
160159oveq1i 7223 . . . . . . . . . 10 ((abs‘2) · (abs‘(sin‘(𝑠 / 2)))) = (2 · (abs‘(sin‘(𝑠 / 2))))
161131abscld 15000 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(sin‘(𝑠 / 2))) ∈ ℝ)
162 1red 10834 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → 1 ∈ ℝ)
16321a1i 11 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → 2 ∈ ℝ)
164157a1i 11 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → 0 ≤ 2)
16579rehalfcld 12077 . . . . . . . . . . . 12 (𝑠 ∈ (𝐴(,)𝐵) → (𝑠 / 2) ∈ ℝ)
166 abssinbd 42507 . . . . . . . . . . . 12 ((𝑠 / 2) ∈ ℝ → (abs‘(sin‘(𝑠 / 2))) ≤ 1)
167165, 166syl 17 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(sin‘(𝑠 / 2))) ≤ 1)
168161, 162, 163, 164, 167lemul2ad 11772 . . . . . . . . . 10 (𝑠 ∈ (𝐴(,)𝐵) → (2 · (abs‘(sin‘(𝑠 / 2)))) ≤ (2 · 1))
169160, 168eqbrtrid 5088 . . . . . . . . 9 (𝑠 ∈ (𝐴(,)𝐵) → ((abs‘2) · (abs‘(sin‘(𝑠 / 2)))) ≤ (2 · 1))
170156, 169eqbrtrd 5075 . . . . . . . 8 (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(2 · (sin‘(𝑠 / 2)))) ≤ (2 · 1))
171170adantl 485 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(2 · (sin‘(𝑠 / 2)))) ≤ (2 · 1))
172 abscosbd 42489 . . . . . . . . 9 ((𝑠 / 2) ∈ ℝ → (abs‘(cos‘(𝑠 / 2))) ≤ 1)
173100, 165, 1723syl 18 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(cos‘(𝑠 / 2))) ≤ 1)
1741733ad2antl1 1187 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(cos‘(𝑠 / 2))) ≤ 1)
17585abscld 15000 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ∈ ℝ)
17688abscld 15000 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹‘(𝑋 + 𝑠))) ∈ ℝ)
177112abscld 15000 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘𝐶) ∈ ℝ)
178176, 177readdcld 10862 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶)) ∈ ℝ)
179140adantr 484 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐷 ∈ ℝ)
180179, 177readdcld 10862 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐷 + (abs‘𝐶)) ∈ ℝ)
18188, 112abs2dif2d 15022 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶)))
182 fveq2 6717 . . . . . . . . . . . . . . 15 (𝑡 = (𝑋 + 𝑠) → (𝐹𝑡) = (𝐹‘(𝑋 + 𝑠)))
183182fveq2d 6721 . . . . . . . . . . . . . 14 (𝑡 = (𝑋 + 𝑠) → (abs‘(𝐹𝑡)) = (abs‘(𝐹‘(𝑋 + 𝑠))))
184183breq1d 5063 . . . . . . . . . . . . 13 (𝑡 = (𝑋 + 𝑠) → ((abs‘(𝐹𝑡)) ≤ 𝐷 ↔ (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷))
185147, 184imbi12d 348 . . . . . . . . . . . 12 (𝑡 = (𝑋 + 𝑠) → (((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹𝑡)) ≤ 𝐷) ↔ ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷)))
186 fourierdlem68.fbd . . . . . . . . . . . 12 ((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹𝑡)) ≤ 𝐷)
187185, 186vtoclg 3481 . . . . . . . . . . 11 ((𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)) → ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷))
188108, 145, 187sylc 65 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷)
189176, 179, 177, 188leadd1dd 11446 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶)) ≤ (𝐷 + (abs‘𝐶)))
190175, 178, 180, 181, 189letrd 10989 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ (𝐷 + (abs‘𝐶)))
1911903ad2antl1 1187 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ (𝐷 + (abs‘𝐶)))
19214simpri 489 . . . . . . . 8 (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2)))
193192a1i 11 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2))))
194130coscld 15692 . . . . . . . 8 (𝑠 ∈ (𝐴(,)𝐵) → (cos‘(𝑠 / 2)) ∈ ℂ)
195194adantl 485 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (cos‘(𝑠 / 2)) ∈ ℂ)
196 simp2 1139 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → 𝑐 ∈ ℝ+)
197 oveq1 7220 . . . . . . . . . . . . . 14 (𝑡 = 𝑠 → (𝑡 / 2) = (𝑠 / 2))
198197fveq2d 6721 . . . . . . . . . . . . 13 (𝑡 = 𝑠 → (sin‘(𝑡 / 2)) = (sin‘(𝑠 / 2)))
199198oveq2d 7229 . . . . . . . . . . . 12 (𝑡 = 𝑠 → (2 · (sin‘(𝑡 / 2))) = (2 · (sin‘(𝑠 / 2))))
200199fveq2d 6721 . . . . . . . . . . 11 (𝑡 = 𝑠 → (abs‘(2 · (sin‘(𝑡 / 2)))) = (abs‘(2 · (sin‘(𝑠 / 2)))))
201200breq2d 5065 . . . . . . . . . 10 (𝑡 = 𝑠 → (𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2)))) ↔ 𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))))
202201cbvralvw 3358 . . . . . . . . 9 (∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2)))) ↔ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
203 nfv 1922 . . . . . . . . . . 11 𝑠𝜑
204 nfra1 3140 . . . . . . . . . . 11 𝑠𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))
205203, 204nfan 1907 . . . . . . . . . 10 𝑠(𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
206 simplr 769 . . . . . . . . . . . 12 (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
2076, 100sseldi 3899 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴[,]𝐵))
208207adantlr 715 . . . . . . . . . . . 12 (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴[,]𝐵))
209 rspa 3128 . . . . . . . . . . . 12 ((∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))) ∧ 𝑠 ∈ (𝐴[,]𝐵)) → 𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
210206, 208, 209syl2anc 587 . . . . . . . . . . 11 (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
211210ex 416 . . . . . . . . . 10 ((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) → (𝑠 ∈ (𝐴(,)𝐵) → 𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))))
212205, 211ralrimi 3137 . . . . . . . . 9 ((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) → ∀𝑠 ∈ (𝐴(,)𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
213202, 212sylan2b 597 . . . . . . . 8 ((𝜑 ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → ∀𝑠 ∈ (𝐴(,)𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
2142133adant2 1133 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → ∀𝑠 ∈ (𝐴(,)𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
215 eqid 2737 . . . . . . 7 (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))) = (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))
21676, 86, 126, 127, 133, 135, 138, 139, 143, 155, 171, 174, 191, 193, 195, 196, 214, 215dvdivbd 43139 . . . . . 6 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)
217216rexlimdv3a 3205 . . . . 5 (𝜑 → (∃𝑐 ∈ ℝ+𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2)))) → ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
21874, 217mpd 15 . . . 4 (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)
219 nfcv 2904 . . . . . . . . 9 𝑠
220 nfcv 2904 . . . . . . . . 9 𝑠 D
221 nfmpt1 5153 . . . . . . . . . 10 𝑠(𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))
22213, 221nfcxfr 2902 . . . . . . . . 9 𝑠𝑂
223219, 220, 222nfov 7243 . . . . . . . 8 𝑠(ℝ D 𝑂)
224223nfdm 5820 . . . . . . 7 𝑠dom (ℝ D 𝑂)
225 nfcv 2904 . . . . . . 7 𝑠(𝐴(,)𝐵)
226224, 225raleqf 3309 . . . . . 6 (dom (ℝ D 𝑂) = (𝐴(,)𝐵) → (∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
22717, 226syl 17 . . . . 5 (𝜑 → (∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
228227rexbidv 3216 . . . 4 (𝜑 → (∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
229218, 228mpbird 260 . . 3 (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)
23013a1i 11 . . . . . . . 8 (𝜑𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))
231230oveq2d 7229 . . . . . . 7 (𝜑 → (ℝ D 𝑂) = (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))))
232231fveq1d 6719 . . . . . 6 (𝜑 → ((ℝ D 𝑂)‘𝑠) = ((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠))
233232fveq2d 6721 . . . . 5 (𝜑 → (abs‘((ℝ D 𝑂)‘𝑠)) = (abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)))
234233breq1d 5063 . . . 4 (𝜑 → ((abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏 ↔ (abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
235234rexralbidv 3220 . . 3 (𝜑 → (∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏 ↔ ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
236229, 235mpbird 260 . 2 (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏)
23717, 236jca 515 1 (𝜑 → (dom (ℝ D 𝑂) = (𝐴(,)𝐵) ∧ ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  w3a 1089   = wceq 1543  wcel 2110  wne 2940  wral 3061  wrex 3062  cdif 3863  wss 3866  {csn 4541  {cpr 4543   class class class wbr 5053  cmpt 5135  dom cdm 5551  ran crn 5552  cres 5553  wf 6376  cfv 6380  (class class class)co 7213  cc 10727  cr 10728  0cc0 10729  1c1 10730   + caddc 10732   · cmul 10734  *cxr 10866   < clt 10867  cle 10868  cmin 11062  -cneg 11063   / cdiv 11489  2c2 11885  +crp 12586  (,)cioo 12935  [,]cicc 12938  cexp 13635  abscabs 14797  sincsin 15625  cosccos 15626  πcpi 15628  t crest 16925  TopOpenctopn 16926  topGenctg 16942  fldccnfld 20363  cnccncf 23773   D cdv 24760
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1976  ax-7 2016  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2708  ax-rep 5179  ax-sep 5192  ax-nul 5199  ax-pow 5258  ax-pr 5322  ax-un 7523  ax-inf2 9256  ax-cnex 10785  ax-resscn 10786  ax-1cn 10787  ax-icn 10788  ax-addcl 10789  ax-addrcl 10790  ax-mulcl 10791  ax-mulrcl 10792  ax-mulcom 10793  ax-addass 10794  ax-mulass 10795  ax-distr 10796  ax-i2m1 10797  ax-1ne0 10798  ax-1rid 10799  ax-rnegex 10800  ax-rrecex 10801  ax-cnre 10802  ax-pre-lttri 10803  ax-pre-lttrn 10804  ax-pre-ltadd 10805  ax-pre-mulgt0 10806  ax-pre-sup 10807  ax-addf 10808  ax-mulf 10809
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-3or 1090  df-3an 1091  df-tru 1546  df-fal 1556  df-ex 1788  df-nf 1792  df-sb 2071  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2816  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3066  df-rex 3067  df-reu 3068  df-rmo 3069  df-rab 3070  df-v 3410  df-sbc 3695  df-csb 3812  df-dif 3869  df-un 3871  df-in 3873  df-ss 3883  df-pss 3885  df-nul 4238  df-if 4440  df-pw 4515  df-sn 4542  df-pr 4544  df-tp 4546  df-op 4548  df-uni 4820  df-int 4860  df-iun 4906  df-iin 4907  df-br 5054  df-opab 5116  df-mpt 5136  df-tr 5162  df-id 5455  df-eprel 5460  df-po 5468  df-so 5469  df-fr 5509  df-se 5510  df-we 5511  df-xp 5557  df-rel 5558  df-cnv 5559  df-co 5560  df-dm 5561  df-rn 5562  df-res 5563  df-ima 5564  df-pred 6160  df-ord 6216  df-on 6217  df-lim 6218  df-suc 6219  df-iota 6338  df-fun 6382  df-fn 6383  df-f 6384  df-f1 6385  df-fo 6386  df-f1o 6387  df-fv 6388  df-isom 6389  df-riota 7170  df-ov 7216  df-oprab 7217  df-mpo 7218  df-of 7469  df-om 7645  df-1st 7761  df-2nd 7762  df-supp 7904  df-wrecs 8047  df-recs 8108  df-rdg 8146  df-1o 8202  df-2o 8203  df-er 8391  df-map 8510  df-pm 8511  df-ixp 8579  df-en 8627  df-dom 8628  df-sdom 8629  df-fin 8630  df-fsupp 8986  df-fi 9027  df-sup 9058  df-inf 9059  df-oi 9126  df-card 9555  df-pnf 10869  df-mnf 10870  df-xr 10871  df-ltxr 10872  df-le 10873  df-sub 11064  df-neg 11065  df-div 11490  df-nn 11831  df-2 11893  df-3 11894  df-4 11895  df-5 11896  df-6 11897  df-7 11898  df-8 11899  df-9 11900  df-n0 12091  df-z 12177  df-dec 12294  df-uz 12439  df-q 12545  df-rp 12587  df-xneg 12704  df-xadd 12705  df-xmul 12706  df-ioo 12939  df-ioc 12940  df-ico 12941  df-icc 12942  df-fz 13096  df-fzo 13239  df-fl 13367  df-mod 13443  df-seq 13575  df-exp 13636  df-fac 13840  df-bc 13869  df-hash 13897  df-shft 14630  df-cj 14662  df-re 14663  df-im 14664  df-sqrt 14798  df-abs 14799  df-limsup 15032  df-clim 15049  df-rlim 15050  df-sum 15250  df-ef 15629  df-sin 15631  df-cos 15632  df-pi 15634  df-struct 16700  df-sets 16717  df-slot 16735  df-ndx 16745  df-base 16761  df-ress 16785  df-plusg 16815  df-mulr 16816  df-starv 16817  df-sca 16818  df-vsca 16819  df-ip 16820  df-tset 16821  df-ple 16822  df-ds 16824  df-unif 16825  df-hom 16826  df-cco 16827  df-rest 16927  df-topn 16928  df-0g 16946  df-gsum 16947  df-topgen 16948  df-pt 16949  df-prds 16952  df-xrs 17007  df-qtop 17012  df-imas 17013  df-xps 17015  df-mre 17089  df-mrc 17090  df-acs 17092  df-mgm 18114  df-sgrp 18163  df-mnd 18174  df-submnd 18219  df-mulg 18489  df-cntz 18711  df-cmn 19172  df-psmet 20355  df-xmet 20356  df-met 20357  df-bl 20358  df-mopn 20359  df-fbas 20360  df-fg 20361  df-cnfld 20364  df-top 21791  df-topon 21808  df-topsp 21830  df-bases 21843  df-cld 21916  df-ntr 21917  df-cls 21918  df-nei 21995  df-lp 22033  df-perf 22034  df-cn 22124  df-cnp 22125  df-t1 22211  df-haus 22212  df-cmp 22284  df-tx 22459  df-hmeo 22652  df-fil 22743  df-fm 22835  df-flim 22836  df-flf 22837  df-xms 23218  df-ms 23219  df-tms 23220  df-cncf 23775  df-limc 24763  df-dv 24764
This theorem is referenced by:  fourierdlem80  43402
  Copyright terms: Public domain W3C validator