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 46946
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 13476 . . . . . . 7 (𝐴(,)𝐵) ⊆ (𝐴[,]𝐵)
7 fourierdlem68.ab . . . . . . 7 (𝜑 → (𝐴[,]𝐵) ⊆ (-π[,]π))
86, 7sstrid 3949 . . . . . 6 (𝜑 → (𝐴(,)𝐵) ⊆ (-π[,]π))
9 fourierdlem68.n0 . . . . . . 7 (𝜑 → ¬ 0 ∈ (𝐴[,]𝐵))
106sseli 3934 . . . . . . 7 (0 ∈ (𝐴(,)𝐵) → 0 ∈ (𝐴[,]𝐵))
119, 10nsyl 141 . . . . . 6 (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
12 fourierdlem68.c . . . . . 6 (𝜑𝐶 ∈ ℝ)
13 fourierdlem68.o . . . . . 6 𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))
141, 2, 3, 4, 5, 8, 11, 12, 13fourierdlem57 46935 . . . . 5 ((𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ∧ (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) − ((cos‘(𝑠 / 2)) · ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2))))) ∧ (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2))))
1514simpli 489 . . . 4 (𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ∧ (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) − ((cos‘(𝑠 / 2)) · ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2)))))
1615simpld 500 . . 3 (𝜑 → (ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ)
1716fdmd 6720 . 2 (𝜑 → dom (ℝ D 𝑂) = (𝐴(,)𝐵))
18 eqid 2765 . . . . . 6 (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) = (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2))))
19 fourierdlem68.altb . . . . . . 7 (𝜑𝐴 < 𝐵)
203, 4, 19ltled 11373 . . . . . 6 (𝜑𝐴𝐵)
21 2re 12330 . . . . . . . . . . 11 2 ∈ ℝ
2221a1i 11 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ ℝ)
233, 4iccssred 13477 . . . . . . . . . . . . 13 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
2423sselda 3938 . . . . . . . . . . . 12 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ∈ ℝ)
2524rehalfcld 12506 . . . . . . . . . . 11 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (𝑡 / 2) ∈ ℝ)
2625resincld 16221 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ∈ ℝ)
2722, 26remulcld 11254 . . . . . . . . 9 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ∈ ℝ)
28 2cnd 12334 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ ℂ)
2926recnd 11252 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ∈ ℂ)
30 2ne0 12362 . . . . . . . . . . 11 2 ≠ 0
3130a1i 11 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 2 ≠ 0)
327sselda 3938 . . . . . . . . . . 11 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ∈ (-π[,]π))
33 eqcom 2772 . . . . . . . . . . . . . . . 16 (𝑡 = 0 ↔ 0 = 𝑡)
3433bilani 510 . . . . . . . . . . . . . . 15 ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 0 = 𝑡)
35 simpl 488 . . . . . . . . . . . . . . 15 ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 𝑡 ∈ (𝐴[,]𝐵))
3634, 35eqeltrd 2865 . . . . . . . . . . . . . 14 ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 0 ∈ (𝐴[,]𝐵))
3736adantll 727 . . . . . . . . . . . . 13 (((𝜑𝑡 ∈ (𝐴[,]𝐵)) ∧ 𝑡 = 0) → 0 ∈ (𝐴[,]𝐵))
389ad2antrr 739 . . . . . . . . . . . . 13 (((𝜑𝑡 ∈ (𝐴[,]𝐵)) ∧ 𝑡 = 0) → ¬ 0 ∈ (𝐴[,]𝐵))
3937, 38pm2.65da 829 . . . . . . . . . . . 12 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → ¬ 𝑡 = 0)
4039neqned 2967 . . . . . . . . . . 11 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ≠ 0)
41 fourierdlem44 46923 . . . . . . . . . . 11 ((𝑡 ∈ (-π[,]π) ∧ 𝑡 ≠ 0) → (sin‘(𝑡 / 2)) ≠ 0)
4232, 40, 41syl2anc 596 . . . . . . . . . 10 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ≠ 0)
4328, 29, 31, 42mulne0d 11881 . . . . . . . . 9 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ≠ 0)
44 eldifsn 4755 . . . . . . . . 9 ((2 · (sin‘(𝑡 / 2))) ∈ (ℝ ∖ {0}) ↔ ((2 · (sin‘(𝑡 / 2))) ∈ ℝ ∧ (2 · (sin‘(𝑡 / 2))) ≠ 0))
4527, 43, 44sylanbrc 595 . . . . . . . 8 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ∈ (ℝ ∖ {0}))
4645, 18fmptd 7113 . . . . . . 7 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖ {0}))
47 difss 4090 . . . . . . . . . 10 (ℝ ∖ {0}) ⊆ ℝ
48 ax-resscn 11172 . . . . . . . . . 10 ℝ ⊆ ℂ
4947, 48sstri 3947 . . . . . . . . 9 (ℝ ∖ {0}) ⊆ ℂ
5049a1i 11 . . . . . . . 8 (𝜑 → (ℝ ∖ {0}) ⊆ ℂ)
5123, 48sstrdi 3950 . . . . . . . . . 10 (𝜑 → (𝐴[,]𝐵) ⊆ ℂ)
52 2cnd 12334 . . . . . . . . . 10 (𝜑 → 2 ∈ ℂ)
53 ssid 3960 . . . . . . . . . . 11 ℂ ⊆ ℂ
5453a1i 11 . . . . . . . . . 10 (𝜑 → ℂ ⊆ ℂ)
5551, 52, 54constcncfg 46644 . . . . . . . . 9 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→ℂ))
56 sincn 26658 . . . . . . . . . . 11 sin ∈ (ℂ–cn→ℂ)
5756a1i 11 . . . . . . . . . 10 (𝜑 → sin ∈ (ℂ–cn→ℂ))
5851, 54idcncfg 46645 . . . . . . . . . . 11 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 𝑡) ∈ ((𝐴[,]𝐵)–cn→ℂ))
59 eldifsn 4755 . . . . . . . . . . . . . 14 (2 ∈ (ℂ ∖ {0}) ↔ (2 ∈ ℂ ∧ 2 ≠ 0))
6028, 31, 59sylanbrc 595 . . . . . . . . . . . . 13 ((𝜑𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ (ℂ ∖ {0}))
61 eqid 2765 . . . . . . . . . . . . 13 (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) = (𝑡 ∈ (𝐴[,]𝐵) ↦ 2)
6260, 61fmptd 7113 . . . . . . . . . . . 12 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖ {0}))
63 difssd 4091 . . . . . . . . . . . . 13 (𝜑 → (ℂ ∖ {0}) ⊆ ℂ)
64 cncfcdm 25108 . . . . . . . . . . . . 13 (((ℂ ∖ {0}) ⊆ ℂ ∧ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→ℂ)) → ((𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖ {0})))
6563, 55, 64syl2anc 596 . . . . . . . . . . . 12 (𝜑 → ((𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖ {0})))
6662, 65mpbird 260 . . . . . . . . . . 11 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})))
6758, 66divcncf 25657 . . . . . . . . . 10 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (𝑡 / 2)) ∈ ((𝐴[,]𝐵)–cn→ℂ))
6857, 67cncfmpt1f 25124 . . . . . . . . 9 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (sin‘(𝑡 / 2))) ∈ ((𝐴[,]𝐵)–cn→ℂ))
6955, 68mulcncf 25656 . . . . . . . 8 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→ℂ))
70 cncfcdm 25108 . . . . . . . 8 (((ℝ ∖ {0}) ⊆ ℂ ∧ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→ℂ)) → ((𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖ {0})))
7150, 69, 70syl2anc 596 . . . . . . 7 (𝜑 → ((𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖ {0})))
7246, 71mpbird 260 . . . . . 6 (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0})))
7318, 3, 4, 20, 72cncficcgt0 46660 . . . . 5 (𝜑 → ∃𝑐 ∈ ℝ+𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2)))))
74 reelprrecn 11207 . . . . . . . 8 ℝ ∈ {ℝ, ℂ}
7574a1i 11 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → ℝ ∈ {ℝ, ℂ})
761adantr 486 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐹:ℝ⟶ℝ)
772adantr 486 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑋 ∈ ℝ)
78 elioore 13418 . . . . . . . . . . . . 13 (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℝ)
7978adantl 487 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
8077, 79readdcld 11253 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ℝ)
8176, 80ffvelcdmd 7084 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ)
8212adantr 486 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐶 ∈ ℝ)
8381, 82resubcld 11657 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℝ)
8483recnd 11252 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℂ)
85843ad2antl1 1204 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℂ)
8674a1i 11 . . . . . . . . . 10 (𝜑 → ℝ ∈ {ℝ, ℂ})
8781recnd 11252 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
885adantr 486 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))):((𝑋 + 𝐴)(,)(𝑋 + 𝐵))⟶ℝ)
892, 3readdcld 11253 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 + 𝐴) ∈ ℝ)
9089rexrd 11274 . . . . . . . . . . . . 13 (𝜑 → (𝑋 + 𝐴) ∈ ℝ*)
9190adantr 486 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) ∈ ℝ*)
922, 4readdcld 11253 . . . . . . . . . . . . . 14 (𝜑 → (𝑋 + 𝐵) ∈ ℝ)
9392rexrd 11274 . . . . . . . . . . . . 13 (𝜑 → (𝑋 + 𝐵) ∈ ℝ*)
9493adantr 486 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐵) ∈ ℝ*)
953adantr 486 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
9695rexrd 11274 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ*)
974rexrd 11274 . . . . . . . . . . . . . . 15 (𝜑𝐵 ∈ ℝ*)
9897adantr 486 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ*)
99 simpr 490 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴(,)𝐵))
100 ioogtlb 46269 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
10196, 98, 99, 100syl3anc 1398 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
10295, 79, 77, 101ltadd2dd 11384 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) < (𝑋 + 𝑠))
1034adantr 486 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
104 iooltub 46284 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
10596, 98, 99, 104syl3anc 1398 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
10679, 103, 77, 105ltadd2dd 11384 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝑋 + 𝐵))
10791, 94, 80, 102, 106eliood 46272 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))
10888, 107ffvelcdmd 7084 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℝ)
109 eqid 2765 . . . . . . . . . . 11 (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))) = (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))
1101, 2, 3, 4, 109, 5fourierdlem28 46907 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠)))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
11182recnd 11252 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐶 ∈ ℂ)
112 0red 11226 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
113 iooretop 24973 . . . . . . . . . . . . 13 (𝐴(,)𝐵) ∈ (topGen‘ran (,))
114 tgioo4 25013 . . . . . . . . . . . . 13 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
115113, 114eleqtri 2863 . . . . . . . . . . . 12 (𝐴(,)𝐵) ∈ ((TopOpen‘ℂfld) ↾t ℝ)
116115a1i 11 . . . . . . . . . . 11 (𝜑 → (𝐴(,)𝐵) ∈ ((TopOpen‘ℂfld) ↾t ℝ))
11712recnd 11252 . . . . . . . . . . 11 (𝜑𝐶 ∈ ℂ)
11886, 116, 117dvmptconst 46687 . . . . . . . . . 10 (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ 𝐶)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ 0))
11986, 87, 108, 110, 111, 112, 118dvmptsub 26177 . . . . . . . . 9 (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0)))
120108recnd 11252 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℂ)
121120subid1d 11573 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0) = ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))
122121mpteq2dva 5206 . . . . . . . . 9 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
123119, 122eqtrd 2800 . . . . . . . 8 (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
1241233ad2ant1 1151 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
1251203ad2antl1 1204 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℂ)
126 2cnd 12334 . . . . . . . . 9 (𝑠 ∈ (𝐴(,)𝐵) → 2 ∈ ℂ)
12778recnd 11252 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℂ)
128127halfcld 12504 . . . . . . . . . 10 (𝑠 ∈ (𝐴(,)𝐵) → (𝑠 / 2) ∈ ℂ)
129128sincld 16208 . . . . . . . . 9 (𝑠 ∈ (𝐴(,)𝐵) → (sin‘(𝑠 / 2)) ∈ ℂ)
130126, 129mulcld 11244 . . . . . . . 8 (𝑠 ∈ (𝐴(,)𝐵) → (2 · (sin‘(𝑠 / 2))) ∈ ℂ)
131130adantl 487 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ∈ ℂ)
132 fourierdlem68.e . . . . . . . 8 (𝜑𝐸 ∈ ℝ)
1331323ad2ant1 1151 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → 𝐸 ∈ ℝ)
134 1re 11223 . . . . . . . . 9 1 ∈ ℝ
13521, 134remulcli 11240 . . . . . . . 8 (2 · 1) ∈ ℝ
136135a1i 11 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → (2 · 1) ∈ ℝ)
137 1red 11224 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → 1 ∈ ℝ)
138 fourierdlem68.d . . . . . . . . 9 (𝜑𝐷 ∈ ℝ)
139117abscld 15514 . . . . . . . . 9 (𝜑 → (abs‘𝐶) ∈ ℝ)
140138, 139readdcld 11253 . . . . . . . 8 (𝜑 → (𝐷 + (abs‘𝐶)) ∈ ℝ)
1411403ad2ant1 1151 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → (𝐷 + (abs‘𝐶)) ∈ ℝ)
142 simpl 488 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝜑)
143142, 107jca 521 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))
144 eleq1 2853 . . . . . . . . . . . 12 (𝑡 = (𝑋 + 𝑠) → (𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)) ↔ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))
145144anbi2d 642 . . . . . . . . . . 11 (𝑡 = (𝑋 + 𝑠) → ((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) ↔ (𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))))
146 fveq2 6885 . . . . . . . . . . . . 13 (𝑡 = (𝑋 + 𝑠) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡) = ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))
147146fveq2d 6889 . . . . . . . . . . . 12 (𝑡 = (𝑋 + 𝑠) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) = (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))))
148147breq1d 5121 . . . . . . . . . . 11 (𝑡 = (𝑋 + 𝑠) → ((abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸 ↔ (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸))
149145, 148imbi12d 347 . . . . . . . . . 10 (𝑡 = (𝑋 + 𝑠) → (((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸) ↔ ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸)))
150 fourierdlem68.fdvbd . . . . . . . . . 10 ((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸)
151149, 150vtoclg 3524 . . . . . . . . 9 ((𝑋 + 𝑠) ∈ ℝ → ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸))
15280, 143, 151sylc 66 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸)
1531523ad2antl1 1204 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸)
154126, 129absmuld 15532 . . . . . . . . 9 (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(2 · (sin‘(𝑠 / 2)))) = ((abs‘2) · (abs‘(sin‘(𝑠 / 2)))))
155 0le2 12358 . . . . . . . . . . . 12 0 ≤ 2
156 absid 15371 . . . . . . . . . . . 12 ((2 ∈ ℝ ∧ 0 ≤ 2) → (abs‘2) = 2)
15721, 155, 156mp2an 705 . . . . . . . . . . 11 (abs‘2) = 2
158157oveq1i 7429 . . . . . . . . . 10 ((abs‘2) · (abs‘(sin‘(𝑠 / 2)))) = (2 · (abs‘(sin‘(𝑠 / 2))))
159129abscld 15514 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(sin‘(𝑠 / 2))) ∈ ℝ)
160 1red 11224 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → 1 ∈ ℝ)
16121a1i 11 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → 2 ∈ ℝ)
162155a1i 11 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → 0 ≤ 2)
16378rehalfcld 12506 . . . . . . . . . . . 12 (𝑠 ∈ (𝐴(,)𝐵) → (𝑠 / 2) ∈ ℝ)
164 abssinbd 46072 . . . . . . . . . . . 12 ((𝑠 / 2) ∈ ℝ → (abs‘(sin‘(𝑠 / 2))) ≤ 1)
165163, 164syl 18 . . . . . . . . . . 11 (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(sin‘(𝑠 / 2))) ≤ 1)
166159, 160, 161, 162, 165lemul2ad 12170 . . . . . . . . . 10 (𝑠 ∈ (𝐴(,)𝐵) → (2 · (abs‘(sin‘(𝑠 / 2)))) ≤ (2 · 1))
167158, 166eqbrtrid 5148 . . . . . . . . 9 (𝑠 ∈ (𝐴(,)𝐵) → ((abs‘2) · (abs‘(sin‘(𝑠 / 2)))) ≤ (2 · 1))
168154, 167eqbrtrd 5135 . . . . . . . 8 (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(2 · (sin‘(𝑠 / 2)))) ≤ (2 · 1))
169168adantl 487 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(2 · (sin‘(𝑠 / 2)))) ≤ (2 · 1))
170 abscosbd 46056 . . . . . . . . 9 ((𝑠 / 2) ∈ ℝ → (abs‘(cos‘(𝑠 / 2))) ≤ 1)
17199, 163, 1703syl 19 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(cos‘(𝑠 / 2))) ≤ 1)
1721713ad2antl1 1204 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(cos‘(𝑠 / 2))) ≤ 1)
17384abscld 15514 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ∈ ℝ)
17487abscld 15514 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹‘(𝑋 + 𝑠))) ∈ ℝ)
175111abscld 15514 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘𝐶) ∈ ℝ)
176174, 175readdcld 11253 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶)) ∈ ℝ)
177138adantr 486 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐷 ∈ ℝ)
178177, 175readdcld 11253 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐷 + (abs‘𝐶)) ∈ ℝ)
17987, 111abs2dif2d 15536 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶)))
180 fveq2 6885 . . . . . . . . . . . . . . 15 (𝑡 = (𝑋 + 𝑠) → (𝐹𝑡) = (𝐹‘(𝑋 + 𝑠)))
181180fveq2d 6889 . . . . . . . . . . . . . 14 (𝑡 = (𝑋 + 𝑠) → (abs‘(𝐹𝑡)) = (abs‘(𝐹‘(𝑋 + 𝑠))))
182181breq1d 5121 . . . . . . . . . . . . 13 (𝑡 = (𝑋 + 𝑠) → ((abs‘(𝐹𝑡)) ≤ 𝐷 ↔ (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷))
183145, 182imbi12d 347 . . . . . . . . . . . 12 (𝑡 = (𝑋 + 𝑠) → (((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹𝑡)) ≤ 𝐷) ↔ ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷)))
184 fourierdlem68.fbd . . . . . . . . . . . 12 ((𝜑𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹𝑡)) ≤ 𝐷)
185183, 184vtoclg 3524 . . . . . . . . . . 11 ((𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)) → ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷))
186107, 143, 185sylc 66 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷)
187174, 177, 175, 186leadd1dd 11843 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶)) ≤ (𝐷 + (abs‘𝐶)))
188173, 176, 178, 179, 187letrd 11382 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ (𝐷 + (abs‘𝐶)))
1891883ad2antl1 1204 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ (𝐷 + (abs‘𝐶)))
19014simpri 491 . . . . . . . 8 (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2)))
191190a1i 11 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2))))
192128coscld 16209 . . . . . . . 8 (𝑠 ∈ (𝐴(,)𝐵) → (cos‘(𝑠 / 2)) ∈ ℂ)
193192adantl 487 . . . . . . 7 (((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (cos‘(𝑠 / 2)) ∈ ℂ)
194 simp2 1155 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → 𝑐 ∈ ℝ+)
195 oveq1 7426 . . . . . . . . . . . . . 14 (𝑡 = 𝑠 → (𝑡 / 2) = (𝑠 / 2))
196195fveq2d 6889 . . . . . . . . . . . . 13 (𝑡 = 𝑠 → (sin‘(𝑡 / 2)) = (sin‘(𝑠 / 2)))
197196oveq2d 7435 . . . . . . . . . . . 12 (𝑡 = 𝑠 → (2 · (sin‘(𝑡 / 2))) = (2 · (sin‘(𝑠 / 2))))
198197fveq2d 6889 . . . . . . . . . . 11 (𝑡 = 𝑠 → (abs‘(2 · (sin‘(𝑡 / 2)))) = (abs‘(2 · (sin‘(𝑠 / 2)))))
199198breq2d 5123 . . . . . . . . . 10 (𝑡 = 𝑠 → (𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2)))) ↔ 𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))))
200199cbvralvw 3245 . . . . . . . . 9 (∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2)))) ↔ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
201 nfv 1947 . . . . . . . . . . 11 𝑠𝜑
202 nfra1 3291 . . . . . . . . . . 11 𝑠𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))
203201, 202nfan 1932 . . . . . . . . . 10 𝑠(𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
204 simplr 781 . . . . . . . . . . . 12 (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
2056, 99sselid 3936 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴[,]𝐵))
206205adantlr 728 . . . . . . . . . . . 12 (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴[,]𝐵))
207 rspa 3256 . . . . . . . . . . . 12 ((∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))) ∧ 𝑠 ∈ (𝐴[,]𝐵)) → 𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
208204, 206, 207syl2anc 596 . . . . . . . . . . 11 (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
209208ex 418 . . . . . . . . . 10 ((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) → (𝑠 ∈ (𝐴(,)𝐵) → 𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))))
210203, 209ralrimi 3265 . . . . . . . . 9 ((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2))))) → ∀𝑠 ∈ (𝐴(,)𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
211200, 210sylan2b 606 . . . . . . . 8 ((𝜑 ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → ∀𝑠 ∈ (𝐴(,)𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
2122113adant2 1149 . . . . . . 7 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → ∀𝑠 ∈ (𝐴(,)𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑠 / 2)))))
213 eqid 2765 . . . . . . 7 (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))) = (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))
21475, 85, 124, 125, 131, 133, 136, 137, 141, 153, 169, 172, 189, 191, 193, 194, 212, 213dvdivbd 46695 . . . . . 6 ((𝜑𝑐 ∈ ℝ+ ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2))))) → ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)
215214rexlimdv3a 3172 . . . . 5 (𝜑 → (∃𝑐 ∈ ℝ+𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 · (sin‘(𝑡 / 2)))) → ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
21673, 215mpd 16 . . . 4 (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)
217 nfcv 2927 . . . . . . . . 9 𝑠
218 nfcv 2927 . . . . . . . . 9 𝑠 D
219 nfmpt1 5212 . . . . . . . . . 10 𝑠(𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))
22013, 219nfcxfr 2925 . . . . . . . . 9 𝑠𝑂
221217, 218, 220nfov 7449 . . . . . . . 8 𝑠(ℝ D 𝑂)
222221nfdm 5943 . . . . . . 7 𝑠dom (ℝ D 𝑂)
223 nfcv 2927 . . . . . . 7 𝑠(𝐴(,)𝐵)
224222, 223raleqf 3347 . . . . . 6 (dom (ℝ D 𝑂) = (𝐴(,)𝐵) → (∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
22517, 224syl 18 . . . . 5 (𝜑 → (∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
226225rexbidv 3191 . . . 4 (𝜑 → (∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
227216, 226mpbird 260 . . 3 (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)
22813a1i 11 . . . . . . . 8 (𝜑𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))
229228oveq2d 7435 . . . . . . 7 (𝜑 → (ℝ D 𝑂) = (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))))
230229fveq1d 6887 . . . . . 6 (𝜑 → ((ℝ D 𝑂)‘𝑠) = ((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠))
231230fveq2d 6889 . . . . 5 (𝜑 → (abs‘((ℝ D 𝑂)‘𝑠)) = (abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)))
232231breq1d 5121 . . . 4 (𝜑 → ((abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏 ↔ (abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
233232rexralbidv 3233 . . 3 (𝜑 → (∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏 ↔ ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏))
234227, 233mpbird 260 . 2 (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏)
23517, 234jca 521 1 (𝜑 → (dom (ℝ D 𝑂) = (𝐴(,)𝐵) ∧ ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:  ¬ wn 3  wi 4  wb 209  wa 401  w3a 1103   = wceq 1570  wcel 2146  wne 2960  wral 3081  wrex 3091  cdif 3903  wss 3906  {csn 4591  {cpr 4593   class class class wbr 5111  cmpt 5194  dom cdm 5663  ran crn 5664  cres 5665  wf 6536  cfv 6540  (class class class)co 7419  cc 11113  cr 11114  0cc0 11115  1c1 11116   + caddc 11118   · cmul 11120  *cxr 11257   < clt 11258  cle 11259  cmin 11456  -cneg 11457   / cdiv 11886  2c2 12310  +crp 13032  (,)cioo 13388  [,]cicc 13391  cexp 14115  abscabs 15309  sincsin 16139  cosccos 16140  πcpi 16142  t crest 17495  TopOpenctopn 17496  topGenctg 17512  fldccnfld 21572  cnccncf 25086   D cdv 26073
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-inf2 9617  ax-cnex 11171  ax-resscn 11172  ax-1cn 11173  ax-icn 11174  ax-addcl 11175  ax-addrcl 11176  ax-mulcl 11177  ax-mulrcl 11178  ax-mulcom 11179  ax-addass 11180  ax-mulass 11181  ax-distr 11182  ax-i2m1 11183  ax-1ne0 11184  ax-1rid 11185  ax-rnegex 11186  ax-rrecex 11187  ax-cnre 11188  ax-pre-lttri 11189  ax-pre-lttrn 11190  ax-pre-ltadd 11191  ax-pre-mulgt0 11192  ax-pre-sup 11193  ax-addf 11194
This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4875  df-int 4915  df-iun 4960  df-iin 4961  df-br 5112  df-opab 5176  df-mpt 5195  df-tr 5221  df-id 5558  df-eprel 5563  df-po 5571  df-so 5572  df-fr 5616  df-se 5617  df-we 5618  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-pred 6306  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6496  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 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-of 7684  df-om 7869  df-1st 7992  df-2nd 7993  df-supp 8163  df-frecs 8284  df-wrecs 8315  df-recs 8364  df-rdg 8403  df-1o 8459  df-2o 8460  df-er 8700  df-map 8832  df-pm 8833  df-ixp 8902  df-en 8950  df-dom 8951  df-sdom 8952  df-fin 8953  df-fsupp 9329  df-fi 9378  df-sup 9409  df-inf 9410  df-oi 9479  df-card 9941  df-pnf 11260  df-mnf 11261  df-xr 11262  df-ltxr 11263  df-le 11264  df-sub 11458  df-neg 11459  df-div 11887  df-nn 12249  df-2 12318  df-3 12319  df-4 12320  df-5 12321  df-6 12322  df-7 12323  df-8 12324  df-9 12325  df-n0 12520  df-z 12607  df-dec 12728  df-uz 12879  df-q 12989  df-rp 13033  df-xneg 13153  df-xadd 13154  df-xmul 13155  df-ioo 13392  df-ioc 13393  df-ico 13394  df-icc 13395  df-fz 13552  df-fzo 13700  df-fl 13843  df-mod 13921  df-seq 14056  df-exp 14116  df-fac 14328  df-bc 14357  df-hash 14385  df-shft 15128  df-cj 15174  df-re 15175  df-im 15176  df-sqrt 15310  df-abs 15311  df-limsup 15546  df-clim 15563  df-rlim 15564  df-sum 15762  df-ef 16143  df-sin 16145  df-cos 16146  df-pi 16148  df-struct 17229  df-sets 17246  df-slot 17264  df-ndx 17276  df-base 17292  df-ress 17313  df-plusg 17345  df-mulr 17346  df-starv 17347  df-sca 17348  df-vsca 17349  df-ip 17350  df-tset 17351  df-ple 17352  df-ds 17354  df-unif 17355  df-hom 17356  df-cco 17357  df-rest 17497  df-topn 17498  df-0g 17516  df-gsum 17517  df-topgen 17518  df-pt 17519  df-prds 17522  df-xrs 17578  df-qtop 17583  df-imas 17584  df-xps 17586  df-mre 17660  df-mrc 17661  df-acs 17663  df-mgm 18720  df-sgrp 18809  df-mnd 18825  df-submnd 18879  df-mulg 19178  df-cntz 19431  df-cmn 19896  df-psmet 21564  df-xmet 21565  df-met 21566  df-bl 21567  df-mopn 21568  df-fbas 21569  df-fg 21570  df-cnfld 21573  df-top 23101  df-topon 23118  df-topsp 23140  df-bases 23153  df-cld 23226  df-ntr 23227  df-cls 23228  df-nei 23305  df-lp 23343  df-perf 23344  df-cn 23434  df-cnp 23435  df-t1 23521  df-haus 23522  df-cmp 23594  df-tx 23770  df-hmeo 23963  df-fil 24054  df-fm 24146  df-flim 24147  df-flf 24148  df-xms 24528  df-ms 24529  df-tms 24530  df-cncf 25088  df-limc 26076  df-dv 26077
This theorem is used by:  fourierdlem80  46958
  Copyright terms: Public domain W3C validator