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 42450

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 41787	. . . . . 6 ⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
6	2, 5	sstrd 3979	. . . . 5 ⊢ (𝜑 → 𝑇 ⊆ ℝ)
7		fourierdlem52.s	. . . . 5 ⊢ 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝑇))
8		fourierdlem52.n	. . . . 5 ⊢ 𝑁 = ((♯‘𝑇) − 1)
9	1, 6, 7, 8	fourierdlem36 42435	. . . 4 ⊢ (𝜑 → 𝑆 Isom < , < ((0...𝑁), 𝑇))
10		isof1o 7078	. . . 4 ⊢ (𝑆 Isom < , < ((0...𝑁), 𝑇) → 𝑆:(0...𝑁)–1-1-onto→𝑇)
11		f1of 6617	. . . 4 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)⟶𝑇)
12	9, 10, 11	3syl 18	. . 3 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶𝑇)
13	12, 2	fssd 6530	. 2 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶(𝐴[,]𝐵))
14		f1ofo 6624	. . . . . 6 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)–onto→𝑇)
15	9, 10, 14	3syl 18	. . . . 5 ⊢ (𝜑 → 𝑆:(0...𝑁)–onto→𝑇)
16		fourierdlem52.at	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑇)
17		foelrn 6874	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐴 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
18	15, 16, 17	syl2anc 586	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
19		elfzle1 12913	. . . . . . . . 9 ⊢ (𝑗 ∈ (0...𝑁) → 0 ≤ 𝑗)
20	19	adantl 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 0 ≤ 𝑗)
21	9	adantr 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
22		ressxr 10687	. . . . . . . . . . . 12 ⊢ ℝ ⊆ ℝ^*
23	6, 22	sstrdi 3981	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ⊆ ℝ^*)
24	23	adantr 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑇 ⊆ ℝ^*)
25		fzssz 12912	. . . . . . . . . . 11 ⊢ (0...𝑁) ⊆ ℤ
26		zssre 11991	. . . . . . . . . . . 12 ⊢ ℤ ⊆ ℝ
27	26, 22	sstri 3978	. . . . . . . . . . 11 ⊢ ℤ ⊆ ℝ^*
28	25, 27	sstri 3978	. . . . . . . . . 10 ⊢ (0...𝑁) ⊆ ℝ^*
29	24, 28	jctil 522	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
30		hashcl 13720	. . . . . . . . . . . . . . . 16 ⊢ (𝑇 ∈ Fin → (♯‘𝑇) ∈ ℕ₀)
31	1, 30	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ₀)
32	16	ne0d 4303	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑇 ≠ ∅)
33		hashge1 13753	. . . . . . . . . . . . . . . 16 ⊢ ((𝑇 ∈ Fin ∧ 𝑇 ≠ ∅) → 1 ≤ (♯‘𝑇))
34	1, 32, 33	syl2anc 586	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ (♯‘𝑇))
35		elnnnn0c 11945	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑇) ∈ ℕ ↔ ((♯‘𝑇) ∈ ℕ₀ ∧ 1 ≤ (♯‘𝑇)))
36	31, 34, 35	sylanbrc 585	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ)
37		nnm1nn0 11941	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑇) ∈ ℕ → ((♯‘𝑇) − 1) ∈ ℕ₀)
38	36, 37	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝑇) − 1) ∈ ℕ₀)
39	8, 38	eqeltrid 2919	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
40		nn0uz 12283	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
41	39, 40	eleqtrdi 2925	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘0))
42		eluzfz1 12917	. . . . . . . . . . 11 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 0 ∈ (0...𝑁))
43	41, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ (0...𝑁))
44	43	anim1i 616	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁)))
45		leisorel 13821	. . . . . . . . 9 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁))) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
46	21, 29, 44, 45	syl3anc 1367	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
47	20, 46	mpbid 234	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (𝑆‘0) ≤ (𝑆‘𝑗))
48	47	3adant3 1128	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ (𝑆‘𝑗))
49		eqcom 2830	. . . . . . . 8 ⊢ (𝐴 = (𝑆‘𝑗) ↔ (𝑆‘𝑗) = 𝐴)
50	49	biimpi 218	. . . . . . 7 ⊢ (𝐴 = (𝑆‘𝑗) → (𝑆‘𝑗) = 𝐴)
51	50	3ad2ant3 1131	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘𝑗) = 𝐴)
52	48, 51	breqtrd 5094	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ 𝐴)
53	52	rexlimdv3a 3288	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗) → (𝑆‘0) ≤ 𝐴))
54	18, 53	mpd 15	. . 3 ⊢ (𝜑 → (𝑆‘0) ≤ 𝐴)
55	3	rexrd 10693	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ^*)
56	4	rexrd 10693	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℝ^*)
57	13, 43	ffvelrnd 6854	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ (𝐴[,]𝐵))
58		iccgelb 12796	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘0) ∈ (𝐴[,]𝐵)) → 𝐴 ≤ (𝑆‘0))
59	55, 56, 57, 58	syl3anc 1367	. . 3 ⊢ (𝜑 → 𝐴 ≤ (𝑆‘0))
60	5, 57	sseldd 3970	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ ℝ)
61	60, 3	letri3d 10784	. . 3 ⊢ (𝜑 → ((𝑆‘0) = 𝐴 ↔ ((𝑆‘0) ≤ 𝐴 ∧ 𝐴 ≤ (𝑆‘0))))
62	54, 59, 61	mpbir2and 711	. 2 ⊢ (𝜑 → (𝑆‘0) = 𝐴)
63		eluzfz2 12918	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 𝑁 ∈ (0...𝑁))
64	41, 63	syl 17	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (0...𝑁))
65	13, 64	ffvelrnd 6854	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ (𝐴[,]𝐵))
66		iccleub 12795	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘𝑁) ∈ (𝐴[,]𝐵)) → (𝑆‘𝑁) ≤ 𝐵)
67	55, 56, 65, 66	syl3anc 1367	. . 3 ⊢ (𝜑 → (𝑆‘𝑁) ≤ 𝐵)
68		fourierdlem52.bt	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝑇)
69		foelrn 6874	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐵 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
70	15, 68, 69	syl2anc 586	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
71		simp3 1134	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 = (𝑆‘𝑗))
72		elfzle2 12914	. . . . . . . 8 ⊢ (𝑗 ∈ (0...𝑁) → 𝑗 ≤ 𝑁)
73	72	3ad2ant2 1130	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ≤ 𝑁)
74	9	3ad2ant1 1129	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
75	29	3adant3 1128	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
76		simp2 1133	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ∈ (0...𝑁))
77	64	3ad2ant1 1129	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑁 ∈ (0...𝑁))
78		leisorel 13821	. . . . . . . 8 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (𝑗 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...𝑁))) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
79	74, 75, 76, 77, 78	syl112anc 1370	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
80	73, 79	mpbid 234	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑆‘𝑗) ≤ (𝑆‘𝑁))
81	71, 80	eqbrtrd 5090	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 ≤ (𝑆‘𝑁))
82	81	rexlimdv3a 3288	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗) → 𝐵 ≤ (𝑆‘𝑁)))
83	70, 82	mpd 15	. . 3 ⊢ (𝜑 → 𝐵 ≤ (𝑆‘𝑁))
84	5, 65	sseldd 3970	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ ℝ)
85	84, 4	letri3d 10784	. . 3 ⊢ (𝜑 → ((𝑆‘𝑁) = 𝐵 ↔ ((𝑆‘𝑁) ≤ 𝐵 ∧ 𝐵 ≤ (𝑆‘𝑁))))
86	67, 83, 85	mpbir2and 711	. 2 ⊢ (𝜑 → (𝑆‘𝑁) = 𝐵)
87	13, 62, 86	jca31 517	1 ⊢ (𝜑 → ((𝑆:(0...𝑁)⟶(𝐴[,]𝐵) ∧ (𝑆‘0) = 𝐴) ∧ (𝑆‘𝑁) = 𝐵))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 208 ∧ wa 398 ∧ w3a 1083 = wceq 1537 ∈ wcel 2114 ≠ wne 3018 ∃wrex 3141 ⊆ wss 3938 ∅c0 4293 class class class wbr 5068 ℩cio 6314 ⟶wf 6353 –onto→wfo 6355 –1-1-onto→wf1o 6356 ‘cfv 6357 Isom wiso 6358 (class class class)co 7158 Fincfn 8511 ℝcr 10538 0cc0 10539 1c1 10540 ℝ^*cxr 10676 < clt 10677 ≤ cle 10678 − cmin 10872 ℕcn 11640 ℕ₀cn0 11900 ℤcz 11984 ℤ_≥cuz 12246 [,]cicc 12744 ...cfz 12895 ♯chash 13693

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1796 ax-4 1810 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2116 ax-9 2124 ax-10 2145 ax-11 2161 ax-12 2177 ax-ext 2795 ax-rep 5192 ax-sep 5205 ax-nul 5212 ax-pow 5268 ax-pr 5332 ax-un 7463 ax-inf2 9106 ax-cnex 10595 ax-resscn 10596 ax-1cn 10597 ax-icn 10598 ax-addcl 10599 ax-addrcl 10600 ax-mulcl 10601 ax-mulrcl 10602 ax-mulcom 10603 ax-addass 10604 ax-mulass 10605 ax-distr 10606 ax-i2m1 10607 ax-1ne0 10608 ax-1rid 10609 ax-rnegex 10610 ax-rrecex 10611 ax-cnre 10612 ax-pre-lttri 10613 ax-pre-lttrn 10614 ax-pre-ltadd 10615 ax-pre-mulgt0 10616

