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

Theorem fourierdlem74 44882
Description: Given a piecewise smooth function 𝐹, the derived function 𝐻 has a limit at the upper bound of each interval of the partition 𝑄. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem74.xre (πœ‘ β†’ 𝑋 ∈ ℝ)
fourierdlem74.p 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = (-Ο€ + 𝑋) ∧ (π‘β€˜π‘š) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
fourierdlem74.f (πœ‘ β†’ 𝐹:β„βŸΆβ„)
fourierdlem74.x (πœ‘ β†’ 𝑋 ∈ ran 𝑉)
fourierdlem74.y (πœ‘ β†’ π‘Œ ∈ ℝ)
fourierdlem74.w (πœ‘ β†’ π‘Š ∈ ((𝐹 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
fourierdlem74.h 𝐻 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
fourierdlem74.m (πœ‘ β†’ 𝑀 ∈ β„•)
fourierdlem74.v (πœ‘ β†’ 𝑉 ∈ (π‘ƒβ€˜π‘€))
fourierdlem74.r ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜(𝑖 + 1))))
fourierdlem74.q 𝑄 = (𝑖 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
fourierdlem74.o 𝑂 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
fourierdlem74.g 𝐺 = (ℝ D 𝐹)
fourierdlem74.gcn ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„)
fourierdlem74.e (πœ‘ β†’ 𝐸 ∈ ((𝐺 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
fourierdlem74.a 𝐴 = if((π‘‰β€˜(𝑖 + 1)) = 𝑋, 𝐸, ((𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1))))
Assertion
Ref Expression
fourierdlem74 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐴 ∈ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
Distinct variable groups:   𝐸,𝑠   𝐹,𝑠   𝐻,𝑠   𝑖,𝑀,π‘š,𝑝   𝑀,𝑠,𝑖   𝑄,𝑖,𝑝   𝑄,𝑠   𝑅,𝑠   𝑖,𝑉,𝑝   𝑉,𝑠   π‘Š,𝑠   𝑖,𝑋,π‘š,𝑝   𝑋,𝑠   π‘Œ,𝑠   πœ‘,𝑖,𝑠
Allowed substitution hints:   πœ‘(π‘š,𝑝)   𝐴(𝑖,π‘š,𝑠,𝑝)   𝑃(𝑖,π‘š,𝑠,𝑝)   𝑄(π‘š)   𝑅(𝑖,π‘š,𝑝)   𝐸(𝑖,π‘š,𝑝)   𝐹(𝑖,π‘š,𝑝)   𝐺(𝑖,π‘š,𝑠,𝑝)   𝐻(𝑖,π‘š,𝑝)   𝑂(𝑖,π‘š,𝑠,𝑝)   𝑉(π‘š)   π‘Š(𝑖,π‘š,𝑝)   π‘Œ(𝑖,π‘š,𝑝)

Proof of Theorem fourierdlem74
Dummy variables π‘₯ 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elfzofz 13644 . . . . . 6 (𝑖 ∈ (0..^𝑀) β†’ 𝑖 ∈ (0...𝑀))
2 pire 25959 . . . . . . . . . . . 12 Ο€ ∈ ℝ
32renegcli 11517 . . . . . . . . . . 11 -Ο€ ∈ ℝ
43a1i 11 . . . . . . . . . 10 (πœ‘ β†’ -Ο€ ∈ ℝ)
5 fourierdlem74.xre . . . . . . . . . 10 (πœ‘ β†’ 𝑋 ∈ ℝ)
64, 5readdcld 11239 . . . . . . . . 9 (πœ‘ β†’ (-Ο€ + 𝑋) ∈ ℝ)
72a1i 11 . . . . . . . . . 10 (πœ‘ β†’ Ο€ ∈ ℝ)
87, 5readdcld 11239 . . . . . . . . 9 (πœ‘ β†’ (Ο€ + 𝑋) ∈ ℝ)
96, 8iccssred 13407 . . . . . . . 8 (πœ‘ β†’ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) βŠ† ℝ)
109adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) βŠ† ℝ)
11 fourierdlem74.p . . . . . . . . 9 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = (-Ο€ + 𝑋) ∧ (π‘β€˜π‘š) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
12 fourierdlem74.m . . . . . . . . 9 (πœ‘ β†’ 𝑀 ∈ β„•)
13 fourierdlem74.v . . . . . . . . 9 (πœ‘ β†’ 𝑉 ∈ (π‘ƒβ€˜π‘€))
1411, 12, 13fourierdlem15 44824 . . . . . . . 8 (πœ‘ β†’ 𝑉:(0...𝑀)⟢((-Ο€ + 𝑋)[,](Ο€ + 𝑋)))
1514ffvelcdmda 7083 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (π‘‰β€˜π‘–) ∈ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)))
1610, 15sseldd 3982 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (π‘‰β€˜π‘–) ∈ ℝ)
171, 16sylan2 593 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜π‘–) ∈ ℝ)
1817adantr 481 . . . 4 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘‰β€˜π‘–) ∈ ℝ)
195ad2antrr 724 . . . 4 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝑋 ∈ ℝ)
2011fourierdlem2 44811 . . . . . . . . . 10 (𝑀 ∈ β„• β†’ (𝑉 ∈ (π‘ƒβ€˜π‘€) ↔ (𝑉 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘‰β€˜0) = (-Ο€ + 𝑋) ∧ (π‘‰β€˜π‘€) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1))))))
2112, 20syl 17 . . . . . . . . 9 (πœ‘ β†’ (𝑉 ∈ (π‘ƒβ€˜π‘€) ↔ (𝑉 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘‰β€˜0) = (-Ο€ + 𝑋) ∧ (π‘‰β€˜π‘€) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1))))))
2213, 21mpbid 231 . . . . . . . 8 (πœ‘ β†’ (𝑉 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘‰β€˜0) = (-Ο€ + 𝑋) ∧ (π‘‰β€˜π‘€) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1)))))
2322simprrd 772 . . . . . . 7 (πœ‘ β†’ βˆ€π‘– ∈ (0..^𝑀)(π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1)))
2423r19.21bi 3248 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1)))
2524adantr 481 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1)))
26 eqcom 2739 . . . . . . 7 ((π‘‰β€˜(𝑖 + 1)) = 𝑋 ↔ 𝑋 = (π‘‰β€˜(𝑖 + 1)))
2726biimpi 215 . . . . . 6 ((π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ 𝑋 = (π‘‰β€˜(𝑖 + 1)))
2827adantl 482 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝑋 = (π‘‰β€˜(𝑖 + 1)))
2925, 28breqtrrd 5175 . . . 4 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘‰β€˜π‘–) < 𝑋)
30 fourierdlem74.f . . . . . 6 (πœ‘ β†’ 𝐹:β„βŸΆβ„)
31 ioossre 13381 . . . . . . 7 ((π‘‰β€˜π‘–)(,)𝑋) βŠ† ℝ
3231a1i 11 . . . . . 6 (πœ‘ β†’ ((π‘‰β€˜π‘–)(,)𝑋) βŠ† ℝ)
3330, 32fssresd 6755 . . . . 5 (πœ‘ β†’ (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)):((π‘‰β€˜π‘–)(,)𝑋)βŸΆβ„)
3433ad2antrr 724 . . . 4 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)):((π‘‰β€˜π‘–)(,)𝑋)βŸΆβ„)
35 limcresi 25393 . . . . . . . 8 ((𝐹 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋) βŠ† (((𝐹 β†Ύ (-∞(,)𝑋)) β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋)
36 fourierdlem74.w . . . . . . . 8 (πœ‘ β†’ π‘Š ∈ ((𝐹 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
3735, 36sselid 3979 . . . . . . 7 (πœ‘ β†’ π‘Š ∈ (((𝐹 β†Ύ (-∞(,)𝑋)) β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋))
3837adantr 481 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Š ∈ (((𝐹 β†Ύ (-∞(,)𝑋)) β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋))
39 mnfxr 11267 . . . . . . . . . 10 -∞ ∈ ℝ*
4039a1i 11 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ -∞ ∈ ℝ*)
4117rexrd 11260 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜π‘–) ∈ ℝ*)
4217mnfltd 13100 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ -∞ < (π‘‰β€˜π‘–))
4340, 41, 42xrltled 13125 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ -∞ ≀ (π‘‰β€˜π‘–))
44 iooss1 13355 . . . . . . . . 9 ((-∞ ∈ ℝ* ∧ -∞ ≀ (π‘‰β€˜π‘–)) β†’ ((π‘‰β€˜π‘–)(,)𝑋) βŠ† (-∞(,)𝑋))
4540, 43, 44syl2anc 584 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘‰β€˜π‘–)(,)𝑋) βŠ† (-∞(,)𝑋))
4645resabs1d 6010 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐹 β†Ύ (-∞(,)𝑋)) β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) = (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)))
4746oveq1d 7420 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((𝐹 β†Ύ (-∞(,)𝑋)) β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋) = ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋))
4838, 47eleqtrd 2835 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Š ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋))
4948adantr 481 . . . 4 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ π‘Š ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋))
50 eqid 2732 . . . 4 (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) = (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)))
51 ax-resscn 11163 . . . . . . . . . 10 ℝ βŠ† β„‚
5251a1i 11 . . . . . . . . 9 (πœ‘ β†’ ℝ βŠ† β„‚)
5330, 52fssd 6732 . . . . . . . . 9 (πœ‘ β†’ 𝐹:β„βŸΆβ„‚)
54 ssid 4003 . . . . . . . . . 10 ℝ βŠ† ℝ
5554a1i 11 . . . . . . . . 9 (πœ‘ β†’ ℝ βŠ† ℝ)
56 eqid 2732 . . . . . . . . . 10 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
5756tgioo2 24310 . . . . . . . . . 10 (topGenβ€˜ran (,)) = ((TopOpenβ€˜β„‚fld) β†Ύt ℝ)
5856, 57dvres 25419 . . . . . . . . 9 (((ℝ βŠ† β„‚ ∧ 𝐹:β„βŸΆβ„‚) ∧ (ℝ βŠ† ℝ ∧ ((π‘‰β€˜π‘–)(,)𝑋) βŠ† ℝ)) β†’ (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) = ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘‰β€˜π‘–)(,)𝑋))))
5952, 53, 55, 32, 58syl22anc 837 . . . . . . . 8 (πœ‘ β†’ (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) = ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘‰β€˜π‘–)(,)𝑋))))
60 fourierdlem74.g . . . . . . . . . . 11 𝐺 = (ℝ D 𝐹)
6160eqcomi 2741 . . . . . . . . . 10 (ℝ D 𝐹) = 𝐺
62 ioontr 44210 . . . . . . . . . 10 ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘‰β€˜π‘–)(,)𝑋)) = ((π‘‰β€˜π‘–)(,)𝑋)
6361, 62reseq12i 5977 . . . . . . . . 9 ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘‰β€˜π‘–)(,)𝑋))) = (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))
6463a1i 11 . . . . . . . 8 (πœ‘ β†’ ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘‰β€˜π‘–)(,)𝑋))) = (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)))
6559, 64eqtrd 2772 . . . . . . 7 (πœ‘ β†’ (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) = (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)))
6665dmeqd 5903 . . . . . 6 (πœ‘ β†’ dom (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) = dom (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)))
6766ad2antrr 724 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ dom (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) = dom (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)))
68 fourierdlem74.gcn . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„)
6968adantr 481 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„)
70 oveq2 7413 . . . . . . . . . 10 ((π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))) = ((π‘‰β€˜π‘–)(,)𝑋))
7170reseq2d 5979 . . . . . . . . 9 ((π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) = (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)))
7271, 70feq12d 6702 . . . . . . . 8 ((π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ ((𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„ ↔ (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)):((π‘‰β€˜π‘–)(,)𝑋)βŸΆβ„))
7372adantl 482 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ ((𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„ ↔ (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)):((π‘‰β€˜π‘–)(,)𝑋)βŸΆβ„))
7469, 73mpbid 231 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)):((π‘‰β€˜π‘–)(,)𝑋)βŸΆβ„)
75 fdm 6723 . . . . . 6 ((𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)):((π‘‰β€˜π‘–)(,)𝑋)βŸΆβ„ β†’ dom (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) = ((π‘‰β€˜π‘–)(,)𝑋))
7674, 75syl 17 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ dom (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) = ((π‘‰β€˜π‘–)(,)𝑋))
7767, 76eqtrd 2772 . . . 4 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ dom (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) = ((π‘‰β€˜π‘–)(,)𝑋))
78 limcresi 25393 . . . . . . . 8 ((𝐺 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋) βŠ† (((𝐺 β†Ύ (-∞(,)𝑋)) β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋)
7945resabs1d 6010 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐺 β†Ύ (-∞(,)𝑋)) β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) = (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)))
8079oveq1d 7420 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((𝐺 β†Ύ (-∞(,)𝑋)) β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋) = ((𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋))
8178, 80sseqtrid 4033 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐺 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋) βŠ† ((𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋))
82 fourierdlem74.e . . . . . . . 8 (πœ‘ β†’ 𝐸 ∈ ((𝐺 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
8382adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐸 ∈ ((𝐺 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
8481, 83sseldd 3982 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐸 ∈ ((𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋))
8559, 64eqtr2d 2773 . . . . . . . 8 (πœ‘ β†’ (𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) = (ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))))
8685oveq1d 7420 . . . . . . 7 (πœ‘ β†’ ((𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋) = ((ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) limβ„‚ 𝑋))
8786adantr 481 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐺 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋)) limβ„‚ 𝑋) = ((ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) limβ„‚ 𝑋))
8884, 87eleqtrd 2835 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐸 ∈ ((ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) limβ„‚ 𝑋))
8988adantr 481 . . . 4 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝐸 ∈ ((ℝ D (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))) limβ„‚ 𝑋))
90 eqid 2732 . . . 4 (𝑠 ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ ((((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠)) = (𝑠 ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ ((((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
91 oveq2 7413 . . . . . . 7 (π‘₯ = 𝑠 β†’ (𝑋 + π‘₯) = (𝑋 + 𝑠))
9291fveq2d 6892 . . . . . 6 (π‘₯ = 𝑠 β†’ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + π‘₯)) = ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)))
9392oveq1d 7420 . . . . 5 (π‘₯ = 𝑠 β†’ (((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + π‘₯)) βˆ’ π‘Š) = (((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š))
9493cbvmptv 5260 . . . 4 (π‘₯ ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ (((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + π‘₯)) βˆ’ π‘Š)) = (𝑠 ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ (((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š))
95 id 22 . . . . 5 (π‘₯ = 𝑠 β†’ π‘₯ = 𝑠)
9695cbvmptv 5260 . . . 4 (π‘₯ ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ π‘₯) = (𝑠 ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ 𝑠)
9718, 19, 29, 34, 49, 50, 77, 89, 90, 94, 96fourierdlem60 44868 . . 3 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝐸 ∈ ((𝑠 ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ ((((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠)) limβ„‚ 0))
98 fourierdlem74.a . . . . 5 𝐴 = if((π‘‰β€˜(𝑖 + 1)) = 𝑋, 𝐸, ((𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1))))
99 iftrue 4533 . . . . 5 ((π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ if((π‘‰β€˜(𝑖 + 1)) = 𝑋, 𝐸, ((𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1)))) = 𝐸)
10098, 99eqtrid 2784 . . . 4 ((π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ 𝐴 = 𝐸)
101100adantl 482 . . 3 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝐴 = 𝐸)
102 fourierdlem74.h . . . . . . 7 𝐻 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
103102reseq1i 5975 . . . . . 6 (𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
104103a1i 11 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
105 ioossicc 13406 . . . . . . . 8 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))
1063rexri 11268 . . . . . . . . . 10 -Ο€ ∈ ℝ*
107106a1i 11 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ -Ο€ ∈ ℝ*)
1082rexri 11268 . . . . . . . . . 10 Ο€ ∈ ℝ*
109108a1i 11 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ Ο€ ∈ ℝ*)
1103a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ -Ο€ ∈ ℝ)
1112a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ Ο€ ∈ ℝ)
1125adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ 𝑋 ∈ ℝ)
11316, 112resubcld 11638 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ∈ ℝ)
1144recnd 11238 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ -Ο€ ∈ β„‚)
1155recnd 11238 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ 𝑋 ∈ β„‚)
116114, 115pncand 11568 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((-Ο€ + 𝑋) βˆ’ 𝑋) = -Ο€)
117116eqcomd 2738 . . . . . . . . . . . . . 14 (πœ‘ β†’ -Ο€ = ((-Ο€ + 𝑋) βˆ’ 𝑋))
118117adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ -Ο€ = ((-Ο€ + 𝑋) βˆ’ 𝑋))
1196adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (-Ο€ + 𝑋) ∈ ℝ)
1208adantr 481 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (Ο€ + 𝑋) ∈ ℝ)
121 elicc2 13385 . . . . . . . . . . . . . . . . 17 (((-Ο€ + 𝑋) ∈ ℝ ∧ (Ο€ + 𝑋) ∈ ℝ) β†’ ((π‘‰β€˜π‘–) ∈ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) ↔ ((π‘‰β€˜π‘–) ∈ ℝ ∧ (-Ο€ + 𝑋) ≀ (π‘‰β€˜π‘–) ∧ (π‘‰β€˜π‘–) ≀ (Ο€ + 𝑋))))
122119, 120, 121syl2anc 584 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) ∈ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) ↔ ((π‘‰β€˜π‘–) ∈ ℝ ∧ (-Ο€ + 𝑋) ≀ (π‘‰β€˜π‘–) ∧ (π‘‰β€˜π‘–) ≀ (Ο€ + 𝑋))))
12315, 122mpbid 231 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) ∈ ℝ ∧ (-Ο€ + 𝑋) ≀ (π‘‰β€˜π‘–) ∧ (π‘‰β€˜π‘–) ≀ (Ο€ + 𝑋)))
124123simp2d 1143 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (-Ο€ + 𝑋) ≀ (π‘‰β€˜π‘–))
125119, 16, 112, 124lesub1dd 11826 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((-Ο€ + 𝑋) βˆ’ 𝑋) ≀ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
126118, 125eqbrtrd 5169 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ -Ο€ ≀ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
127123simp3d 1144 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (π‘‰β€˜π‘–) ≀ (Ο€ + 𝑋))
12816, 120, 112, 127lesub1dd 11826 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ≀ ((Ο€ + 𝑋) βˆ’ 𝑋))
129111recnd 11238 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ Ο€ ∈ β„‚)
130115adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ 𝑋 ∈ β„‚)
131129, 130pncand 11568 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((Ο€ + 𝑋) βˆ’ 𝑋) = Ο€)
132128, 131breqtrd 5173 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ≀ Ο€)
133110, 111, 113, 126, 132eliccd 44203 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ∈ (-Ο€[,]Ο€))
134 fourierdlem74.q . . . . . . . . . . 11 𝑄 = (𝑖 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
135133, 134fmptd 7110 . . . . . . . . . 10 (πœ‘ β†’ 𝑄:(0...𝑀)⟢(-Ο€[,]Ο€))
136135adantr 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)⟢(-Ο€[,]Ο€))
137 simpr 485 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0..^𝑀))
138107, 109, 136, 137fourierdlem8 44817 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† (-Ο€[,]Ο€))
139105, 138sstrid 3992 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† (-Ο€[,]Ο€))
140139resmptd 6038 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))))
141140adantr 481 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))))
1421adantl 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0...𝑀))
1431, 113sylan2 593 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ∈ ℝ)
144134fvmpt2 7006 . . . . . . . . 9 ((𝑖 ∈ (0...𝑀) ∧ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ∈ ℝ) β†’ (π‘„β€˜π‘–) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
145142, 143, 144syl2anc 584 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
146145adantr 481 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘„β€˜π‘–) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
147 fveq2 6888 . . . . . . . . . . . . . 14 (𝑖 = 𝑗 β†’ (π‘‰β€˜π‘–) = (π‘‰β€˜π‘—))
148147oveq1d 7420 . . . . . . . . . . . . 13 (𝑖 = 𝑗 β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = ((π‘‰β€˜π‘—) βˆ’ 𝑋))
149148cbvmptv 5260 . . . . . . . . . . . 12 (𝑖 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘–) βˆ’ 𝑋)) = (𝑗 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘—) βˆ’ 𝑋))
150134, 149eqtri 2760 . . . . . . . . . . 11 𝑄 = (𝑗 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘—) βˆ’ 𝑋))
151150a1i 11 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄 = (𝑗 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘—) βˆ’ 𝑋)))
152 fveq2 6888 . . . . . . . . . . . 12 (𝑗 = (𝑖 + 1) β†’ (π‘‰β€˜π‘—) = (π‘‰β€˜(𝑖 + 1)))
153152oveq1d 7420 . . . . . . . . . . 11 (𝑗 = (𝑖 + 1) β†’ ((π‘‰β€˜π‘—) βˆ’ 𝑋) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
154153adantl 482 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑗 = (𝑖 + 1)) β†’ ((π‘‰β€˜π‘—) βˆ’ 𝑋) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
155 fzofzp1 13725 . . . . . . . . . . 11 (𝑖 ∈ (0..^𝑀) β†’ (𝑖 + 1) ∈ (0...𝑀))
156155adantl 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑖 + 1) ∈ (0...𝑀))
15722simpld 495 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑉 ∈ (ℝ ↑m (0...𝑀)))
158 elmapi 8839 . . . . . . . . . . . . . 14 (𝑉 ∈ (ℝ ↑m (0...𝑀)) β†’ 𝑉:(0...𝑀)βŸΆβ„)
159157, 158syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑉:(0...𝑀)βŸΆβ„)
160159adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑉:(0...𝑀)βŸΆβ„)
161160, 156ffvelcdmd 7084 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ)
1625adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑋 ∈ ℝ)
163161, 162resubcld 11638 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) ∈ ℝ)
164151, 154, 156, 163fvmptd 7002 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
165164adantr 481 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘„β€˜(𝑖 + 1)) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
166 oveq1 7412 . . . . . . . . 9 ((π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) = (𝑋 βˆ’ 𝑋))
167166adantl 482 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) = (𝑋 βˆ’ 𝑋))
168115ad2antrr 724 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝑋 ∈ β„‚)
169168subidd 11555 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝑋 βˆ’ 𝑋) = 0)
1701, 169sylanl2 679 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝑋 βˆ’ 𝑋) = 0)
171165, 167, 1703eqtrd 2776 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘„β€˜(𝑖 + 1)) = 0)
172146, 171oveq12d 7423 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) = (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0))
173 simplr 767 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = 0) β†’ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
174 fourierdlem74.o . . . . . . . . . . . . 13 𝑂 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
17512adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑠 = 0) β†’ 𝑀 ∈ β„•)
1764, 7, 5, 11, 174, 12, 13, 134fourierdlem14 44823 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑄 ∈ (π‘‚β€˜π‘€))
177176adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑠 = 0) β†’ 𝑄 ∈ (π‘‚β€˜π‘€))
178 simpr 485 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑠 = 0) β†’ 𝑠 = 0)
179 fourierdlem74.x . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑋 ∈ ran 𝑉)
180 ffn 6714 . . . . . . . . . . . . . . . . . . 19 (𝑉:(0...𝑀)⟢((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) β†’ 𝑉 Fn (0...𝑀))
181 fvelrnb 6949 . . . . . . . . . . . . . . . . . . 19 (𝑉 Fn (0...𝑀) β†’ (𝑋 ∈ ran 𝑉 ↔ βˆƒπ‘– ∈ (0...𝑀)(π‘‰β€˜π‘–) = 𝑋))
18214, 180, 1813syl 18 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝑋 ∈ ran 𝑉 ↔ βˆƒπ‘– ∈ (0...𝑀)(π‘‰β€˜π‘–) = 𝑋))
183179, 182mpbid 231 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ βˆƒπ‘– ∈ (0...𝑀)(π‘‰β€˜π‘–) = 𝑋)
184 simpr 485 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ 𝑖 ∈ (0...𝑀))
185134fvmpt2 7006 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑖 ∈ (0...𝑀) ∧ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ∈ (-Ο€[,]Ο€)) β†’ (π‘„β€˜π‘–) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
186184, 133, 185syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (π‘„β€˜π‘–) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
187186adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜π‘–) = 𝑋) β†’ (π‘„β€˜π‘–) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
188 oveq1 7412 . . . . . . . . . . . . . . . . . . . . 21 ((π‘‰β€˜π‘–) = 𝑋 β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = (𝑋 βˆ’ 𝑋))
189188adantl 482 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜π‘–) = 𝑋) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = (𝑋 βˆ’ 𝑋))
190115subidd 11555 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝑋 βˆ’ 𝑋) = 0)
191190ad2antrr 724 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜π‘–) = 𝑋) β†’ (𝑋 βˆ’ 𝑋) = 0)
192187, 189, 1913eqtrd 2776 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜π‘–) = 𝑋) β†’ (π‘„β€˜π‘–) = 0)
193192ex 413 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) = 𝑋 β†’ (π‘„β€˜π‘–) = 0))
194193reximdva 3168 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (βˆƒπ‘– ∈ (0...𝑀)(π‘‰β€˜π‘–) = 𝑋 β†’ βˆƒπ‘– ∈ (0...𝑀)(π‘„β€˜π‘–) = 0))
195183, 194mpd 15 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ βˆƒπ‘– ∈ (0...𝑀)(π‘„β€˜π‘–) = 0)
196113, 134fmptd 7110 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑄:(0...𝑀)βŸΆβ„)
197 ffn 6714 . . . . . . . . . . . . . . . . 17 (𝑄:(0...𝑀)βŸΆβ„ β†’ 𝑄 Fn (0...𝑀))
198 fvelrnb 6949 . . . . . . . . . . . . . . . . 17 (𝑄 Fn (0...𝑀) β†’ (0 ∈ ran 𝑄 ↔ βˆƒπ‘– ∈ (0...𝑀)(π‘„β€˜π‘–) = 0))
199196, 197, 1983syl 18 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (0 ∈ ran 𝑄 ↔ βˆƒπ‘– ∈ (0...𝑀)(π‘„β€˜π‘–) = 0))
200195, 199mpbird 256 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 0 ∈ ran 𝑄)
201200adantr 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑠 = 0) β†’ 0 ∈ ran 𝑄)
202178, 201eqeltrd 2833 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑠 = 0) β†’ 𝑠 ∈ ran 𝑄)
203174, 175, 177, 202fourierdlem12 44821 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑠 = 0) ∧ 𝑖 ∈ (0..^𝑀)) β†’ Β¬ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
204203an32s 650 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 = 0) β†’ Β¬ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
205204adantlr 713 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = 0) β†’ Β¬ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
206173, 205pm2.65da 815 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ 𝑠 = 0)
207206adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ 𝑠 = 0)
208207iffalsed 4538 . . . . . . 7 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))
209 elioore 13350 . . . . . . . . . . . 12 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑠 ∈ ℝ)
210209adantl 482 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ ℝ)
211 0red 11213 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 0 ∈ ℝ)
212 elioo3g 13349 . . . . . . . . . . . . . . 15 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↔ (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ 𝑠 ∈ ℝ*) ∧ ((π‘„β€˜π‘–) < 𝑠 ∧ 𝑠 < (π‘„β€˜(𝑖 + 1)))))
213212biimpi 215 . . . . . . . . . . . . . 14 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ 𝑠 ∈ ℝ*) ∧ ((π‘„β€˜π‘–) < 𝑠 ∧ 𝑠 < (π‘„β€˜(𝑖 + 1)))))
214213simprrd 772 . . . . . . . . . . . . 13 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑠 < (π‘„β€˜(𝑖 + 1)))
215214adantl 482 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 < (π‘„β€˜(𝑖 + 1)))
216171adantr 481 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) = 0)
217215, 216breqtrd 5173 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 < 0)
218210, 211, 217ltnsymd 11359 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ 0 < 𝑠)
219218iffalsed 4538 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(0 < 𝑠, π‘Œ, π‘Š) = π‘Š)
220219oveq2d 7421 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) = ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š))
221220oveq1d 7420 . . . . . . 7 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
22241ad2antrr 724 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘‰β€˜π‘–) ∈ ℝ*)
2235rexrd 11260 . . . . . . . . . . . 12 (πœ‘ β†’ 𝑋 ∈ ℝ*)
224223ad3antrrr 728 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ*)
225162ad2antrr 724 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
226225, 210readdcld 11239 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + 𝑠) ∈ ℝ)
227115adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑋 ∈ β„‚)
228 iccssre 13402 . . . . . . . . . . . . . . . . . . 19 ((-Ο€ ∈ ℝ ∧ Ο€ ∈ ℝ) β†’ (-Ο€[,]Ο€) βŠ† ℝ)
2293, 2, 228mp2an 690 . . . . . . . . . . . . . . . . . 18 (-Ο€[,]Ο€) βŠ† ℝ
230229, 51sstri 3990 . . . . . . . . . . . . . . . . 17 (-Ο€[,]Ο€) βŠ† β„‚
231186, 133eqeltrd 2833 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (π‘„β€˜π‘–) ∈ (-Ο€[,]Ο€))
2321, 231sylan2 593 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ (-Ο€[,]Ο€))
233230, 232sselid 3979 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ β„‚)
234227, 233addcomd 11412 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑋 + (π‘„β€˜π‘–)) = ((π‘„β€˜π‘–) + 𝑋))
235145oveq1d 7420 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–) + 𝑋) = (((π‘‰β€˜π‘–) βˆ’ 𝑋) + 𝑋))
23617recnd 11238 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜π‘–) ∈ β„‚)
237236, 227npcand 11571 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘‰β€˜π‘–) βˆ’ 𝑋) + 𝑋) = (π‘‰β€˜π‘–))
238234, 235, 2373eqtrrd 2777 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜π‘–) = (𝑋 + (π‘„β€˜π‘–)))
239238adantr 481 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘‰β€˜π‘–) = (𝑋 + (π‘„β€˜π‘–)))
240145, 143eqeltrd 2833 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
241240adantr 481 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ)
242209adantl 482 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ ℝ)
2435ad2antrr 724 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
244213simprld 770 . . . . . . . . . . . . . . 15 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) < 𝑠)
245244adantl 482 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) < 𝑠)
246241, 242, 243, 245ltadd2dd 11369 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + (π‘„β€˜π‘–)) < (𝑋 + 𝑠))
247239, 246eqbrtrd 5169 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘‰β€˜π‘–) < (𝑋 + 𝑠))
248247adantlr 713 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘‰β€˜π‘–) < (𝑋 + 𝑠))
249 ltaddneg 11425 . . . . . . . . . . . . 13 ((𝑠 ∈ ℝ ∧ 𝑋 ∈ ℝ) β†’ (𝑠 < 0 ↔ (𝑋 + 𝑠) < 𝑋))
250210, 225, 249syl2anc 584 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑠 < 0 ↔ (𝑋 + 𝑠) < 𝑋))
251217, 250mpbid 231 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + 𝑠) < 𝑋)
252222, 224, 226, 248, 251eliood 44197 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + 𝑠) ∈ ((π‘‰β€˜π‘–)(,)𝑋))
253 fvres 6907 . . . . . . . . . . 11 ((𝑋 + 𝑠) ∈ ((π‘‰β€˜π‘–)(,)𝑋) β†’ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) = (πΉβ€˜(𝑋 + 𝑠)))
254253eqcomd 2738 . . . . . . . . . 10 ((𝑋 + 𝑠) ∈ ((π‘‰β€˜π‘–)(,)𝑋) β†’ (πΉβ€˜(𝑋 + 𝑠)) = ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)))
255252, 254syl 17 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜(𝑋 + 𝑠)) = ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)))
256255oveq1d 7420 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) = (((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š))
257256oveq1d 7420 . . . . . . 7 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) = ((((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
258208, 221, 2573eqtrd 2776 . . . . . 6 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) = ((((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
259172, 258mpteq12dva 5236 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))) = (𝑠 ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ ((((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠)))
260104, 141, 2593eqtrd 2776 . . . 4 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑠 ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ ((((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠)))
261260, 171oveq12d 7423 . . 3 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))) = ((𝑠 ∈ (((π‘‰β€˜π‘–) βˆ’ 𝑋)(,)0) ↦ ((((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)𝑋))β€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠)) limβ„‚ 0))
26297, 101, 2613eltr4d 2848 . 2 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝐴 ∈ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
263 eqid 2732 . . . . 5 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)))
264 eqid 2732 . . . . 5 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ 𝑠) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ 𝑠)
265 eqid 2732 . . . . 5 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))
26630adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝐹:β„βŸΆβ„)
2675adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
268209adantl 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ ℝ)
269267, 268readdcld 11239 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + 𝑠) ∈ ℝ)
270266, 269ffvelcdmd 7084 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ ℝ)
271270recnd 11238 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ β„‚)
272271adantlr 713 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ β„‚)
2732723adantl3 1168 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ β„‚)
274 fourierdlem74.y . . . . . . . . . 10 (πœ‘ β†’ π‘Œ ∈ ℝ)
275274recnd 11238 . . . . . . . . 9 (πœ‘ β†’ π‘Œ ∈ β„‚)
276 limccl 25383 . . . . . . . . . 10 ((𝐹 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋) βŠ† β„‚
277276, 36sselid 3979 . . . . . . . . 9 (πœ‘ β†’ π‘Š ∈ β„‚)
278275, 277ifcld 4573 . . . . . . . 8 (πœ‘ β†’ if(0 < 𝑠, π‘Œ, π‘Š) ∈ β„‚)
279278adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(0 < 𝑠, π‘Œ, π‘Š) ∈ β„‚)
2802793ad2antl1 1185 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(0 < 𝑠, π‘Œ, π‘Š) ∈ β„‚)
281273, 280subcld 11567 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) ∈ β„‚)
282209recnd 11238 . . . . . . 7 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑠 ∈ β„‚)
283282adantl 482 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ β„‚)
284 velsn 4643 . . . . . . . 8 (𝑠 ∈ {0} ↔ 𝑠 = 0)
285206, 284sylnibr 328 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ 𝑠 ∈ {0})
2862853adantl3 1168 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ 𝑠 ∈ {0})
287283, 286eldifd 3958 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ (β„‚ βˆ– {0}))
288 eqid 2732 . . . . . . . . . 10 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜(𝑋 + 𝑠))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜(𝑋 + 𝑠)))
289 eqid 2732 . . . . . . . . . 10 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Š) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Š)
290 eqid 2732 . . . . . . . . . 10 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š)) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š))
291277ad2antrr 724 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Š ∈ β„‚)
29230adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐹:β„βŸΆβ„)
293 ioossre 13381 . . . . . . . . . . . 12 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ
294293a1i 11 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ)
29541adantr 481 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘‰β€˜π‘–) ∈ ℝ*)
296161rexrd 11260 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ*)
297296adantr 481 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ*)
298269adantlr 713 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + 𝑠) ∈ ℝ)
299196adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)βŸΆβ„)
300299, 156ffvelcdmd 7084 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
301300adantr 481 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
302214adantl 482 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 < (π‘„β€˜(𝑖 + 1)))
303242, 301, 243, 302ltadd2dd 11369 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + 𝑠) < (𝑋 + (π‘„β€˜(𝑖 + 1))))
304164oveq2d 7421 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑋 + (π‘„β€˜(𝑖 + 1))) = (𝑋 + ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋)))
305161recnd 11238 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ β„‚)
306227, 305pncan3d 11570 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑋 + ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋)) = (π‘‰β€˜(𝑖 + 1)))
307304, 306eqtrd 2772 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑋 + (π‘„β€˜(𝑖 + 1))) = (π‘‰β€˜(𝑖 + 1)))
308307adantr 481 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + (π‘„β€˜(𝑖 + 1))) = (π‘‰β€˜(𝑖 + 1)))
309303, 308breqtrd 5173 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + 𝑠) < (π‘‰β€˜(𝑖 + 1)))
310295, 297, 298, 247, 309eliood 44197 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑋 + 𝑠) ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))))
311 ioossre 13381 . . . . . . . . . . . 12 ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))) βŠ† ℝ
312311a1i 11 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))) βŠ† ℝ)
313242, 302ltned 11346 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 β‰  (π‘„β€˜(𝑖 + 1)))
314 fourierdlem74.r . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜(𝑖 + 1))))
315307eqcomd 2738 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜(𝑖 + 1)) = (𝑋 + (π‘„β€˜(𝑖 + 1))))
316315oveq2d 7421 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜(𝑖 + 1))) = ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (𝑋 + (π‘„β€˜(𝑖 + 1)))))
317314, 316eleqtrd 2835 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (𝑋 + (π‘„β€˜(𝑖 + 1)))))
318300recnd 11238 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
319292, 162, 294, 288, 310, 312, 313, 317, 318fourierdlem53 44861 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜(𝑋 + 𝑠))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
320 ioosscn 13382 . . . . . . . . . . . 12 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚
321320a1i 11 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
322277adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Š ∈ β„‚)
323289, 321, 322, 318constlimc 44326 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Š ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Š) limβ„‚ (π‘„β€˜(𝑖 + 1))))
324288, 289, 290, 272, 291, 319, 323sublimc 44354 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 βˆ’ π‘Š) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
325324adantr 481 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (𝑅 βˆ’ π‘Š) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
326 iftrue 4533 . . . . . . . . . 10 ((π‘‰β€˜(𝑖 + 1)) < 𝑋 β†’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ) = π‘Š)
327326oveq2d 7421 . . . . . . . . 9 ((π‘‰β€˜(𝑖 + 1)) < 𝑋 β†’ (𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) = (𝑅 βˆ’ π‘Š))
328327adantl 482 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) = (𝑅 βˆ’ π‘Š))
329209adantl 482 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ ℝ)
330 0red 11213 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 0 ∈ ℝ)
331300ad2antrr 724 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
332214adantl 482 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 < (π‘„β€˜(𝑖 + 1)))
333164adantr 481 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (π‘„β€˜(𝑖 + 1)) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
334161adantr 481 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ)
3355ad2antrr 724 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ 𝑋 ∈ ℝ)
336 simpr 485 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (π‘‰β€˜(𝑖 + 1)) < 𝑋)
337334, 335, 336ltled 11358 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (π‘‰β€˜(𝑖 + 1)) ≀ 𝑋)
338334, 335suble0d 11801 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) ≀ 0 ↔ (π‘‰β€˜(𝑖 + 1)) ≀ 𝑋))
339337, 338mpbird 256 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) ≀ 0)
340333, 339eqbrtrd 5169 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (π‘„β€˜(𝑖 + 1)) ≀ 0)
341340adantr 481 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ≀ 0)
342329, 331, 330, 332, 341ltletrd 11370 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 < 0)
343329, 330, 342ltnsymd 11359 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ 0 < 𝑠)
344343iffalsed 4538 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(0 < 𝑠, π‘Œ, π‘Š) = π‘Š)
345344oveq2d 7421 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) = ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š))
346345mpteq2dva 5247 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š)))
347346oveq1d 7420 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š))) limβ„‚ (π‘„β€˜(𝑖 + 1))) = ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
348325, 328, 3473eltr4d 2848 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
3493483adantl3 1168 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
350 simpl1 1191 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ πœ‘)
351 simpl2 1192 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ 𝑖 ∈ (0..^𝑀))
3525ad2antrr 724 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ 𝑋 ∈ ℝ)
3533523adantl3 1168 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ 𝑋 ∈ ℝ)
354161adantr 481 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ)
3553543adantl3 1168 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ)
356 neqne 2948 . . . . . . . . . . 11 (Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ (π‘‰β€˜(𝑖 + 1)) β‰  𝑋)
357356necomd 2996 . . . . . . . . . 10 (Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ 𝑋 β‰  (π‘‰β€˜(𝑖 + 1)))
358357adantr 481 . . . . . . . . 9 ((Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋 ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ 𝑋 β‰  (π‘‰β€˜(𝑖 + 1)))
3593583ad2antl3 1187 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ 𝑋 β‰  (π‘‰β€˜(𝑖 + 1)))
360 simpr 485 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋)
361353, 355, 359, 360lttri5d 43995 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ 𝑋 < (π‘‰β€˜(𝑖 + 1)))
362 eqid 2732 . . . . . . . 8 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ if(0 < 𝑠, π‘Œ, π‘Š)) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ if(0 < 𝑠, π‘Œ, π‘Š))
363272adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ β„‚)
364278ad3antrrr 728 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(0 < 𝑠, π‘Œ, π‘Š) ∈ β„‚)
365319adantr 481 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ 𝑅 ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜(𝑋 + 𝑠))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
366 eqid 2732 . . . . . . . . . . 11 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Œ) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Œ)
367275adantr 481 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Œ ∈ β„‚)
368366, 321, 367, 318constlimc 44326 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Œ ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Œ) limβ„‚ (π‘„β€˜(𝑖 + 1))))
369368adantr 481 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ π‘Œ ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Œ) limβ„‚ (π‘„β€˜(𝑖 + 1))))
3705ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ 𝑋 ∈ ℝ)
371161adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ)
372 simpr 485 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ 𝑋 < (π‘‰β€˜(𝑖 + 1)))
373370, 371, 372ltnsymd 11359 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋)
374373iffalsed 4538 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ) = π‘Œ)
375 0red 11213 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 0 ∈ ℝ)
376240ad2antrr 724 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ)
377209adantl 482 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ ℝ)
378190eqcomd 2738 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 0 = (𝑋 βˆ’ 𝑋))
379378ad2antrr 724 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ 0 = (𝑋 βˆ’ 𝑋))
38017adantr 481 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ (π‘‰β€˜π‘–) ∈ ℝ)
38141ad2antrr 724 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ (π‘‰β€˜π‘–) ∈ ℝ*)
382296ad2antrr 724 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ*)
383162ad2antrr 724 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ 𝑋 ∈ ℝ)
384 simpr 485 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–))
38517adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ (π‘‰β€˜π‘–) ∈ ℝ)
3865ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ 𝑋 ∈ ℝ)
387385, 386ltnled 11357 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ ((π‘‰β€˜π‘–) < 𝑋 ↔ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)))
388384, 387mpbird 256 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ (π‘‰β€˜π‘–) < 𝑋)
389388adantlr 713 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ (π‘‰β€˜π‘–) < 𝑋)
390 simplr 767 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ 𝑋 < (π‘‰β€˜(𝑖 + 1)))
391381, 382, 383, 389, 390eliood 44197 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ 𝑋 ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))))
39211, 12, 13, 179fourierdlem12 44821 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ Β¬ 𝑋 ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))))
393392ad2antrr 724 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ Β¬ 𝑋 ≀ (π‘‰β€˜π‘–)) β†’ Β¬ 𝑋 ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))))
394391, 393condan 816 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ 𝑋 ≀ (π‘‰β€˜π‘–))
395370, 380, 370, 394lesub1dd 11826 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ (𝑋 βˆ’ 𝑋) ≀ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
396379, 395eqbrtrd 5169 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ 0 ≀ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
397145eqcomd 2738 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = (π‘„β€˜π‘–))
398397adantr 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = (π‘„β€˜π‘–))
399396, 398breqtrd 5173 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ 0 ≀ (π‘„β€˜π‘–))
400399adantr 481 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 0 ≀ (π‘„β€˜π‘–))
401244adantl 482 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) < 𝑠)
402375, 376, 377, 400, 401lelttrd 11368 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 0 < 𝑠)
403402iftrued 4535 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(0 < 𝑠, π‘Œ, π‘Š) = π‘Œ)
404403mpteq2dva 5247 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ if(0 < 𝑠, π‘Œ, π‘Š)) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Œ))
405404oveq1d 7420 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ if(0 < 𝑠, π‘Œ, π‘Š)) limβ„‚ (π‘„β€˜(𝑖 + 1))) = ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Œ) limβ„‚ (π‘„β€˜(𝑖 + 1))))
406369, 374, 4053eltr4d 2848 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ if(0 < 𝑠, π‘Œ, π‘Š)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
407288, 362, 263, 363, 364, 365, 406sublimc 44354 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑋 < (π‘‰β€˜(𝑖 + 1))) β†’ (𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
408350, 351, 361, 407syl21anc 836 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) < 𝑋) β†’ (𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
409349, 408pm2.61dan 811 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
410321, 264, 318idlimc 44328 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ 𝑠) limβ„‚ (π‘„β€˜(𝑖 + 1))))
4114103adant3 1132 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ 𝑠) limβ„‚ (π‘„β€˜(𝑖 + 1))))
4121643adant3 1132 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘„β€˜(𝑖 + 1)) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
4133053adant3 1132 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ β„‚)
4142273adant3 1132 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝑋 ∈ β„‚)
4153563ad2ant3 1135 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘‰β€˜(𝑖 + 1)) β‰  𝑋)
416413, 414, 415subne0d 11576 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) β‰  0)
417412, 416eqnetrd 3008 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (π‘„β€˜(𝑖 + 1)) β‰  0)
4182063adantl3 1168 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ 𝑠 = 0)
419418neqned 2947 . . . . 5 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 β‰  0)
420263, 264, 265, 281, 287, 409, 411, 417, 419divlimc 44358 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ ((𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1))) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
421 iffalse 4536 . . . . . 6 (Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ if((π‘‰β€˜(𝑖 + 1)) = 𝑋, 𝐸, ((𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1)))) = ((𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1))))
42298, 421eqtrid 2784 . . . . 5 (Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋 β†’ 𝐴 = ((𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1))))
4234223ad2ant3 1135 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝐴 = ((𝑅 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1))))
424 ioossre 13381 . . . . . . . . . . . . 13 (-∞(,)𝑋) βŠ† ℝ
425424a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ (-∞(,)𝑋) βŠ† ℝ)
42630, 425fssresd 6755 . . . . . . . . . . 11 (πœ‘ β†’ (𝐹 β†Ύ (-∞(,)𝑋)):(-∞(,)𝑋)βŸΆβ„)
427424, 52sstrid 3992 . . . . . . . . . . 11 (πœ‘ β†’ (-∞(,)𝑋) βŠ† β„‚)
42839a1i 11 . . . . . . . . . . . 12 (πœ‘ β†’ -∞ ∈ ℝ*)
4295mnfltd 13100 . . . . . . . . . . . 12 (πœ‘ β†’ -∞ < 𝑋)
43056, 428, 5, 429lptioo2cn 44347 . . . . . . . . . . 11 (πœ‘ β†’ 𝑋 ∈ ((limPtβ€˜(TopOpenβ€˜β„‚fld))β€˜(-∞(,)𝑋)))
431426, 427, 430, 36limcrecl 44331 . . . . . . . . . 10 (πœ‘ β†’ π‘Š ∈ ℝ)
43230, 5, 274, 431, 102fourierdlem9 44818 . . . . . . . . 9 (πœ‘ β†’ 𝐻:(-Ο€[,]Ο€)βŸΆβ„)
433432adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐻:(-Ο€[,]Ο€)βŸΆβ„)
434433, 139feqresmpt 6958 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π»β€˜π‘ )))
435139sselda 3981 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
436 0cnd 11203 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 0 ∈ β„‚)
437278ad2antrr 724 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(0 < 𝑠, π‘Œ, π‘Š) ∈ β„‚)
438272, 437subcld 11567 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) ∈ β„‚)
439282adantl 482 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ β„‚)
440206neqned 2947 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 β‰  0)
441438, 439, 440divcld 11986 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠) ∈ β„‚)
442436, 441ifcld 4573 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) ∈ β„‚)
443102fvmpt2 7006 . . . . . . . . . 10 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) ∈ β„‚) β†’ (π»β€˜π‘ ) = if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
444435, 442, 443syl2anc 584 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π»β€˜π‘ ) = if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
445206iffalsed 4538 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))
446444, 445eqtrd 2772 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π»β€˜π‘ ) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))
447446mpteq2dva 5247 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π»β€˜π‘ )) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
448434, 447eqtrd 2772 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
4494483adant3 1132 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ (𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
450449oveq1d 7420 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))) = ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
451420, 423, 4503eltr4d 2848 . . 3 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝐴 ∈ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
4524513expa 1118 . 2 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ Β¬ (π‘‰β€˜(𝑖 + 1)) = 𝑋) β†’ 𝐴 ∈ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
453262, 452pm2.61dan 811 1 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐴 ∈ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  {crab 3432   βŠ† wss 3947  ifcif 4527  {csn 4627   class class class wbr 5147   ↦ cmpt 5230  dom cdm 5675  ran crn 5676   β†Ύ cres 5677   Fn wfn 6535  βŸΆwf 6536  β€˜cfv 6540  (class class class)co 7405   ↑m cmap 8816  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109  -∞cmnf 11242  β„*cxr 11243   < clt 11244   ≀ cle 11245   βˆ’ cmin 11440  -cneg 11441   / cdiv 11867  β„•cn 12208  (,)cioo 13320  [,]cicc 13323  ...cfz 13480  ..^cfzo 13623  Ο€cpi 16006  TopOpenctopn 17363  topGenctg 17379  β„‚fldccnfld 20936  intcnt 22512   limβ„‚ climc 25370   D cdv 25371
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-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-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-cmp 22882  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:  fourierdlem88  44896  fourierdlem103  44911  fourierdlem104  44912
  Copyright terms: Public domain W3C validator