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 46516

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 13362	. . . . . 6 ⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
6	2, 5	sstrd 3946	. . . . 5 ⊢ (𝜑 → 𝑇 ⊆ ℝ)
7		fourierdlem52.s	. . . . 5 ⊢ 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝑇))
8		fourierdlem52.n	. . . . 5 ⊢ 𝑁 = ((♯‘𝑇) − 1)
9	1, 6, 7, 8	fourierdlem36 46501	. . . 4 ⊢ (𝜑 → 𝑆 Isom < , < ((0...𝑁), 𝑇))
10		isof1o 7279	. . . 4 ⊢ (𝑆 Isom < , < ((0...𝑁), 𝑇) → 𝑆:(0...𝑁)–1-1-onto→𝑇)
11		f1of 6782	. . . 4 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)⟶𝑇)
12	9, 10, 11	3syl 18	. . 3 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶𝑇)
13	12, 2	fssd 6687	. 2 ⊢ (𝜑 → 𝑆:(0...𝑁)⟶(𝐴[,]𝐵))
14		f1ofo 6789	. . . . . 6 ⊢ (𝑆:(0...𝑁)–1-1-onto→𝑇 → 𝑆:(0...𝑁)–onto→𝑇)
15	9, 10, 14	3syl 18	. . . . 5 ⊢ (𝜑 → 𝑆:(0...𝑁)–onto→𝑇)
16		fourierdlem52.at	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ 𝑇)
17		foelrn 7061	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐴 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
18	15, 16, 17	syl2anc 585	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗))
19		elfzle1 13455	. . . . . . . . 9 ⊢ (𝑗 ∈ (0...𝑁) → 0 ≤ 𝑗)
20	19	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 0 ≤ 𝑗)
21	9	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
22		ressxr 11188	. . . . . . . . . . . 12 ⊢ ℝ ⊆ ℝ^*
23	6, 22	sstrdi 3948	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑇 ⊆ ℝ^*)
24	23	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → 𝑇 ⊆ ℝ^*)
25		fzssz 13454	. . . . . . . . . . 11 ⊢ (0...𝑁) ⊆ ℤ
26		zssre 12507	. . . . . . . . . . . 12 ⊢ ℤ ⊆ ℝ
27	26, 22	sstri 3945	. . . . . . . . . . 11 ⊢ ℤ ⊆ ℝ^*
28	25, 27	sstri 3945	. . . . . . . . . 10 ⊢ (0...𝑁) ⊆ ℝ^*
29	24, 28	jctil 519	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
30		hashcl 14291	. . . . . . . . . . . . . . . 16 ⊢ (𝑇 ∈ Fin → (♯‘𝑇) ∈ ℕ₀)
31	1, 30	syl 17	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ₀)
32	16	ne0d 4296	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑇 ≠ ∅)
33		hashge1 14324	. . . . . . . . . . . . . . . 16 ⊢ ((𝑇 ∈ Fin ∧ 𝑇 ≠ ∅) → 1 ≤ (♯‘𝑇))
34	1, 32, 33	syl2anc 585	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 1 ≤ (♯‘𝑇))
35		elnnnn0c 12458	. . . . . . . . . . . . . . 15 ⊢ ((♯‘𝑇) ∈ ℕ ↔ ((♯‘𝑇) ∈ ℕ₀ ∧ 1 ≤ (♯‘𝑇)))
36	31, 34, 35	sylanbrc 584	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘𝑇) ∈ ℕ)
37		nnm1nn0 12454	. . . . . . . . . . . . . 14 ⊢ ((♯‘𝑇) ∈ ℕ → ((♯‘𝑇) − 1) ∈ ℕ₀)
38	36, 37	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((♯‘𝑇) − 1) ∈ ℕ₀)
39	8, 38	eqeltrid 2841	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
40		nn0uz 12801	. . . . . . . . . . . 12 ⊢ ℕ₀ = (ℤ_≥‘0)
41	39, 40	eleqtrdi 2847	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘0))
42		eluzfz1 13459	. . . . . . . . . . 11 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 0 ∈ (0...𝑁))
43	41, 42	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 0 ∈ (0...𝑁))
44	43	anim1i 616	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁)))
45		leisorel 14395	. . . . . . . . 9 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (0 ∈ (0...𝑁) ∧ 𝑗 ∈ (0...𝑁))) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
46	21, 29, 44, 45	syl3anc 1374	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (0 ≤ 𝑗 ↔ (𝑆‘0) ≤ (𝑆‘𝑗)))
47	20, 46	mpbid 232	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁)) → (𝑆‘0) ≤ (𝑆‘𝑗))
48	47	3adant3 1133	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ (𝑆‘𝑗))
49		eqcom 2744	. . . . . . . 8 ⊢ (𝐴 = (𝑆‘𝑗) ↔ (𝑆‘𝑗) = 𝐴)
50	49	biimpi 216	. . . . . . 7 ⊢ (𝐴 = (𝑆‘𝑗) → (𝑆‘𝑗) = 𝐴)
51	50	3ad2ant3 1136	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘𝑗) = 𝐴)
52	48, 51	breqtrd 5126	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐴 = (𝑆‘𝑗)) → (𝑆‘0) ≤ 𝐴)
53	52	rexlimdv3a 3143	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐴 = (𝑆‘𝑗) → (𝑆‘0) ≤ 𝐴))
54	18, 53	mpd 15	. . 3 ⊢ (𝜑 → (𝑆‘0) ≤ 𝐴)
55	3	rexrd 11194	. . . 4 ⊢ (𝜑 → 𝐴 ∈ ℝ^*)
56	4	rexrd 11194	. . . 4 ⊢ (𝜑 → 𝐵 ∈ ℝ^*)
57	13, 43	ffvelcdmd 7039	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ (𝐴[,]𝐵))
58		iccgelb 13330	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘0) ∈ (𝐴[,]𝐵)) → 𝐴 ≤ (𝑆‘0))
59	55, 56, 57, 58	syl3anc 1374	. . 3 ⊢ (𝜑 → 𝐴 ≤ (𝑆‘0))
60	5, 57	sseldd 3936	. . . 4 ⊢ (𝜑 → (𝑆‘0) ∈ ℝ)
61	60, 3	letri3d 11287	. . 3 ⊢ (𝜑 → ((𝑆‘0) = 𝐴 ↔ ((𝑆‘0) ≤ 𝐴 ∧ 𝐴 ≤ (𝑆‘0))))
62	54, 59, 61	mpbir2and 714	. 2 ⊢ (𝜑 → (𝑆‘0) = 𝐴)
63		eluzfz2 13460	. . . . . 6 ⊢ (𝑁 ∈ (ℤ_≥‘0) → 𝑁 ∈ (0...𝑁))
64	41, 63	syl 17	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (0...𝑁))
65	13, 64	ffvelcdmd 7039	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ (𝐴[,]𝐵))
66		iccleub 13329	. . . 4 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ (𝑆‘𝑁) ∈ (𝐴[,]𝐵)) → (𝑆‘𝑁) ≤ 𝐵)
67	55, 56, 65, 66	syl3anc 1374	. . 3 ⊢ (𝜑 → (𝑆‘𝑁) ≤ 𝐵)
68		fourierdlem52.bt	. . . . 5 ⊢ (𝜑 → 𝐵 ∈ 𝑇)
69		foelrn 7061	. . . . 5 ⊢ ((𝑆:(0...𝑁)–onto→𝑇 ∧ 𝐵 ∈ 𝑇) → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
70	15, 68, 69	syl2anc 585	. . . 4 ⊢ (𝜑 → ∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗))
71		simp3 1139	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 = (𝑆‘𝑗))
72		elfzle2 13456	. . . . . . . 8 ⊢ (𝑗 ∈ (0...𝑁) → 𝑗 ≤ 𝑁)
73	72	3ad2ant2 1135	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ≤ 𝑁)
74	9	3ad2ant1 1134	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑆 Isom < , < ((0...𝑁), 𝑇))
75	29	3adant3 1133	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*))
76		simp2 1138	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑗 ∈ (0...𝑁))
77	64	3ad2ant1 1134	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝑁 ∈ (0...𝑁))
78		leisorel 14395	. . . . . . . 8 ⊢ ((𝑆 Isom < , < ((0...𝑁), 𝑇) ∧ ((0...𝑁) ⊆ ℝ^* ∧ 𝑇 ⊆ ℝ^*) ∧ (𝑗 ∈ (0...𝑁) ∧ 𝑁 ∈ (0...𝑁))) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
79	74, 75, 76, 77, 78	syl112anc 1377	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑗 ≤ 𝑁 ↔ (𝑆‘𝑗) ≤ (𝑆‘𝑁)))
80	73, 79	mpbid 232	. . . . . 6 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → (𝑆‘𝑗) ≤ (𝑆‘𝑁))
81	71, 80	eqbrtrd 5122	. . . . 5 ⊢ ((𝜑 ∧ 𝑗 ∈ (0...𝑁) ∧ 𝐵 = (𝑆‘𝑗)) → 𝐵 ≤ (𝑆‘𝑁))
82	81	rexlimdv3a 3143	. . . 4 ⊢ (𝜑 → (∃𝑗 ∈ (0...𝑁)𝐵 = (𝑆‘𝑗) → 𝐵 ≤ (𝑆‘𝑁)))
83	70, 82	mpd 15	. . 3 ⊢ (𝜑 → 𝐵 ≤ (𝑆‘𝑁))
84	5, 65	sseldd 3936	. . . 4 ⊢ (𝜑 → (𝑆‘𝑁) ∈ ℝ)
85	84, 4	letri3d 11287	. . 3 ⊢ (𝜑 → ((𝑆‘𝑁) = 𝐵 ↔ ((𝑆‘𝑁) ≤ 𝐵 ∧ 𝐵 ≤ (𝑆‘𝑁))))
86	67, 83, 85	mpbir2and 714	. 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 1087 = wceq 1542 ∈ wcel 2114 ≠ wne 2933 ∃wrex 3062 ⊆ wss 3903 ∅c0 4287 class class class wbr 5100 ℩cio 6454 ⟶wf 6496 –onto→wfo 6498 –1-1-onto→wf1o 6499 ‘cfv 6500 Isom wiso 6501 (class class class)co 7368 Fincfn 8895 ℝcr 11037 0cc0 11038 1c1 11039 ℝ^*cxr 11177 < clt 11178 ≤ cle 11179 − cmin 11376 ℕcn 12157 ℕ₀cn0 12413 ℤcz 12500 ℤ_≥cuz 12763 [,]cicc 13276 ...cfz 13435 ♯chash 14265

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5226 ax-sep 5243 ax-nul 5253 ax-pow 5312 ax-pr 5379 ax-un 7690 ax-inf2 9562 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3352 df-reu 3353 df-rab 3402 df-v 3444 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4288 df-if 4482 df-pw 4558 df-sn 4583 df-pr 4585 df-op 4589 df-uni 4866 df-int 4905 df-iun 4950 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5527 df-eprel 5532 df-po 5540 df-so 5541 df-fr 5585 df-se 5586 df-we 5587 df-xp 5638 df-rel 5639 df-cnv 5640 df-co 5641 df-dm 5642 df-rn 5643 df-res 5644 df-ima 5645 df-pred 6267 df-ord 6328 df-on 6329 df-lim 6330 df-suc 6331 df-iota 6456 df-fun 6502 df-fn 6503 df-f 6504 df-f1 6505 df-fo 6506 df-f1o 6507 df-fv 6508 df-isom 6509 df-riota 7325 df-ov 7371 df-oprab 7372 df-mpo 7373 df-om 7819 df-1st 7943 df-2nd 7944 df-frecs 8233 df-wrecs 8264 df-recs 8313 df-rdg 8351 df-1o 8407 df-er 8645 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-oi 9427 df-card 9863 df-pnf 11180 df-mnf 11181 df-xr 11182 df-ltxr 11183 df-le 11184 df-sub 11378 df-neg 11379 df-nn 12158 df-n0 12414 df-z 12501 df-uz 12764 df-icc 13280 df-fz 13436 df-hash 14266

This theorem is referenced by: fourierdlem103 46567 fourierdlem104 46568

W3C validator