fourierdlem52 - Mathbox for Glauco Siliprandi

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

Theorem fourierdlem52 46163

Description: d16:d17,d18:jca |- ( ph -> ( ( S 0) ≤ 𝐴 ∧ 𝐴 ≤ (𝑆 0 ) ) ) . (Contributed by Glauco Siliprandi, 11-Dec-2019.)

**Hypotheses**
Ref	Expression
fourierdlem52.tf	⊢ (𝜑 → 𝑇 ∈ Fin)
fourierdlem52.n	⊢ 𝑁 = ((♯‘𝑇) − 1)
fourierdlem52.s	⊢ 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝑇))
fourierdlem52.a	⊢ (𝜑 → 𝐴 ∈ ℝ)
fourierdlem52.b	⊢ (𝜑 → 𝐵 ∈ ℝ)
fourierdlem52.t	⊢ (𝜑 → 𝑇 ⊆ (𝐴[,]𝐵))
fourierdlem52.at	⊢ (𝜑 → 𝐴 ∈ 𝑇)
fourierdlem52.bt	⊢ (𝜑 → 𝐵 ∈ 𝑇)

**Assertion**
Ref	Expression
fourierdlem52	⊢ (𝜑 → ((𝑆:(0...𝑁)⟶(𝐴[,]𝐵) ∧ (𝑆‘0) = 𝐴) ∧ (𝑆‘𝑁) = 𝐵))

Distinct variable groups: 𝑓,𝑁 𝑆,𝑓 𝑇,𝑓 𝜑,𝑓 Allowed substitution hints: 𝐴(𝑓) 𝐵(𝑓)

