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 45172

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 13415	. . . . . 6 ⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
6	2, 5	sstrd 3991	. . . . 5 ⊢ (𝜑 → 𝑇 ⊆ ℝ)
7		fourierdlem52.s	. . . . 5 ⊢ 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝑇))
8		fourierdlem52.n	. . . . 5 ⊢ 𝑁 = ((♯‘𝑇) − 1)
9	1, 6, 7, 8	fourierdlem36 45157	. . . 4 ⊢ (𝜑 → 𝑆 Isom < , < ((0...𝑁), 𝑇))
10		isof1o 7322	. . . 4 ⊢ (𝑆 Isom < , < ((0...𝑁), 𝑇) → 𝑆:(0...𝑁)–1-1-onto→𝑇)
11		f1of 6832	. . . 4 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)⟶𝑇)
12	9, 10, 11	3syl 18	. . 3 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶𝑇)
13	12, 2	fssd 6734	. 2 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶(𝐴[,]𝐵))
14		f1ofo 6839	. . . . . 6 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)–onto→𝑇)
15	9, 10, 14	3syl 18	. . . . 5 ⊢ (𝜑 → 𝑆:(0...𝑁)–onto→𝑇)
16		fourierdlem52.at	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑇)
17		foelrn 7107	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐴 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
18	15, 16, 17	syl2anc 582	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
19		elfzle1 13508	. . . . . . . . 9 ⊢ (𝑗 ∈ (0...𝑁) → 0 ≤ 𝑗)
20	19	adantl 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 0 ≤ 𝑗)
21	9	adantr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
22		ressxr 11262	. . . . . . . . . . . 12 ⊢ ℝ ⊆ ℝ^*
23	6, 22	sstrdi 3993	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ⊆ ℝ^*)
24	23	adantr 479	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑇 ⊆ ℝ^*)
25		fzssz 13507	. . . . . . . . . . 11 ⊢ (0...𝑁) ⊆ ℤ
26		zssre 12569	. . . . . . . . . . . 12 ⊢ ℤ ⊆ ℝ
27	26, 22	sstri 3990	. . . . . . . . . . 11 ⊢ ℤ ⊆ ℝ^*
28	25, 27	sstri 3990	. . . . . . . . . 10 ⊢ (0...𝑁) ⊆ ℝ^*
29	24, 28	jctil 518	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
30		hashcl 14320	. . . . . . . . . . . . . . . 16 ⊢ (𝑇 ∈ Fin → (♯‘𝑇) ∈ ℕ₀)
31	1, 30	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ₀)
32	16	ne0d 4334	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑇 ≠ ∅)
33		hashge1 14353	. . . . . . . . . . . . . . . 16 ⊢ ((𝑇 ∈ Fin ∧ 𝑇 ≠ ∅) → 1 ≤ (♯‘𝑇))
34	1, 32, 33	syl2anc 582	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ (♯‘𝑇))
35		elnnnn0c 12521	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑇) ∈ ℕ ↔ ((♯‘𝑇) ∈ ℕ₀ ∧ 1 ≤ (♯‘𝑇)))
36	31, 34, 35	sylanbrc 581	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ)
37		nnm1nn0 12517	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑇) ∈ ℕ → ((♯‘𝑇) − 1) ∈ ℕ₀)
38	36, 37	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝑇) − 1) ∈ ℕ₀)
39	8, 38	eqeltrid 2835	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
40		nn0uz 12868	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
41	39, 40	eleqtrdi 2841	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘0))
42		eluzfz1 13512	. . . . . . . . . . 11 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 0 ∈ (0...𝑁))
43	41, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ (0...𝑁))
44	43	anim1i 613	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁)))
45		leisorel 14425	. . . . . . . . 9 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁))) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
46	21, 29, 44, 45	syl3anc 1369	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
47	20, 46	mpbid 231	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (𝑆‘0) ≤ (𝑆‘𝑗))
48	47	3adant3 1130	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ (𝑆‘𝑗))
49		eqcom 2737	. . . . . . . 8 ⊢ (𝐴 = (𝑆‘𝑗) ↔ (𝑆‘𝑗) = 𝐴)
50	49	biimpi 215	. . . . . . 7 ⊢ (𝐴 = (𝑆‘𝑗) → (𝑆‘𝑗) = 𝐴)
51	50	3ad2ant3 1133	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘𝑗) = 𝐴)
52	48, 51	breqtrd 5173	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ 𝐴)
53	52	rexlimdv3a 3157	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗) → (𝑆‘0) ≤ 𝐴))
54	18, 53	mpd 15	. . 3 ⊢ (𝜑 → (𝑆‘0) ≤ 𝐴)
55	3	rexrd 11268	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ^*)
56	4	rexrd 11268	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℝ^*)
57	13, 43	ffvelcdmd 7086	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ (𝐴[,]𝐵))
58		iccgelb 13384	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘0) ∈ (𝐴[,]𝐵)) → 𝐴 ≤ (𝑆‘0))
59	55, 56, 57, 58	syl3anc 1369	. . 3 ⊢ (𝜑 → 𝐴 ≤ (𝑆‘0))
60	5, 57	sseldd 3982	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ ℝ)
61	60, 3	letri3d 11360	. . 3 ⊢ (𝜑 → ((𝑆‘0) = 𝐴 ↔ ((𝑆‘0) ≤ 𝐴 ∧ 𝐴 ≤ (𝑆‘0))))
62	54, 59, 61	mpbir2and 709	. 2 ⊢ (𝜑 → (𝑆‘0) = 𝐴)
63		eluzfz2 13513	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 𝑁 ∈ (0...𝑁))
64	41, 63	syl 17	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (0...𝑁))
65	13, 64	ffvelcdmd 7086	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ (𝐴[,]𝐵))
66		iccleub 13383	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘𝑁) ∈ (𝐴[,]𝐵)) → (𝑆‘𝑁) ≤ 𝐵)
67	55, 56, 65, 66	syl3anc 1369	. . 3 ⊢ (𝜑 → (𝑆‘𝑁) ≤ 𝐵)
68		fourierdlem52.bt	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝑇)
69		foelrn 7107	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐵 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
70	15, 68, 69	syl2anc 582	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
71		simp3 1136	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 = (𝑆‘𝑗))
72		elfzle2 13509	. . . . . . . 8 ⊢ (𝑗 ∈ (0...𝑁) → 𝑗 ≤ 𝑁)
73	72	3ad2ant2 1132	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ≤ 𝑁)
74	9	3ad2ant1 1131	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
75	29	3adant3 1130	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
76		simp2 1135	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ∈ (0...𝑁))
77	64	3ad2ant1 1131	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑁 ∈ (0...𝑁))
78		leisorel 14425	. . . . . . . 8 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (𝑗 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...𝑁))) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
79	74, 75, 76, 77, 78	syl112anc 1372	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
80	73, 79	mpbid 231	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑆‘𝑗) ≤ (𝑆‘𝑁))
81	71, 80	eqbrtrd 5169	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 ≤ (𝑆‘𝑁))
82	81	rexlimdv3a 3157	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗) → 𝐵 ≤ (𝑆‘𝑁)))
83	70, 82	mpd 15	. . 3 ⊢ (𝜑 → 𝐵 ≤ (𝑆‘𝑁))
84	5, 65	sseldd 3982	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ ℝ)
85	84, 4	letri3d 11360	. . 3 ⊢ (𝜑 → ((𝑆‘𝑁) = 𝐵 ↔ ((𝑆‘𝑁) ≤ 𝐵 ∧ 𝐵 ≤ (𝑆‘𝑁))))
86	67, 83, 85	mpbir2and 709	. 2 ⊢ (𝜑 → (𝑆‘𝑁) = 𝐵)
87	13, 62, 86	jca31 513	1 ⊢ (𝜑 → ((𝑆:(0...𝑁)⟶(𝐴[,]𝐵) ∧ (𝑆‘0) = 𝐴) ∧ (𝑆‘𝑁) = 𝐵))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 394 ∧ w3a 1085 = wceq 1539 ∈ wcel 2104 ≠ wne 2938 ∃wrex 3068 ⊆ wss 3947 ∅c0 4321 class class class wbr 5147 ℩cio 6492 ⟶wf 6538 –onto→wfo 6540 –1-1-onto→wf1o 6541 ‘cfv 6542 Isom wiso 6543 (class class class)co 7411 Fincfn 8941 ℝcr 11111 0cc0 11112 1c1 11113 ℝ^*cxr 11251 < clt 11252 ≤ cle 11253 − cmin 11448 ℕcn 12216 ℕ₀cn0 12476 ℤcz 12562 ℤ_≥cuz 12826 [,]cicc 13331 ...cfz 13488 ♯chash 14294

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 1911 ax-6 1969 ax-7 2009 ax-8 2106 ax-9 2114 ax-10 2135 ax-11 2152 ax-12 2169 ax-ext 2701 ax-rep 5284 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7727 ax-inf2 9638 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189

