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

Theorem fourierdlem54 42311
Description: Given a partition 𝑄 and an arbitrary interval [𝐶, 𝐷], a partition 𝑆 on [𝐶, 𝐷] is built such that it preserves any periodic function piecewise continuous on 𝑄 will be piecewise continuous on 𝑆, with the same limits. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem54.t 𝑇 = (𝐵𝐴)
fourierdlem54.p 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑m (0...𝑚)) ∣ (((𝑝‘0) = 𝐴 ∧ (𝑝𝑚) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem54.m (𝜑𝑀 ∈ ℕ)
fourierdlem54.q (𝜑𝑄 ∈ (𝑃𝑀))
fourierdlem54.c (𝜑𝐶 ∈ ℝ)
fourierdlem54.d (𝜑𝐷 ∈ ℝ)
fourierdlem54.cd (𝜑𝐶 < 𝐷)
fourierdlem54.o 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑m (0...𝑚)) ∣ (((𝑝‘0) = 𝐶 ∧ (𝑝𝑚) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem54.h 𝐻 = ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄})
fourierdlem54.n 𝑁 = ((♯‘𝐻) − 1)
fourierdlem54.s 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
Assertion
Ref Expression
fourierdlem54 (𝜑 → ((𝑁 ∈ ℕ ∧ 𝑆 ∈ (𝑂𝑁)) ∧ 𝑆 Isom < , < ((0...𝑁), 𝐻)))
Distinct variable groups:   𝐴,𝑖,𝑚,𝑝   𝐵,𝑖,𝑚,𝑝   𝐶,𝑚,𝑝   𝑥,𝐶   𝐷,𝑚,𝑝   𝑥,𝐷   𝑓,𝐻   𝑥,𝐻   𝑖,𝑀,𝑚,𝑝   𝑓,𝑁   𝑖,𝑁,𝑚,𝑝   𝑥,𝑁,𝑖   𝑄,𝑖,𝑘   𝑄,𝑝   𝑥,𝑄,𝑘   𝑆,𝑓   𝑆,𝑖,𝑝   𝑥,𝑆   𝑇,𝑖,𝑘,𝑥   𝜑,𝑓   𝜑,𝑖,𝑘
Allowed substitution hints:   𝜑(𝑥,𝑚,𝑝)   𝐴(𝑥,𝑓,𝑘)   𝐵(𝑥,𝑓,𝑘)   𝐶(𝑓,𝑖,𝑘)   𝐷(𝑓,𝑖,𝑘)   𝑃(𝑥,𝑓,𝑖,𝑘,𝑚,𝑝)   𝑄(𝑓,𝑚)   𝑆(𝑘,𝑚)   𝑇(𝑓,𝑚,𝑝)   𝐻(𝑖,𝑘,𝑚,𝑝)   𝑀(𝑥,𝑓,𝑘)   𝑁(𝑘)   𝑂(𝑥,𝑓,𝑖,𝑘,𝑚,𝑝)

Proof of Theorem fourierdlem54
Dummy variables 𝑤 𝑦 𝑧 𝑗 𝑙 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem54.n . . 3 𝑁 = ((♯‘𝐻) − 1)
2 2z 12003 . . . . . 6 2 ∈ ℤ
32a1i 11 . . . . 5 (𝜑 → 2 ∈ ℤ)
4 fourierdlem54.c . . . . . . . . . 10 (𝜑𝐶 ∈ ℝ)
5 prid1g 4695 . . . . . . . . . 10 (𝐶 ∈ ℝ → 𝐶 ∈ {𝐶, 𝐷})
6 elun1 4156 . . . . . . . . . 10 (𝐶 ∈ {𝐶, 𝐷} → 𝐶 ∈ ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}))
74, 5, 63syl 18 . . . . . . . . 9 (𝜑𝐶 ∈ ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}))
8 fourierdlem54.h . . . . . . . . 9 𝐻 = ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄})
97, 8syl6eleqr 2929 . . . . . . . 8 (𝜑𝐶𝐻)
109ne0d 4305 . . . . . . 7 (𝜑𝐻 ≠ ∅)
11 prfi 8782 . . . . . . . . . 10 {𝐶, 𝐷} ∈ Fin
12 fourierdlem54.p . . . . . . . . . . . . 13 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑m (0...𝑚)) ∣ (((𝑝‘0) = 𝐴 ∧ (𝑝𝑚) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
13 fourierdlem54.m . . . . . . . . . . . . 13 (𝜑𝑀 ∈ ℕ)
14 fourierdlem54.q . . . . . . . . . . . . 13 (𝜑𝑄 ∈ (𝑃𝑀))
1512, 13, 14fourierdlem11 42269 . . . . . . . . . . . 12 (𝜑 → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵))
1615simp1d 1136 . . . . . . . . . . 11 (𝜑𝐴 ∈ ℝ)
1715simp2d 1137 . . . . . . . . . . 11 (𝜑𝐵 ∈ ℝ)
1815simp3d 1138 . . . . . . . . . . 11 (𝜑𝐴 < 𝐵)
19 fourierdlem54.t . . . . . . . . . . 11 𝑇 = (𝐵𝐴)
2012, 13, 14fourierdlem15 42273 . . . . . . . . . . . 12 (𝜑𝑄:(0...𝑀)⟶(𝐴[,]𝐵))
21 frn 6517 . . . . . . . . . . . 12 (𝑄:(0...𝑀)⟶(𝐴[,]𝐵) → ran 𝑄 ⊆ (𝐴[,]𝐵))
2220, 21syl 17 . . . . . . . . . . 11 (𝜑 → ran 𝑄 ⊆ (𝐴[,]𝐵))
2312fourierdlem2 42260 . . . . . . . . . . . . . . . . 17 (𝑀 ∈ ℕ → (𝑄 ∈ (𝑃𝑀) ↔ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((𝑄‘0) = 𝐴 ∧ (𝑄𝑀) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1))))))
2413, 23syl 17 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑄 ∈ (𝑃𝑀) ↔ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((𝑄‘0) = 𝐴 ∧ (𝑄𝑀) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1))))))
2514, 24mpbid 233 . . . . . . . . . . . . . . 15 (𝜑 → (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((𝑄‘0) = 𝐴 ∧ (𝑄𝑀) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1)))))
2625simpld 495 . . . . . . . . . . . . . 14 (𝜑𝑄 ∈ (ℝ ↑m (0...𝑀)))
27 elmapi 8418 . . . . . . . . . . . . . 14 (𝑄 ∈ (ℝ ↑m (0...𝑀)) → 𝑄:(0...𝑀)⟶ℝ)
28 ffn 6511 . . . . . . . . . . . . . 14 (𝑄:(0...𝑀)⟶ℝ → 𝑄 Fn (0...𝑀))
2926, 27, 283syl 18 . . . . . . . . . . . . 13 (𝜑𝑄 Fn (0...𝑀))
30 fzfid 13331 . . . . . . . . . . . . 13 (𝜑 → (0...𝑀) ∈ Fin)
31 fnfi 8785 . . . . . . . . . . . . 13 ((𝑄 Fn (0...𝑀) ∧ (0...𝑀) ∈ Fin) → 𝑄 ∈ Fin)
3229, 30, 31syl2anc 584 . . . . . . . . . . . 12 (𝜑𝑄 ∈ Fin)
33 rnfi 8796 . . . . . . . . . . . 12 (𝑄 ∈ Fin → ran 𝑄 ∈ Fin)
3432, 33syl 17 . . . . . . . . . . 11 (𝜑 → ran 𝑄 ∈ Fin)
3525simprd 496 . . . . . . . . . . . . . 14 (𝜑 → (((𝑄‘0) = 𝐴 ∧ (𝑄𝑀) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1))))
3635simpld 495 . . . . . . . . . . . . 13 (𝜑 → ((𝑄‘0) = 𝐴 ∧ (𝑄𝑀) = 𝐵))
3736simpld 495 . . . . . . . . . . . 12 (𝜑 → (𝑄‘0) = 𝐴)
3813nnnn0d 11944 . . . . . . . . . . . . . . 15 (𝜑𝑀 ∈ ℕ0)
39 nn0uz 12269 . . . . . . . . . . . . . . 15 0 = (ℤ‘0)
4038, 39syl6eleq 2928 . . . . . . . . . . . . . 14 (𝜑𝑀 ∈ (ℤ‘0))
41 eluzfz1 12904 . . . . . . . . . . . . . 14 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
4240, 41syl 17 . . . . . . . . . . . . 13 (𝜑 → 0 ∈ (0...𝑀))
43 fnfvelrn 6844 . . . . . . . . . . . . 13 ((𝑄 Fn (0...𝑀) ∧ 0 ∈ (0...𝑀)) → (𝑄‘0) ∈ ran 𝑄)
4429, 42, 43syl2anc 584 . . . . . . . . . . . 12 (𝜑 → (𝑄‘0) ∈ ran 𝑄)
4537, 44eqeltrrd 2919 . . . . . . . . . . 11 (𝜑𝐴 ∈ ran 𝑄)
4636simprd 496 . . . . . . . . . . . 12 (𝜑 → (𝑄𝑀) = 𝐵)
47 eluzfz2 12905 . . . . . . . . . . . . . 14 (𝑀 ∈ (ℤ‘0) → 𝑀 ∈ (0...𝑀))
4840, 47syl 17 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ (0...𝑀))
49 fnfvelrn 6844 . . . . . . . . . . . . 13 ((𝑄 Fn (0...𝑀) ∧ 𝑀 ∈ (0...𝑀)) → (𝑄𝑀) ∈ ran 𝑄)
5029, 48, 49syl2anc 584 . . . . . . . . . . . 12 (𝜑 → (𝑄𝑀) ∈ ran 𝑄)
5146, 50eqeltrrd 2919 . . . . . . . . . . 11 (𝜑𝐵 ∈ ran 𝑄)
52 eqid 2826 . . . . . . . . . . 11 (abs ∘ − ) = (abs ∘ − )
53 eqid 2826 . . . . . . . . . . 11 ((ran 𝑄 × ran 𝑄) ∖ I ) = ((ran 𝑄 × ran 𝑄) ∖ I )
54 eqid 2826 . . . . . . . . . . 11 ran ((abs ∘ − ) ↾ ((ran 𝑄 × ran 𝑄) ∖ I )) = ran ((abs ∘ − ) ↾ ((ran 𝑄 × ran 𝑄) ∖ I ))
55 eqid 2826 . . . . . . . . . . 11 inf(ran ((abs ∘ − ) ↾ ((ran 𝑄 × ran 𝑄) ∖ I )), ℝ, < ) = inf(ran ((abs ∘ − ) ↾ ((ran 𝑄 × ran 𝑄) ∖ I )), ℝ, < )
56 fourierdlem54.d . . . . . . . . . . 11 (𝜑𝐷 ∈ ℝ)
57 eqid 2826 . . . . . . . . . . 11 (topGen‘ran (,)) = (topGen‘ran (,))
58 eqid 2826 . . . . . . . . . . 11 ((topGen‘ran (,)) ↾t (𝐶[,]𝐷)) = ((topGen‘ran (,)) ↾t (𝐶[,]𝐷))
59 oveq1 7155 . . . . . . . . . . . . . 14 (𝑥 = 𝑤 → (𝑥 + (𝑘 · 𝑇)) = (𝑤 + (𝑘 · 𝑇)))
6059eleq1d 2902 . . . . . . . . . . . . 13 (𝑥 = 𝑤 → ((𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄 ↔ (𝑤 + (𝑘 · 𝑇)) ∈ ran 𝑄))
6160rexbidv 3302 . . . . . . . . . . . 12 (𝑥 = 𝑤 → (∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄 ↔ ∃𝑘 ∈ ℤ (𝑤 + (𝑘 · 𝑇)) ∈ ran 𝑄))
6261cbvrabv 3497 . . . . . . . . . . 11 {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄} = {𝑤 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑤 + (𝑘 · 𝑇)) ∈ ran 𝑄}
63 oveq1 7155 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑗 → (𝑖 · 𝑇) = (𝑗 · 𝑇))
6463oveq2d 7164 . . . . . . . . . . . . . . 15 (𝑖 = 𝑗 → (𝑦 + (𝑖 · 𝑇)) = (𝑦 + (𝑗 · 𝑇)))
6564eleq1d 2902 . . . . . . . . . . . . . 14 (𝑖 = 𝑗 → ((𝑦 + (𝑖 · 𝑇)) ∈ ran 𝑄 ↔ (𝑦 + (𝑗 · 𝑇)) ∈ ran 𝑄))
6665anbi1d 629 . . . . . . . . . . . . 13 (𝑖 = 𝑗 → (((𝑦 + (𝑖 · 𝑇)) ∈ ran 𝑄 ∧ (𝑧 + (𝑙 · 𝑇)) ∈ ran 𝑄) ↔ ((𝑦 + (𝑗 · 𝑇)) ∈ ran 𝑄 ∧ (𝑧 + (𝑙 · 𝑇)) ∈ ran 𝑄)))
67 oveq1 7155 . . . . . . . . . . . . . . . 16 (𝑙 = 𝑘 → (𝑙 · 𝑇) = (𝑘 · 𝑇))
6867oveq2d 7164 . . . . . . . . . . . . . . 15 (𝑙 = 𝑘 → (𝑧 + (𝑙 · 𝑇)) = (𝑧 + (𝑘 · 𝑇)))
6968eleq1d 2902 . . . . . . . . . . . . . 14 (𝑙 = 𝑘 → ((𝑧 + (𝑙 · 𝑇)) ∈ ran 𝑄 ↔ (𝑧 + (𝑘 · 𝑇)) ∈ ran 𝑄))
7069anbi2d 628 . . . . . . . . . . . . 13 (𝑙 = 𝑘 → (((𝑦 + (𝑗 · 𝑇)) ∈ ran 𝑄 ∧ (𝑧 + (𝑙 · 𝑇)) ∈ ran 𝑄) ↔ ((𝑦 + (𝑗 · 𝑇)) ∈ ran 𝑄 ∧ (𝑧 + (𝑘 · 𝑇)) ∈ ran 𝑄)))
7166, 70cbvrex2v 3471 . . . . . . . . . . . 12 (∃𝑖 ∈ ℤ ∃𝑙 ∈ ℤ ((𝑦 + (𝑖 · 𝑇)) ∈ ran 𝑄 ∧ (𝑧 + (𝑙 · 𝑇)) ∈ ran 𝑄) ↔ ∃𝑗 ∈ ℤ ∃𝑘 ∈ ℤ ((𝑦 + (𝑗 · 𝑇)) ∈ ran 𝑄 ∧ (𝑧 + (𝑘 · 𝑇)) ∈ ran 𝑄))
7271anbi2i 622 . . . . . . . . . . 11 (((𝜑 ∧ (𝑦 ∈ ℝ ∧ 𝑧 ∈ ℝ ∧ 𝑦 < 𝑧)) ∧ ∃𝑖 ∈ ℤ ∃𝑙 ∈ ℤ ((𝑦 + (𝑖 · 𝑇)) ∈ ran 𝑄 ∧ (𝑧 + (𝑙 · 𝑇)) ∈ ran 𝑄)) ↔ ((𝜑 ∧ (𝑦 ∈ ℝ ∧ 𝑧 ∈ ℝ ∧ 𝑦 < 𝑧)) ∧ ∃𝑗 ∈ ℤ ∃𝑘 ∈ ℤ ((𝑦 + (𝑗 · 𝑇)) ∈ ran 𝑄 ∧ (𝑧 + (𝑘 · 𝑇)) ∈ ran 𝑄)))
7316, 17, 18, 19, 22, 34, 45, 51, 52, 53, 54, 55, 4, 56, 57, 58, 62, 72fourierdlem42 42300 . . . . . . . . . 10 (𝜑 → {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄} ∈ Fin)
74 unfi 8774 . . . . . . . . . 10 (({𝐶, 𝐷} ∈ Fin ∧ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄} ∈ Fin) → ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}) ∈ Fin)
7511, 73, 74sylancr 587 . . . . . . . . 9 (𝜑 → ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}) ∈ Fin)
768, 75eqeltrid 2922 . . . . . . . 8 (𝜑𝐻 ∈ Fin)
77 hashnncl 13717 . . . . . . . 8 (𝐻 ∈ Fin → ((♯‘𝐻) ∈ ℕ ↔ 𝐻 ≠ ∅))
7876, 77syl 17 . . . . . . 7 (𝜑 → ((♯‘𝐻) ∈ ℕ ↔ 𝐻 ≠ ∅))
7910, 78mpbird 258 . . . . . 6 (𝜑 → (♯‘𝐻) ∈ ℕ)
8079nnzd 12075 . . . . 5 (𝜑 → (♯‘𝐻) ∈ ℤ)
81 fourierdlem54.cd . . . . . . . . 9 (𝜑𝐶 < 𝐷)
824, 81ltned 10765 . . . . . . . 8 (𝜑𝐶𝐷)
83 hashprg 13746 . . . . . . . . 9 ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) → (𝐶𝐷 ↔ (♯‘{𝐶, 𝐷}) = 2))
844, 56, 83syl2anc 584 . . . . . . . 8 (𝜑 → (𝐶𝐷 ↔ (♯‘{𝐶, 𝐷}) = 2))
8582, 84mpbid 233 . . . . . . 7 (𝜑 → (♯‘{𝐶, 𝐷}) = 2)
8685eqcomd 2832 . . . . . 6 (𝜑 → 2 = (♯‘{𝐶, 𝐷}))
87 ssun1 4152 . . . . . . . . 9 {𝐶, 𝐷} ⊆ ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄})
8887a1i 11 . . . . . . . 8 (𝜑 → {𝐶, 𝐷} ⊆ ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}))
8988, 8sseqtrrdi 4022 . . . . . . 7 (𝜑 → {𝐶, 𝐷} ⊆ 𝐻)
90 hashssle 41430 . . . . . . 7 ((𝐻 ∈ Fin ∧ {𝐶, 𝐷} ⊆ 𝐻) → (♯‘{𝐶, 𝐷}) ≤ (♯‘𝐻))
9176, 89, 90syl2anc 584 . . . . . 6 (𝜑 → (♯‘{𝐶, 𝐷}) ≤ (♯‘𝐻))
9286, 91eqbrtrd 5085 . . . . 5 (𝜑 → 2 ≤ (♯‘𝐻))
93 eluz2 12238 . . . . 5 ((♯‘𝐻) ∈ (ℤ‘2) ↔ (2 ∈ ℤ ∧ (♯‘𝐻) ∈ ℤ ∧ 2 ≤ (♯‘𝐻)))
943, 80, 92, 93syl3anbrc 1337 . . . 4 (𝜑 → (♯‘𝐻) ∈ (ℤ‘2))
95 uz2m1nn 12312 . . . 4 ((♯‘𝐻) ∈ (ℤ‘2) → ((♯‘𝐻) − 1) ∈ ℕ)
9694, 95syl 17 . . 3 (𝜑 → ((♯‘𝐻) − 1) ∈ ℕ)
971, 96eqeltrid 2922 . 2 (𝜑𝑁 ∈ ℕ)
98 prssg 4751 . . . . . . . . . . . . 13 ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) → ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) ↔ {𝐶, 𝐷} ⊆ ℝ))
994, 56, 98syl2anc 584 . . . . . . . . . . . 12 (𝜑 → ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) ↔ {𝐶, 𝐷} ⊆ ℝ))
1004, 56, 99mpbi2and 708 . . . . . . . . . . 11 (𝜑 → {𝐶, 𝐷} ⊆ ℝ)
101 ssrab2 4060 . . . . . . . . . . . 12 {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄} ⊆ (𝐶[,]𝐷)
1024, 56iccssred 41645 . . . . . . . . . . . 12 (𝜑 → (𝐶[,]𝐷) ⊆ ℝ)
103101, 102sstrid 3982 . . . . . . . . . . 11 (𝜑 → {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄} ⊆ ℝ)
104100, 103unssd 4166 . . . . . . . . . 10 (𝜑 → ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}) ⊆ ℝ)
1058, 104eqsstrid 4019 . . . . . . . . 9 (𝜑𝐻 ⊆ ℝ)
106 fourierdlem54.s . . . . . . . . 9 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
10776, 105, 106, 1fourierdlem36 42294 . . . . . . . 8 (𝜑𝑆 Isom < , < ((0...𝑁), 𝐻))
108 df-isom 6361 . . . . . . . 8 (𝑆 Isom < , < ((0...𝑁), 𝐻) ↔ (𝑆:(0...𝑁)–1-1-onto𝐻 ∧ ∀𝑥 ∈ (0...𝑁)∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦))))
109107, 108sylib 219 . . . . . . 7 (𝜑 → (𝑆:(0...𝑁)–1-1-onto𝐻 ∧ ∀𝑥 ∈ (0...𝑁)∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦))))
110109simpld 495 . . . . . 6 (𝜑𝑆:(0...𝑁)–1-1-onto𝐻)
111 f1of 6612 . . . . . 6 (𝑆:(0...𝑁)–1-1-onto𝐻𝑆:(0...𝑁)⟶𝐻)
112110, 111syl 17 . . . . 5 (𝜑𝑆:(0...𝑁)⟶𝐻)
113112, 105fssd 6525 . . . 4 (𝜑𝑆:(0...𝑁)⟶ℝ)
114 reex 10617 . . . . 5 ℝ ∈ V
115 ovex 7181 . . . . . 6 (0...𝑁) ∈ V
116115a1i 11 . . . . 5 (𝜑 → (0...𝑁) ∈ V)
117 elmapg 8409 . . . . 5 ((ℝ ∈ V ∧ (0...𝑁) ∈ V) → (𝑆 ∈ (ℝ ↑m (0...𝑁)) ↔ 𝑆:(0...𝑁)⟶ℝ))
118114, 116, 117sylancr 587 . . . 4 (𝜑 → (𝑆 ∈ (ℝ ↑m (0...𝑁)) ↔ 𝑆:(0...𝑁)⟶ℝ))
119113, 118mpbird 258 . . 3 (𝜑𝑆 ∈ (ℝ ↑m (0...𝑁)))
120 df-f1o 6359 . . . . . . . . . . 11 (𝑆:(0...𝑁)–1-1-onto𝐻 ↔ (𝑆:(0...𝑁)–1-1𝐻𝑆:(0...𝑁)–onto𝐻))
121110, 120sylib 219 . . . . . . . . . 10 (𝜑 → (𝑆:(0...𝑁)–1-1𝐻𝑆:(0...𝑁)–onto𝐻))
122121simprd 496 . . . . . . . . 9 (𝜑𝑆:(0...𝑁)–onto𝐻)
123 dffo3 6864 . . . . . . . . 9 (𝑆:(0...𝑁)–onto𝐻 ↔ (𝑆:(0...𝑁)⟶𝐻 ∧ ∀𝐻𝑦 ∈ (0...𝑁) = (𝑆𝑦)))
124122, 123sylib 219 . . . . . . . 8 (𝜑 → (𝑆:(0...𝑁)⟶𝐻 ∧ ∀𝐻𝑦 ∈ (0...𝑁) = (𝑆𝑦)))
125124simprd 496 . . . . . . 7 (𝜑 → ∀𝐻𝑦 ∈ (0...𝑁) = (𝑆𝑦))
126 eqeq1 2830 . . . . . . . . . 10 ( = 𝐶 → ( = (𝑆𝑦) ↔ 𝐶 = (𝑆𝑦)))
127 eqcom 2833 . . . . . . . . . 10 (𝐶 = (𝑆𝑦) ↔ (𝑆𝑦) = 𝐶)
128126, 127syl6bb 288 . . . . . . . . 9 ( = 𝐶 → ( = (𝑆𝑦) ↔ (𝑆𝑦) = 𝐶))
129128rexbidv 3302 . . . . . . . 8 ( = 𝐶 → (∃𝑦 ∈ (0...𝑁) = (𝑆𝑦) ↔ ∃𝑦 ∈ (0...𝑁)(𝑆𝑦) = 𝐶))
130129rspcv 3622 . . . . . . 7 (𝐶𝐻 → (∀𝐻𝑦 ∈ (0...𝑁) = (𝑆𝑦) → ∃𝑦 ∈ (0...𝑁)(𝑆𝑦) = 𝐶))
1319, 125, 130sylc 65 . . . . . 6 (𝜑 → ∃𝑦 ∈ (0...𝑁)(𝑆𝑦) = 𝐶)
132 fveq2 6667 . . . . . . . . . . . . . 14 (𝑦 = 0 → (𝑆𝑦) = (𝑆‘0))
133132eqcomd 2832 . . . . . . . . . . . . 13 (𝑦 = 0 → (𝑆‘0) = (𝑆𝑦))
134133adantl 482 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑆𝑦) = 𝐶) ∧ 𝑦 = 0) → (𝑆‘0) = (𝑆𝑦))
135 simplr 765 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑆𝑦) = 𝐶) ∧ 𝑦 = 0) → (𝑆𝑦) = 𝐶)
136134, 135eqtrd 2861 . . . . . . . . . . 11 (((𝜑 ∧ (𝑆𝑦) = 𝐶) ∧ 𝑦 = 0) → (𝑆‘0) = 𝐶)
1374ad2antrr 722 . . . . . . . . . . 11 (((𝜑 ∧ (𝑆𝑦) = 𝐶) ∧ 𝑦 = 0) → 𝐶 ∈ ℝ)
138136, 137eqeltrd 2918 . . . . . . . . . 10 (((𝜑 ∧ (𝑆𝑦) = 𝐶) ∧ 𝑦 = 0) → (𝑆‘0) ∈ ℝ)
139138, 136eqled 10732 . . . . . . . . 9 (((𝜑 ∧ (𝑆𝑦) = 𝐶) ∧ 𝑦 = 0) → (𝑆‘0) ≤ 𝐶)
1401393adantl2 1161 . . . . . . . 8 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ 𝑦 = 0) → (𝑆‘0) ≤ 𝐶)
1414rexrd 10680 . . . . . . . . . . . . . . . . 17 (𝜑𝐶 ∈ ℝ*)
14256rexrd 10680 . . . . . . . . . . . . . . . . 17 (𝜑𝐷 ∈ ℝ*)
1434, 56, 81ltled 10777 . . . . . . . . . . . . . . . . 17 (𝜑𝐶𝐷)
144 lbicc2 12842 . . . . . . . . . . . . . . . . 17 ((𝐶 ∈ ℝ*𝐷 ∈ ℝ*𝐶𝐷) → 𝐶 ∈ (𝐶[,]𝐷))
145141, 142, 143, 144syl3anc 1365 . . . . . . . . . . . . . . . 16 (𝜑𝐶 ∈ (𝐶[,]𝐷))
146 ubicc2 12843 . . . . . . . . . . . . . . . . 17 ((𝐶 ∈ ℝ*𝐷 ∈ ℝ*𝐶𝐷) → 𝐷 ∈ (𝐶[,]𝐷))
147141, 142, 143, 146syl3anc 1365 . . . . . . . . . . . . . . . 16 (𝜑𝐷 ∈ (𝐶[,]𝐷))
148 prssg 4751 . . . . . . . . . . . . . . . . 17 ((𝐶 ∈ (𝐶[,]𝐷) ∧ 𝐷 ∈ (𝐶[,]𝐷)) → ((𝐶 ∈ (𝐶[,]𝐷) ∧ 𝐷 ∈ (𝐶[,]𝐷)) ↔ {𝐶, 𝐷} ⊆ (𝐶[,]𝐷)))
149145, 147, 148syl2anc 584 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐶 ∈ (𝐶[,]𝐷) ∧ 𝐷 ∈ (𝐶[,]𝐷)) ↔ {𝐶, 𝐷} ⊆ (𝐶[,]𝐷)))
150145, 147, 149mpbi2and 708 . . . . . . . . . . . . . . 15 (𝜑 → {𝐶, 𝐷} ⊆ (𝐶[,]𝐷))
151101a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄} ⊆ (𝐶[,]𝐷))
152150, 151unssd 4166 . . . . . . . . . . . . . 14 (𝜑 → ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}) ⊆ (𝐶[,]𝐷))
1538, 152eqsstrid 4019 . . . . . . . . . . . . 13 (𝜑𝐻 ⊆ (𝐶[,]𝐷))
154 nnm1nn0 11927 . . . . . . . . . . . . . . . . . 18 ((♯‘𝐻) ∈ ℕ → ((♯‘𝐻) − 1) ∈ ℕ0)
15579, 154syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → ((♯‘𝐻) − 1) ∈ ℕ0)
1561, 155eqeltrid 2922 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ ℕ0)
157156, 39syl6eleq 2928 . . . . . . . . . . . . . . 15 (𝜑𝑁 ∈ (ℤ‘0))
158 eluzfz1 12904 . . . . . . . . . . . . . . 15 (𝑁 ∈ (ℤ‘0) → 0 ∈ (0...𝑁))
159157, 158syl 17 . . . . . . . . . . . . . 14 (𝜑 → 0 ∈ (0...𝑁))
160112, 159ffvelrnd 6848 . . . . . . . . . . . . 13 (𝜑 → (𝑆‘0) ∈ 𝐻)
161153, 160sseldd 3972 . . . . . . . . . . . 12 (𝜑 → (𝑆‘0) ∈ (𝐶[,]𝐷))
162102, 161sseldd 3972 . . . . . . . . . . 11 (𝜑 → (𝑆‘0) ∈ ℝ)
163162adantr 481 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑦 = 0) → (𝑆‘0) ∈ ℝ)
1641633ad2antl1 1179 . . . . . . . . 9 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → (𝑆‘0) ∈ ℝ)
1654adantr 481 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑦 = 0) → 𝐶 ∈ ℝ)
1661653ad2antl1 1179 . . . . . . . . 9 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → 𝐶 ∈ ℝ)
167 elfzelz 12898 . . . . . . . . . . . . . . 15 (𝑦 ∈ (0...𝑁) → 𝑦 ∈ ℤ)
168167zred 12076 . . . . . . . . . . . . . 14 (𝑦 ∈ (0...𝑁) → 𝑦 ∈ ℝ)
169168adantr 481 . . . . . . . . . . . . 13 ((𝑦 ∈ (0...𝑁) ∧ ¬ 𝑦 = 0) → 𝑦 ∈ ℝ)
170 elfzle1 12900 . . . . . . . . . . . . . 14 (𝑦 ∈ (0...𝑁) → 0 ≤ 𝑦)
171170adantr 481 . . . . . . . . . . . . 13 ((𝑦 ∈ (0...𝑁) ∧ ¬ 𝑦 = 0) → 0 ≤ 𝑦)
172 neqne 3029 . . . . . . . . . . . . . 14 𝑦 = 0 → 𝑦 ≠ 0)
173172adantl 482 . . . . . . . . . . . . 13 ((𝑦 ∈ (0...𝑁) ∧ ¬ 𝑦 = 0) → 𝑦 ≠ 0)
174169, 171, 173ne0gt0d 10766 . . . . . . . . . . . 12 ((𝑦 ∈ (0...𝑁) ∧ ¬ 𝑦 = 0) → 0 < 𝑦)
1751743ad2antl2 1180 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → 0 < 𝑦)
176 simpl1 1185 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → 𝜑)
177 simpl2 1186 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → 𝑦 ∈ (0...𝑁))
178109simprd 496 . . . . . . . . . . . . . 14 (𝜑 → ∀𝑥 ∈ (0...𝑁)∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)))
179 breq1 5066 . . . . . . . . . . . . . . . . 17 (𝑥 = 0 → (𝑥 < 𝑦 ↔ 0 < 𝑦))
180 fveq2 6667 . . . . . . . . . . . . . . . . . 18 (𝑥 = 0 → (𝑆𝑥) = (𝑆‘0))
181180breq1d 5073 . . . . . . . . . . . . . . . . 17 (𝑥 = 0 → ((𝑆𝑥) < (𝑆𝑦) ↔ (𝑆‘0) < (𝑆𝑦)))
182179, 181bibi12d 347 . . . . . . . . . . . . . . . 16 (𝑥 = 0 → ((𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) ↔ (0 < 𝑦 ↔ (𝑆‘0) < (𝑆𝑦))))
183182ralbidv 3202 . . . . . . . . . . . . . . 15 (𝑥 = 0 → (∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) ↔ ∀𝑦 ∈ (0...𝑁)(0 < 𝑦 ↔ (𝑆‘0) < (𝑆𝑦))))
184183rspcv 3622 . . . . . . . . . . . . . 14 (0 ∈ (0...𝑁) → (∀𝑥 ∈ (0...𝑁)∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) → ∀𝑦 ∈ (0...𝑁)(0 < 𝑦 ↔ (𝑆‘0) < (𝑆𝑦))))
185159, 178, 184sylc 65 . . . . . . . . . . . . 13 (𝜑 → ∀𝑦 ∈ (0...𝑁)(0 < 𝑦 ↔ (𝑆‘0) < (𝑆𝑦)))
186185r19.21bi 3213 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (0...𝑁)) → (0 < 𝑦 ↔ (𝑆‘0) < (𝑆𝑦)))
187176, 177, 186syl2anc 584 . . . . . . . . . . 11 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → (0 < 𝑦 ↔ (𝑆‘0) < (𝑆𝑦)))
188175, 187mpbid 233 . . . . . . . . . 10 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → (𝑆‘0) < (𝑆𝑦))
189 simpl3 1187 . . . . . . . . . 10 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → (𝑆𝑦) = 𝐶)
190188, 189breqtrd 5089 . . . . . . . . 9 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → (𝑆‘0) < 𝐶)
191164, 166, 190ltled 10777 . . . . . . . 8 (((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) ∧ ¬ 𝑦 = 0) → (𝑆‘0) ≤ 𝐶)
192140, 191pm2.61dan 809 . . . . . . 7 ((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐶) → (𝑆‘0) ≤ 𝐶)
193192rexlimdv3a 3291 . . . . . 6 (𝜑 → (∃𝑦 ∈ (0...𝑁)(𝑆𝑦) = 𝐶 → (𝑆‘0) ≤ 𝐶))
194131, 193mpd 15 . . . . 5 (𝜑 → (𝑆‘0) ≤ 𝐶)
195 elicc2 12791 . . . . . . . 8 ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) → ((𝑆‘0) ∈ (𝐶[,]𝐷) ↔ ((𝑆‘0) ∈ ℝ ∧ 𝐶 ≤ (𝑆‘0) ∧ (𝑆‘0) ≤ 𝐷)))
1964, 56, 195syl2anc 584 . . . . . . 7 (𝜑 → ((𝑆‘0) ∈ (𝐶[,]𝐷) ↔ ((𝑆‘0) ∈ ℝ ∧ 𝐶 ≤ (𝑆‘0) ∧ (𝑆‘0) ≤ 𝐷)))
197161, 196mpbid 233 . . . . . 6 (𝜑 → ((𝑆‘0) ∈ ℝ ∧ 𝐶 ≤ (𝑆‘0) ∧ (𝑆‘0) ≤ 𝐷))
198197simp2d 1137 . . . . 5 (𝜑𝐶 ≤ (𝑆‘0))
199162, 4letri3d 10771 . . . . 5 (𝜑 → ((𝑆‘0) = 𝐶 ↔ ((𝑆‘0) ≤ 𝐶𝐶 ≤ (𝑆‘0))))
200194, 198, 199mpbir2and 709 . . . 4 (𝜑 → (𝑆‘0) = 𝐶)
201 eluzfz2 12905 . . . . . . . . . 10 (𝑁 ∈ (ℤ‘0) → 𝑁 ∈ (0...𝑁))
202157, 201syl 17 . . . . . . . . 9 (𝜑𝑁 ∈ (0...𝑁))
203112, 202ffvelrnd 6848 . . . . . . . 8 (𝜑 → (𝑆𝑁) ∈ 𝐻)
204153, 203sseldd 3972 . . . . . . 7 (𝜑 → (𝑆𝑁) ∈ (𝐶[,]𝐷))
205 elicc2 12791 . . . . . . . 8 ((𝐶 ∈ ℝ ∧ 𝐷 ∈ ℝ) → ((𝑆𝑁) ∈ (𝐶[,]𝐷) ↔ ((𝑆𝑁) ∈ ℝ ∧ 𝐶 ≤ (𝑆𝑁) ∧ (𝑆𝑁) ≤ 𝐷)))
2064, 56, 205syl2anc 584 . . . . . . 7 (𝜑 → ((𝑆𝑁) ∈ (𝐶[,]𝐷) ↔ ((𝑆𝑁) ∈ ℝ ∧ 𝐶 ≤ (𝑆𝑁) ∧ (𝑆𝑁) ≤ 𝐷)))
207204, 206mpbid 233 . . . . . 6 (𝜑 → ((𝑆𝑁) ∈ ℝ ∧ 𝐶 ≤ (𝑆𝑁) ∧ (𝑆𝑁) ≤ 𝐷))
208207simp3d 1138 . . . . 5 (𝜑 → (𝑆𝑁) ≤ 𝐷)
209 prid2g 4696 . . . . . . . . 9 (𝐷 ∈ ℝ → 𝐷 ∈ {𝐶, 𝐷})
210 elun1 4156 . . . . . . . . 9 (𝐷 ∈ {𝐶, 𝐷} → 𝐷 ∈ ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}))
21156, 209, 2103syl 18 . . . . . . . 8 (𝜑𝐷 ∈ ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}))
212211, 8syl6eleqr 2929 . . . . . . 7 (𝜑𝐷𝐻)
213 eqeq1 2830 . . . . . . . . . 10 ( = 𝐷 → ( = (𝑆𝑦) ↔ 𝐷 = (𝑆𝑦)))
214 eqcom 2833 . . . . . . . . . 10 (𝐷 = (𝑆𝑦) ↔ (𝑆𝑦) = 𝐷)
215213, 214syl6bb 288 . . . . . . . . 9 ( = 𝐷 → ( = (𝑆𝑦) ↔ (𝑆𝑦) = 𝐷))
216215rexbidv 3302 . . . . . . . 8 ( = 𝐷 → (∃𝑦 ∈ (0...𝑁) = (𝑆𝑦) ↔ ∃𝑦 ∈ (0...𝑁)(𝑆𝑦) = 𝐷))
217216rspcv 3622 . . . . . . 7 (𝐷𝐻 → (∀𝐻𝑦 ∈ (0...𝑁) = (𝑆𝑦) → ∃𝑦 ∈ (0...𝑁)(𝑆𝑦) = 𝐷))
218212, 125, 217sylc 65 . . . . . 6 (𝜑 → ∃𝑦 ∈ (0...𝑁)(𝑆𝑦) = 𝐷)
219214biimpri 229 . . . . . . . . 9 ((𝑆𝑦) = 𝐷𝐷 = (𝑆𝑦))
2202193ad2ant3 1129 . . . . . . . 8 ((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐷) → 𝐷 = (𝑆𝑦))
221113ffvelrnda 6847 . . . . . . . . . 10 ((𝜑𝑦 ∈ (0...𝑁)) → (𝑆𝑦) ∈ ℝ)
222102, 204sseldd 3972 . . . . . . . . . . 11 (𝜑 → (𝑆𝑁) ∈ ℝ)
223222adantr 481 . . . . . . . . . 10 ((𝜑𝑦 ∈ (0...𝑁)) → (𝑆𝑁) ∈ ℝ)
224168adantl 482 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (0...𝑁)) → 𝑦 ∈ ℝ)
225 elfzel2 12896 . . . . . . . . . . . . . 14 (𝑦 ∈ (0...𝑁) → 𝑁 ∈ ℤ)
226225zred 12076 . . . . . . . . . . . . 13 (𝑦 ∈ (0...𝑁) → 𝑁 ∈ ℝ)
227226adantl 482 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (0...𝑁)) → 𝑁 ∈ ℝ)
228 elfzle2 12901 . . . . . . . . . . . . 13 (𝑦 ∈ (0...𝑁) → 𝑦𝑁)
229228adantl 482 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ (0...𝑁)) → 𝑦𝑁)
230224, 227, 229lensymd 10780 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (0...𝑁)) → ¬ 𝑁 < 𝑦)
231 breq1 5066 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑁 → (𝑥 < 𝑦𝑁 < 𝑦))
232 fveq2 6667 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑁 → (𝑆𝑥) = (𝑆𝑁))
233232breq1d 5073 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑁 → ((𝑆𝑥) < (𝑆𝑦) ↔ (𝑆𝑁) < (𝑆𝑦)))
234231, 233bibi12d 347 . . . . . . . . . . . . . . 15 (𝑥 = 𝑁 → ((𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) ↔ (𝑁 < 𝑦 ↔ (𝑆𝑁) < (𝑆𝑦))))
235234ralbidv 3202 . . . . . . . . . . . . . 14 (𝑥 = 𝑁 → (∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) ↔ ∀𝑦 ∈ (0...𝑁)(𝑁 < 𝑦 ↔ (𝑆𝑁) < (𝑆𝑦))))
236235rspcv 3622 . . . . . . . . . . . . 13 (𝑁 ∈ (0...𝑁) → (∀𝑥 ∈ (0...𝑁)∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) → ∀𝑦 ∈ (0...𝑁)(𝑁 < 𝑦 ↔ (𝑆𝑁) < (𝑆𝑦))))
237202, 178, 236sylc 65 . . . . . . . . . . . 12 (𝜑 → ∀𝑦 ∈ (0...𝑁)(𝑁 < 𝑦 ↔ (𝑆𝑁) < (𝑆𝑦)))
238237r19.21bi 3213 . . . . . . . . . . 11 ((𝜑𝑦 ∈ (0...𝑁)) → (𝑁 < 𝑦 ↔ (𝑆𝑁) < (𝑆𝑦)))
239230, 238mtbid 325 . . . . . . . . . 10 ((𝜑𝑦 ∈ (0...𝑁)) → ¬ (𝑆𝑁) < (𝑆𝑦))
240221, 223, 239nltled 10779 . . . . . . . . 9 ((𝜑𝑦 ∈ (0...𝑁)) → (𝑆𝑦) ≤ (𝑆𝑁))
2412403adant3 1126 . . . . . . . 8 ((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐷) → (𝑆𝑦) ≤ (𝑆𝑁))
242220, 241eqbrtrd 5085 . . . . . . 7 ((𝜑𝑦 ∈ (0...𝑁) ∧ (𝑆𝑦) = 𝐷) → 𝐷 ≤ (𝑆𝑁))
243242rexlimdv3a 3291 . . . . . 6 (𝜑 → (∃𝑦 ∈ (0...𝑁)(𝑆𝑦) = 𝐷𝐷 ≤ (𝑆𝑁)))
244218, 243mpd 15 . . . . 5 (𝜑𝐷 ≤ (𝑆𝑁))
245222, 56letri3d 10771 . . . . 5 (𝜑 → ((𝑆𝑁) = 𝐷 ↔ ((𝑆𝑁) ≤ 𝐷𝐷 ≤ (𝑆𝑁))))
246208, 244, 245mpbir2and 709 . . . 4 (𝜑 → (𝑆𝑁) = 𝐷)
247 elfzoelz 13028 . . . . . . . . 9 (𝑖 ∈ (0..^𝑁) → 𝑖 ∈ ℤ)
248247zred 12076 . . . . . . . 8 (𝑖 ∈ (0..^𝑁) → 𝑖 ∈ ℝ)
249248ltp1d 11559 . . . . . . 7 (𝑖 ∈ (0..^𝑁) → 𝑖 < (𝑖 + 1))
250249adantl 482 . . . . . 6 ((𝜑𝑖 ∈ (0..^𝑁)) → 𝑖 < (𝑖 + 1))
251178adantr 481 . . . . . . 7 ((𝜑𝑖 ∈ (0..^𝑁)) → ∀𝑥 ∈ (0...𝑁)∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)))
252 elfzofz 13043 . . . . . . . . 9 (𝑖 ∈ (0..^𝑁) → 𝑖 ∈ (0...𝑁))
253252adantl 482 . . . . . . . 8 ((𝜑𝑖 ∈ (0..^𝑁)) → 𝑖 ∈ (0...𝑁))
254 fzofzp1 13124 . . . . . . . . 9 (𝑖 ∈ (0..^𝑁) → (𝑖 + 1) ∈ (0...𝑁))
255254adantl 482 . . . . . . . 8 ((𝜑𝑖 ∈ (0..^𝑁)) → (𝑖 + 1) ∈ (0...𝑁))
256 breq1 5066 . . . . . . . . . 10 (𝑥 = 𝑖 → (𝑥 < 𝑦𝑖 < 𝑦))
257 fveq2 6667 . . . . . . . . . . 11 (𝑥 = 𝑖 → (𝑆𝑥) = (𝑆𝑖))
258257breq1d 5073 . . . . . . . . . 10 (𝑥 = 𝑖 → ((𝑆𝑥) < (𝑆𝑦) ↔ (𝑆𝑖) < (𝑆𝑦)))
259256, 258bibi12d 347 . . . . . . . . 9 (𝑥 = 𝑖 → ((𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) ↔ (𝑖 < 𝑦 ↔ (𝑆𝑖) < (𝑆𝑦))))
260 breq2 5067 . . . . . . . . . 10 (𝑦 = (𝑖 + 1) → (𝑖 < 𝑦𝑖 < (𝑖 + 1)))
261 fveq2 6667 . . . . . . . . . . 11 (𝑦 = (𝑖 + 1) → (𝑆𝑦) = (𝑆‘(𝑖 + 1)))
262261breq2d 5075 . . . . . . . . . 10 (𝑦 = (𝑖 + 1) → ((𝑆𝑖) < (𝑆𝑦) ↔ (𝑆𝑖) < (𝑆‘(𝑖 + 1))))
263260, 262bibi12d 347 . . . . . . . . 9 (𝑦 = (𝑖 + 1) → ((𝑖 < 𝑦 ↔ (𝑆𝑖) < (𝑆𝑦)) ↔ (𝑖 < (𝑖 + 1) ↔ (𝑆𝑖) < (𝑆‘(𝑖 + 1)))))
264259, 263rspc2v 3637 . . . . . . . 8 ((𝑖 ∈ (0...𝑁) ∧ (𝑖 + 1) ∈ (0...𝑁)) → (∀𝑥 ∈ (0...𝑁)∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) → (𝑖 < (𝑖 + 1) ↔ (𝑆𝑖) < (𝑆‘(𝑖 + 1)))))
265253, 255, 264syl2anc 584 . . . . . . 7 ((𝜑𝑖 ∈ (0..^𝑁)) → (∀𝑥 ∈ (0...𝑁)∀𝑦 ∈ (0...𝑁)(𝑥 < 𝑦 ↔ (𝑆𝑥) < (𝑆𝑦)) → (𝑖 < (𝑖 + 1) ↔ (𝑆𝑖) < (𝑆‘(𝑖 + 1)))))
266251, 265mpd 15 . . . . . 6 ((𝜑𝑖 ∈ (0..^𝑁)) → (𝑖 < (𝑖 + 1) ↔ (𝑆𝑖) < (𝑆‘(𝑖 + 1))))
267250, 266mpbid 233 . . . . 5 ((𝜑𝑖 ∈ (0..^𝑁)) → (𝑆𝑖) < (𝑆‘(𝑖 + 1)))
268267ralrimiva 3187 . . . 4 (𝜑 → ∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1)))
269200, 246, 268jca31 515 . . 3 (𝜑 → (((𝑆‘0) = 𝐶 ∧ (𝑆𝑁) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1))))
270 fourierdlem54.o . . . . 5 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑m (0...𝑚)) ∣ (((𝑝‘0) = 𝐶 ∧ (𝑝𝑚) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
271270fourierdlem2 42260 . . . 4 (𝑁 ∈ ℕ → (𝑆 ∈ (𝑂𝑁) ↔ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((𝑆‘0) = 𝐶 ∧ (𝑆𝑁) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1))))))
27297, 271syl 17 . . 3 (𝜑 → (𝑆 ∈ (𝑂𝑁) ↔ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((𝑆‘0) = 𝐶 ∧ (𝑆𝑁) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1))))))
273119, 269, 272mpbir2and 709 . 2 (𝜑𝑆 ∈ (𝑂𝑁))
27497, 273, 107jca31 515 1 (𝜑 → ((𝑁 ∈ ℕ ∧ 𝑆 ∈ (𝑂𝑁)) ∧ 𝑆 Isom < , < ((0...𝑁), 𝐻)))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  w3a 1081   = wceq 1530  wcel 2107  wne 3021  wral 3143  wrex 3144  {crab 3147  Vcvv 3500  cdif 3937  cun 3938  wss 3940  c0 4295  {cpr 4566   class class class wbr 5063  cmpt 5143   I cid 5458   × cxp 5552  ran crn 5555  cres 5556  ccom 5558  cio 6310   Fn wfn 6347  wf 6348  1-1wf1 6349  ontowfo 6350  1-1-ontowf1o 6351  cfv 6352   Isom wiso 6353  (class class class)co 7148  m cmap 8396  Fincfn 8498  infcinf 8894  cr 10525  0cc0 10526  1c1 10527   + caddc 10529   · cmul 10531  *cxr 10663   < clt 10664  cle 10665  cmin 10859  cn 11627  2c2 11681  0cn0 11886  cz 11970  cuz 12232  (,)cioo 12728  [,]cicc 12731  ...cfz 12882  ..^cfzo 13023  chash 13680  abscabs 14583  t crest 16684  topGenctg 16701
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-13 2385  ax-ext 2798  ax-rep 5187  ax-sep 5200  ax-nul 5207  ax-pow 5263  ax-pr 5326  ax-un 7451  ax-inf2 9093  ax-cnex 10582  ax-resscn 10583  ax-1cn 10584  ax-icn 10585  ax-addcl 10586  ax-addrcl 10587  ax-mulcl 10588  ax-mulrcl 10589  ax-mulcom 10590  ax-addass 10591  ax-mulass 10592  ax-distr 10593  ax-i2m1 10594  ax-1ne0 10595  ax-1rid 10596  ax-rnegex 10597  ax-rrecex 10598  ax-cnre 10599  ax-pre-lttri 10600  ax-pre-lttrn 10601  ax-pre-ltadd 10602  ax-pre-mulgt0 10603  ax-pre-sup 10604
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 844  df-3or 1082  df-3an 1083  df-tru 1533  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2620  df-eu 2652  df-clab 2805  df-cleq 2819  df-clel 2898  df-nfc 2968  df-ne 3022  df-nel 3129  df-ral 3148  df-rex 3149  df-reu 3150  df-rmo 3151  df-rab 3152  df-v 3502  df-sbc 3777  df-csb 3888  df-dif 3943  df-un 3945  df-in 3947  df-ss 3956  df-pss 3958  df-nul 4296  df-if 4471  df-pw 4544  df-sn 4565  df-pr 4567  df-tp 4569  df-op 4571  df-uni 4838  df-int 4875  df-iun 4919  df-iin 4920  df-br 5064  df-opab 5126  df-mpt 5144  df-tr 5170  df-id 5459  df-eprel 5464  df-po 5473  df-so 5474  df-fr 5513  df-se 5514  df-we 5515  df-xp 5560  df-rel 5561  df-cnv 5562  df-co 5563  df-dm 5564  df-rn 5565  df-res 5566  df-ima 5567  df-pred 6146  df-ord 6192  df-on 6193  df-lim 6194  df-suc 6195  df-iota 6312  df-fun 6354  df-fn 6355  df-f 6356  df-f1 6357  df-fo 6358  df-f1o 6359  df-fv 6360  df-isom 6361  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-om 7569  df-1st 7680  df-2nd 7681  df-wrecs 7938  df-recs 7999  df-rdg 8037  df-1o 8093  df-oadd 8097  df-er 8279  df-map 8398  df-en 8499  df-dom 8500  df-sdom 8501  df-fin 8502  df-fi 8864  df-sup 8895  df-inf 8896  df-oi 8963  df-dju 9319  df-card 9357  df-pnf 10666  df-mnf 10667  df-xr 10668  df-ltxr 10669  df-le 10670  df-sub 10861  df-neg 10862  df-div 11287  df-nn 11628  df-2 11689  df-3 11690  df-n0 11887  df-xnn0 11957  df-z 11971  df-uz 12233  df-q 12338  df-rp 12380  df-xneg 12497  df-xadd 12498  df-xmul 12499  df-ioo 12732  df-icc 12735  df-fz 12883  df-fzo 13024  df-seq 13360  df-exp 13420  df-hash 13681  df-cj 14448  df-re 14449  df-im 14450  df-sqrt 14584  df-abs 14585  df-rest 16686  df-topgen 16707  df-psmet 20453  df-xmet 20454  df-met 20455  df-bl 20456  df-mopn 20457  df-top 21418  df-topon 21435  df-bases 21470  df-cld 21543  df-ntr 21544  df-cls 21545  df-nei 21622  df-lp 21660  df-cmp 21911
This theorem is referenced by:  fourierdlem63  42320  fourierdlem64  42321  fourierdlem65  42322  fourierdlem79  42336  fourierdlem89  42346  fourierdlem90  42347  fourierdlem91  42348  fourierdlem100  42357  fourierdlem107  42364  fourierdlem109  42366  fourierdlem112  42369
  Copyright terms: Public domain W3C validator