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 47276

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 13572	. . . . . 6 ⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
6	2, 5	sstrd 3919	. . . . 5 ⊢ (𝜑 → 𝑇 ⊆ ℝ)
7		fourierdlem52.s	. . . . 5 ⊢ 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝑇))
8		fourierdlem52.n	. . . . 5 ⊢ 𝑁 = ((♯‘𝑇) − 1)
9	1, 6, 7, 8	fourierdlem36 47261	. . . 4 ⊢ (𝜑 → 𝑆 Isom < , < ((0...𝑁), 𝑇))
10		isof1o 7335	. . . 4 ⊢ (𝑆 Isom < , < ((0...𝑁), 𝑇) → 𝑆:(0...𝑁)–1-1-onto→𝑇)
11		f1of 6829	. . . 4 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)⟶𝑇)
12	9, 10, 11	3syl 19	. . 3 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶𝑇)
13	12, 2	fssd 6732	. 2 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶(𝐴[,]𝐵))
14		f1ofo 6837	. . . . . 6 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)–onto→𝑇)
15	9, 10, 14	3syl 19	. . . . 5 ⊢ (𝜑 → 𝑆:(0...𝑁)–onto→𝑇)
16		fourierdlem52.at	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑇)
17		foelrn 7112	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐴 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
18	15, 16, 17	syl2anc 596	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
19		elfzle1 13667	. . . . . . . . 9 ⊢ (𝑗 ∈ (0...𝑁) → 0 ≤ 𝑗)
20	19	adantl 487	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 0 ≤ 𝑗)
21	9	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
22		ressxr 11360	. . . . . . . . . . . 12 ⊢ ℝ ⊆ ℝ^*
23	6, 22	sstrdi 3921	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ⊆ ℝ^*)
24	23	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑇 ⊆ ℝ^*)
25		fzssz 13665	. . . . . . . . . . 11 ⊢ (0...𝑁) ⊆ ℤ
26		zssre 12707	. . . . . . . . . . . 12 ⊢ ℤ ⊆ ℝ
27	26, 22	sstri 3918	. . . . . . . . . . 11 ⊢ ℤ ⊆ ℝ^*
28	25, 27	sstri 3918	. . . . . . . . . 10 ⊢ (0...𝑁) ⊆ ℝ^*
29	24, 28	jctil 529	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
30		hashcl 14507	. . . . . . . . . . . . . . . 16 ⊢ (𝑇 ∈ Fin → (♯‘𝑇) ∈ ℕ₀)
31	1, 30	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ₀)
32	16	ne0d 4287	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑇 ≠ ∅)
33		hashge1 14540	. . . . . . . . . . . . . . . 16 ⊢ ((𝑇 ∈ Fin ∧ 𝑇 ≠ ∅) → 1 ≤ (♯‘𝑇))
34	1, 32, 33	syl2anc 596	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ (♯‘𝑇))
35		elnnnn0c 12658	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑇) ∈ ℕ ↔ ((♯‘𝑇) ∈ ℕ₀ ∧ 1 ≤ (♯‘𝑇)))
36	31, 34, 35	sylanbrc 595	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ)
37		nnm1nn0 12654	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑇) ∈ ℕ → ((♯‘𝑇) − 1) ∈ ℕ₀)
38	36, 37	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝑇) − 1) ∈ ℕ₀)
39	8, 38	eqeltrid 2864	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
40		nn0uz 13010	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
41	39, 40	eleqtrdi 2870	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘0))
42		eluzfz1 13671	. . . . . . . . . . 11 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 0 ∈ (0...𝑁))
43	41, 42	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ (0...𝑁))
44	43	anim1i 627	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁)))
45		leisorel 14612	. . . . . . . . 9 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁))) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
46	21, 29, 44, 45	syl3anc 1398	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
47	20, 46	mpbid 235	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (𝑆‘0) ≤ (𝑆‘𝑗))
48	47	3adant3 1150	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ (𝑆‘𝑗))
49		eqcom 2767	. . . . . . . 8 ⊢ (𝐴 = (𝑆‘𝑗) ↔ (𝑆‘𝑗) = 𝐴)
50	49	biimpi 219	. . . . . . 7 ⊢ (𝐴 = (𝑆‘𝑗) → (𝑆‘𝑗) = 𝐴)
51	50	3ad2ant3 1153	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘𝑗) = 𝐴)
52	48, 51	breqtrd 5130	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ 𝐴)
53	52	rexlimdv3a 3167	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗) → (𝑆‘0) ≤ 𝐴))
54	18, 53	mpd 16	. . 3 ⊢ (𝜑 → (𝑆‘0) ≤ 𝐴)
55	3	rexrd 11366	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ^*)
56	4	rexrd 11366	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℝ^*)
57	13, 43	ffvelcdmd 7090	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ (𝐴[,]𝐵))
58		iccgelb 13540	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘0) ∈ (𝐴[,]𝐵)) → 𝐴 ≤ (𝑆‘0))
59	55, 56, 57, 58	syl3anc 1398	. . 3 ⊢ (𝜑 → 𝐴 ≤ (𝑆‘0))
60	5, 57	sseldd 3910	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ ℝ)
61	60, 3	letri3d 11459	. . 3 ⊢ (𝜑 → ((𝑆‘0) = 𝐴 ↔ ((𝑆‘0) ≤ 𝐴 ∧ 𝐴 ≤ (𝑆‘0))))
62	54, 59, 61	mpbir2and 726	. 2 ⊢ (𝜑 → (𝑆‘0) = 𝐴)
63		eluzfz2 13672	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 𝑁 ∈ (0...𝑁))
64	41, 63	syl 18	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (0...𝑁))
65	13, 64	ffvelcdmd 7090	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ (𝐴[,]𝐵))
66		iccleub 13539	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘𝑁) ∈ (𝐴[,]𝐵)) → (𝑆‘𝑁) ≤ 𝐵)
67	55, 56, 65, 66	syl3anc 1398	. . 3 ⊢ (𝜑 → (𝑆‘𝑁) ≤ 𝐵)
68		fourierdlem52.bt	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝑇)
69		foelrn 7112	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐵 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
70	15, 68, 69	syl2anc 596	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
71		simp3 1156	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 = (𝑆‘𝑗))
72		elfzle2 13668	. . . . . . . 8 ⊢ (𝑗 ∈ (0...𝑁) → 𝑗 ≤ 𝑁)
73	72	3ad2ant2 1152	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ≤ 𝑁)
74	9	3ad2ant1 1151	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
75	29	3adant3 1150	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
76		simp2 1155	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ∈ (0...𝑁))
77	64	3ad2ant1 1151	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑁 ∈ (0...𝑁))
78		leisorel 14612	. . . . . . . 8 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (𝑗 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...𝑁))) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
79	74, 75, 76, 77, 78	syl112anc 1401	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
80	73, 79	mpbid 235	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑆‘𝑗) ≤ (𝑆‘𝑁))
81	71, 80	eqbrtrd 5126	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 ≤ (𝑆‘𝑁))
82	81	rexlimdv3a 3167	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗) → 𝐵 ≤ (𝑆‘𝑁)))
83	70, 82	mpd 16	. . 3 ⊢ (𝜑 → 𝐵 ≤ (𝑆‘𝑁))
84	5, 65	sseldd 3910	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ ℝ)
85	84, 4	letri3d 11459	. . 3 ⊢ (𝜑 → ((𝑆‘𝑁) = 𝐵 ↔ ((𝑆‘𝑁) ≤ 𝐵 ∧ 𝐵 ≤ (𝑆‘𝑁))))
86	67, 83, 85	mpbir2and 726	. 2 ⊢ (𝜑 → (𝑆‘𝑁) = 𝐵)
87	13, 62, 86	jca31 524	1 ⊢ (𝜑 → ((𝑆:(0...𝑁)⟶(𝐴[,]𝐵) ∧ (𝑆‘0) = 𝐴) ∧ (𝑆‘𝑁) = 𝐵))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1569 ∈ wcel 2144 ≠ wne 2955 ∃wrex 3086 ⊆ wss 3896 ∅c0 4277 class class class wbr 5102 ℩cio 6495 ⟶wf 6539 –onto→wfo 6541 –1-1-onto→wf1o 6542 ‘cfv 6543 Isom wiso 6544 (class class class)co 7424 Fincfn 8980 ℝcr 11206 0cc0 11207 1c1 11208 ℝ^*cxr 11349 < clt 11350 ≤ cle 11351 − cmin 11548 ℕcn 12342 ℕ₀cn0 12613 ℤcz 12700 ℤ_≥cuz 12972 [,]cicc 13486 ...cfz 13646 ♯chash 14481

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1827 ax-4 1841 ax-5 1942 ax-6 1999 ax-7 2040 ax-8 2146 ax-9 2154 ax-10 2177 ax-11 2193 ax-12 2212 ax-ext 2732 ax-rep 5231 ax-sep 5248 ax-nul 5259 ax-pow 5327 ax-pr 5391 ax-un 7755 ax-inf2 9649 ax-cnex 11263 ax-resscn 11264 ax-1cn 11265 ax-icn 11266 ax-addcl 11267 ax-addrcl 11268 ax-mulcl 11269 ax-mulrcl 11270 ax-mulcom 11271 ax-addass 11272 ax-mulass 11273 ax-distr 11274 ax-i2m1 11275 ax-1ne0 11276 ax-1rid 11277 ax-rnegex 11278 ax-rrecex 11279 ax-cnre 11280 ax-pre-lttri 11281 ax-pre-lttrn 11282 ax-pre-ltadd 11283 ax-pre-mulgt0 11284

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1572 df-fal 1582 df-ex 1812 df-nf 1816 df-sb 2099 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3739 df-csb 3848 df-ss 3897 df-pss 4013 df-dif 4046 df-in 4090 df-un 4150 df-nul 4278 df-if 4482 df-pw 4558 df-sn 4585 df-pr 4587 df-op 4835 df-uni 4867 df-int 4907 df-iun 4952 df-br 5103 df-opab 5167 df-mpt 5186 df-tr 5212 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-se 5605 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6307 df-ord 6368 df-on 6369 df-lim 6370 df-suc 6371 df-iota 6497 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-isom 6552 df-riota 7381 df-ov 7427 df-oprab 7428 df-mpo 7429 df-om 7882 df-1st 8005 df-2nd 8006 df-frecs 8306 df-wrecs 8337 df-recs 8386 df-rdg 8425 df-1o 8483 df-er 8724 df-en 8981 df-dom 8982 df-sdom 8983 df-fin 8984 df-oi 9511 df-card 10027 df-pnf 11352 df-mnf 11353 df-xr 11354 df-ltxr 11355 df-le 11356 df-sub 11550 df-neg 11551 df-nn 12343 df-n0 12614 df-z 12701 df-uz 12973 df-icc 13490 df-fz 13647 df-hash 14482

This theorem is used by: fourierdlem103 47327 fourierdlem104 47328

W3C validator