This theorem depends on definitions: df-bi 209 df-an 399 df-or 844 df-3or 1084 df-3an 1085 df-tru 1540 df-ex 1781 df-nf 1785 df-sb 2070 df-mo 2622 df-eu 2654 df-clab 2802 df-cleq 2816 df-clel 2895 df-nfc 2965 df-ne 3019 df-nel 3126 df-ral 3145 df-rex 3146 df-reu 3147 df-rmo 3148 df-rab 3149 df-v 3498 df-sbc 3775 df-csb 3886 df-dif 3941 df-un 3943 df-in 3945 df-ss 3954 df-pss 3956 df-nul 4294 df-if 4470 df-pw 4543 df-sn 4570 df-pr 4572 df-tp 4574 df-op 4576 df-uni 4841 df-int 4879 df-iun 4923 df-br 5069 df-opab 5131 df-mpt 5149 df-tr 5175 df-id 5462 df-eprel 5467 df-po 5476 df-so 5477 df-fr 5516 df-se 5517 df-we 5518 df-xp 5563 df-rel 5564 df-cnv 5565 df-co 5566 df-dm 5567 df-rn 5568 df-res 5569 df-ima 5570 df-pred 6150 df-ord 6196 df-on 6197 df-lim 6198 df-suc 6199 df-iota 6316 df-fun 6359 df-fn 6360 df-f 6361 df-f1 6362 df-fo 6363 df-f1o 6364 df-fv 6365 df-isom 6366 df-riota 7116 df-ov 7161 df-oprab 7162 df-mpo 7163 df-om 7583 df-1st 7691 df-2nd 7692 df-wrecs 7949 df-recs 8010 df-rdg 8048 df-1o 8104 df-er 8291 df-en 8512 df-dom 8513 df-sdom 8514 df-fin 8515 df-oi 8976 df-card 9370 df-pnf 10679 df-mnf 10680 df-xr 10681 df-ltxr 10682 df-le 10683 df-sub 10874 df-neg 10875 df-nn 11641 df-n0 11901 df-z 11985 df-uz 12247 df-icc 12748 df-fz 12896 df-hash 13694

This theorem is referenced by: fourierdlem103 42501 fourierdlem104 42502

W3C validator