This theorem depends on definitions: df-bi 206 df-an 395 df-or 844 df-3or 1086 df-3an 1087 df-tru 1542 df-fal 1552 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2532 df-eu 2561 df-clab 2708 df-cleq 2722 df-clel 2808 df-nfc 2883 df-ne 2939 df-nel 3045 df-ral 3060 df-rex 3069 df-rmo 3374 df-reu 3375 df-rab 3431 df-v 3474 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-op 4634 df-uni 4908 df-int 4950 df-iun 4998 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 6299 df-ord 6366 df-on 6367 df-lim 6368 df-suc 6369 df-iota 6494 df-fun 6544 df-fn 6545 df-f 6546 df-f1 6547 df-fo 6548 df-f1o 6549 df-fv 6550 df-isom 6551 df-riota 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-om 7858 df-1st 7977 df-2nd 7978 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-1o 8468 df-er 8705 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-oi 9507 df-card 9936 df-pnf 11254 df-mnf 11255 df-xr 11256 df-ltxr 11257 df-le 11258 df-sub 11450 df-neg 11451 df-nn 12217 df-n0 12477 df-z 12563 df-uz 12827 df-icc 13335 df-fz 13489 df-hash 14295

This theorem is referenced by: fourierdlem103 45223 fourierdlem104 45224

W3C validator