Proof of Theorem fourierdlem52 Dummy variable 𝑗 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		fourierdlem52.tf	. . . . 5 ⊢ (𝜑 → 𝑇 ∈ Fin)
2		fourierdlem52.t	. . . . . 6 ⊢ (𝜑 → 𝑇 ⊆ (𝐴[,]𝐵))
3		fourierdlem52.a	. . . . . . 7 ⊢ (𝜑 → 𝐴 ∈ ℝ)
4		fourierdlem52.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 ∈ ℝ)
5	3, 4	iccssred 13402	. . . . . 6 ⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
6	2, 5	sstrd 3960	. . . . 5 ⊢ (𝜑 → 𝑇 ⊆ ℝ)
7		fourierdlem52.s	. . . . 5 ⊢ 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝑇))
8		fourierdlem52.n	. . . . 5 ⊢ 𝑁 = ((♯‘𝑇) − 1)
9	1, 6, 7, 8	fourierdlem36 46148	. . . 4 ⊢ (𝜑 → 𝑆 Isom < , < ((0...𝑁), 𝑇))
10		isof1o 7301	. . . 4 ⊢ (𝑆 Isom < , < ((0...𝑁), 𝑇) → 𝑆:(0...𝑁)–1-1-onto→𝑇)
11		f1of 6803	. . . 4 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)⟶𝑇)
12	9, 10, 11	3syl 18	. . 3 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶𝑇)
13	12, 2	fssd 6708	. 2 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶(𝐴[,]𝐵))
14		f1ofo 6810	. . . . . 6 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)–onto→𝑇)
15	9, 10, 14	3syl 18	. . . . 5 ⊢ (𝜑 → 𝑆:(0...𝑁)–onto→𝑇)
16		fourierdlem52.at	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑇)
17		foelrn 7082	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐴 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
18	15, 16, 17	syl2anc 584	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
19		elfzle1 13495	. . . . . . . . 9 ⊢ (𝑗 ∈ (0...𝑁) → 0 ≤ 𝑗)
20	19	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 0 ≤ 𝑗)
21	9	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
22		ressxr 11225	. . . . . . . . . . . 12 ⊢ ℝ ⊆ ℝ^*
23	6, 22	sstrdi 3962	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ⊆ ℝ^*)
24	23	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑇 ⊆ ℝ^*)
25		fzssz 13494	. . . . . . . . . . 11 ⊢ (0...𝑁) ⊆ ℤ
26		zssre 12543	. . . . . . . . . . . 12 ⊢ ℤ ⊆ ℝ
27	26, 22	sstri 3959	. . . . . . . . . . 11 ⊢ ℤ ⊆ ℝ^*
28	25, 27	sstri 3959	. . . . . . . . . 10 ⊢ (0...𝑁) ⊆ ℝ^*
29	24, 28	jctil 519	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
30		hashcl 14328	. . . . . . . . . . . . . . . 16 ⊢ (𝑇 ∈ Fin → (♯‘𝑇) ∈ ℕ₀)
31	1, 30	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ₀)
32	16	ne0d 4308	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑇 ≠ ∅)
33		hashge1 14361	. . . . . . . . . . . . . . . 16 ⊢ ((𝑇 ∈ Fin ∧ 𝑇 ≠ ∅) → 1 ≤ (♯‘𝑇))
34	1, 32, 33	syl2anc 584	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ (♯‘𝑇))
35		elnnnn0c 12494	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑇) ∈ ℕ ↔ ((♯‘𝑇) ∈ ℕ₀ ∧ 1 ≤ (♯‘𝑇)))
36	31, 34, 35	sylanbrc 583	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ)
37		nnm1nn0 12490	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑇) ∈ ℕ → ((♯‘𝑇) − 1) ∈ ℕ₀)
38	36, 37	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝑇) − 1) ∈ ℕ₀)
39	8, 38	eqeltrid 2833	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
40		nn0uz 12842	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
41	39, 40	eleqtrdi 2839	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘0))
42		eluzfz1 13499	. . . . . . . . . . 11 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 0 ∈ (0...𝑁))
43	41, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ (0...𝑁))
44	43	anim1i 615	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁)))
45		leisorel 14432	. . . . . . . . 9 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁))) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
46	21, 29, 44, 45	syl3anc 1373	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
47	20, 46	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (𝑆‘0) ≤ (𝑆‘𝑗))
48	47	3adant3 1132	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ (𝑆‘𝑗))
49		eqcom 2737	. . . . . . . 8 ⊢ (𝐴 = (𝑆‘𝑗) ↔ (𝑆‘𝑗) = 𝐴)
50	49	biimpi 216	. . . . . . 7 ⊢ (𝐴 = (𝑆‘𝑗) → (𝑆‘𝑗) = 𝐴)
51	50	3ad2ant3 1135	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘𝑗) = 𝐴)
52	48, 51	breqtrd 5136	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ 𝐴)
53	52	rexlimdv3a 3139	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗) → (𝑆‘0) ≤ 𝐴))
54	18, 53	mpd 15	. . 3 ⊢ (𝜑 → (𝑆‘0) ≤ 𝐴)
55	3	rexrd 11231	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ^*)
56	4	rexrd 11231	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℝ^*)
57	13, 43	ffvelcdmd 7060	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ (𝐴[,]𝐵))
58		iccgelb 13370	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘0) ∈ (𝐴[,]𝐵)) → 𝐴 ≤ (𝑆‘0))
59	55, 56, 57, 58	syl3anc 1373	. . 3 ⊢ (𝜑 → 𝐴 ≤ (𝑆‘0))
60	5, 57	sseldd 3950	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ ℝ)
61	60, 3	letri3d 11323	. . 3 ⊢ (𝜑 → ((𝑆‘0) = 𝐴 ↔ ((𝑆‘0) ≤ 𝐴 ∧ 𝐴 ≤ (𝑆‘0))))
62	54, 59, 61	mpbir2and 713	. 2 ⊢ (𝜑 → (𝑆‘0) = 𝐴)
63		eluzfz2 13500	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 𝑁 ∈ (0...𝑁))
64	41, 63	syl 17	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (0...𝑁))
65	13, 64	ffvelcdmd 7060	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ (𝐴[,]𝐵))
66		iccleub 13369	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘𝑁) ∈ (𝐴[,]𝐵)) → (𝑆‘𝑁) ≤ 𝐵)
67	55, 56, 65, 66	syl3anc 1373	. . 3 ⊢ (𝜑 → (𝑆‘𝑁) ≤ 𝐵)
68		fourierdlem52.bt	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝑇)
69		foelrn 7082	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐵 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
70	15, 68, 69	syl2anc 584	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
71		simp3 1138	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 = (𝑆‘𝑗))
72		elfzle2 13496	. . . . . . . 8 ⊢ (𝑗 ∈ (0...𝑁) → 𝑗 ≤ 𝑁)
73	72	3ad2ant2 1134	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ≤ 𝑁)
74	9	3ad2ant1 1133	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
75	29	3adant3 1132	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
76		simp2 1137	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ∈ (0...𝑁))
77	64	3ad2ant1 1133	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑁 ∈ (0...𝑁))
78		leisorel 14432	. . . . . . . 8 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (𝑗 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...𝑁))) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
79	74, 75, 76, 77, 78	syl112anc 1376	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
80	73, 79	mpbid 232	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑆‘𝑗) ≤ (𝑆‘𝑁))
81	71, 80	eqbrtrd 5132	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 ≤ (𝑆‘𝑁))
82	81	rexlimdv3a 3139	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗) → 𝐵 ≤ (𝑆‘𝑁)))
83	70, 82	mpd 15	. . 3 ⊢ (𝜑 → 𝐵 ≤ (𝑆‘𝑁))
84	5, 65	sseldd 3950	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ ℝ)
85	84, 4	letri3d 11323	. . 3 ⊢ (𝜑 → ((𝑆‘𝑁) = 𝐵 ↔ ((𝑆‘𝑁) ≤ 𝐵 ∧ 𝐵 ≤ (𝑆‘𝑁))))
86	67, 83, 85	mpbir2and 713	. 2 ⊢ (𝜑 → (𝑆‘𝑁) = 𝐵)
87	13, 62, 86	jca31 514	1 ⊢ (𝜑 → ((𝑆:(0...𝑁)⟶(𝐴[,]𝐵) ∧ (𝑆‘0) = 𝐴) ∧ (𝑆‘𝑁) = 𝐵))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ≠ wne 2926 ∃wrex 3054 ⊆ wss 3917 ∅c0 4299 class class class wbr 5110 ℩cio 6465 ⟶wf 6510 –onto→wfo 6512 –1-1-onto→wf1o 6513 ‘cfv 6514 Isom wiso 6515 (class class class)co 7390 Fincfn 8921 ℝcr 11074 0cc0 11075 1c1 11076 ℝ^*cxr 11214 < clt 11215 ≤ cle 11216 − cmin 11412 ℕcn 12193 ℕ₀cn0 12449 ℤcz 12536 ℤ_≥cuz 12800 [,]cicc 13316 ...cfz 13475 ♯chash 14302

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2702 ax-rep 5237 ax-sep 5254 ax-nul 5264 ax-pow 5323 ax-pr 5390 ax-un 7714 ax-inf2 9601 ax-cnex 11131 ax-resscn 11132 ax-1cn 11133 ax-icn 11134 ax-addcl 11135 ax-addrcl 11136 ax-mulcl 11137 ax-mulrcl 11138 ax-mulcom 11139 ax-addass 11140 ax-mulass 11141 ax-distr 11142 ax-i2m1 11143 ax-1ne0 11144 ax-1rid 11145 ax-rnegex 11146 ax-rrecex 11147 ax-cnre 11148 ax-pre-lttri 11149 ax-pre-lttrn 11150 ax-pre-ltadd 11151 ax-pre-mulgt0 11152

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-nel 3031 df-ral 3046 df-rex 3055 df-rmo 3356 df-reu 3357 df-rab 3409 df-v 3452 df-sbc 3757 df-csb 3866 df-dif 3920 df-un 3922 df-in 3924 df-ss 3934 df-pss 3937 df-nul 4300 df-if 4492 df-pw 4568 df-sn 4593 df-pr 4595 df-op 4599 df-uni 4875 df-int 4914 df-iun 4960 df-br 5111 df-opab 5173 df-mpt 5192 df-tr 5218 df-id 5536 df-eprel 5541 df-po 5549 df-so 5550 df-fr 5594 df-se 5595 df-we 5596 df-xp 5647 df-rel 5648 df-cnv 5649 df-co 5650 df-dm 5651 df-rn 5652 df-res 5653 df-ima 5654 df-pred 6277 df-ord 6338 df-on 6339 df-lim 6340 df-suc 6341 df-iota 6467 df-fun 6516 df-fn 6517 df-f 6518 df-f1 6519 df-fo 6520 df-f1o 6521 df-fv 6522 df-isom 6523 df-riota 7347 df-ov 7393 df-oprab 7394 df-mpo 7395 df-om 7846 df-1st 7971 df-2nd 7972 df-frecs 8263 df-wrecs 8294 df-recs 8343 df-rdg 8381 df-1o 8437 df-er 8674 df-en 8922 df-dom 8923 df-sdom 8924 df-fin 8925 df-oi 9470 df-card 9899 df-pnf 11217 df-mnf 11218 df-xr 11219 df-ltxr 11220 df-le 11221 df-sub 11414 df-neg 11415 df-nn 12194 df-n0 12450 df-z 12537 df-uz 12801 df-icc 13320 df-fz 13476 df-hash 14303

This theorem is referenced by: fourierdlem103 46214 fourierdlem104 46215

W3C validator