fourierdlem40 - Mathbox for Glauco Siliprandi

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

Theorem fourierdlem40 46682

Description: 𝐻 is a continuous function on any partition interval. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

**Hypotheses**
Ref	Expression
fourierdlem40.f	⊢ (𝜑 → 𝐹:ℝ⟶ℝ)
fourierdlem40.a	⊢ (𝜑 → 𝐴 ∈ (-π[,]π))
fourierdlem40.b	⊢ (𝜑 → 𝐵 ∈ (-π[,]π))
fourierdlem40.x	⊢ (𝜑 → 𝑋 ∈ ℝ)
fourierdlem40.nxelab	⊢ (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
fourierdlem40.fcn	⊢ (𝜑 → (𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋))) ∈ (((𝐴 + 𝑋)(,)(𝐵 + 𝑋))–cn→ℂ))
fourierdlem40.y	⊢ (𝜑 → 𝑌 ∈ ℝ)
fourierdlem40.w	⊢ (𝜑 → 𝑊 ∈ ℝ)
fourierdlem40.h	⊢ 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))

**Assertion**
Ref	Expression
fourierdlem40	⊢ (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ))

Distinct variable groups: 𝐴,𝑠 𝐵,𝑠 𝐹,𝑠 𝑊,𝑠 𝑋,𝑠 𝑌,𝑠 𝜑,𝑠 Allowed substitution hint: 𝐻(𝑠)

**Proof of Theorem fourierdlem40**
Step	Hyp	Ref	Expression
1		fourierdlem40.h	. . . . 5 ⊢ 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
2	1	reseq1i 5957	. . . 4 ⊢ (𝐻 ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵))
3	2	a1i 11	. . 3 ⊢ (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵)))
4		pire 26507	. . . . . . . . 9 ⊢ π ∈ ℝ
5	4	renegcli 11486	. . . . . . . 8 ⊢ -π ∈ ℝ
6	5	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -π ∈ ℝ)
7	4	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → π ∈ ℝ)
8		elioore 13373	. . . . . . . 8 ⊢ (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℝ)
9	8	adantl 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
10	5	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → -π ∈ ℝ)
11	4	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → π ∈ ℝ)
12	10, 11	iccssred 13432	. . . . . . . . . . 11 ⊢ (𝜑 → (-π[,]π) ⊆ ℝ)
13		fourierdlem40.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (-π[,]π))
14	12, 13	sseldd 3935	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℝ)
15	14	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
16	5, 4	elicc2i 13410	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (-π[,]π) ↔ (𝐴 ∈ ℝ ∧ -π ≤ 𝐴 ∧ 𝐴 ≤ π))
17	16	simp2bi 1158	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (-π[,]π) → -π ≤ 𝐴)
18	13, 17	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → -π ≤ 𝐴)
19	18	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -π ≤ 𝐴)
20	15	rexrd 11226	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ^*)
21		fourierdlem40.b	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ (-π[,]π))
22	12, 21	sseldd 3935	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
23	22	rexrd 11226	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 ∈ ℝ^*)
24	23	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ^*)
25		simpr 488	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴(,)𝐵))
26		ioogtlb 46032	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
27	20, 24, 25, 26	syl3anc 1389	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
28	6, 15, 9, 19, 27	lelttrd 11335	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -π < 𝑠)
29	6, 9, 28	ltled 11325	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -π ≤ 𝑠)
30	22	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
31		iooltub 46047	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
32	20, 24, 25, 31	syl3anc 1389	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
33	5, 4	elicc2i 13410	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ (-π[,]π) ↔ (𝐵 ∈ ℝ ∧ -π ≤ 𝐵 ∧ 𝐵 ≤ π))
34	33	simp3bi 1159	. . . . . . . . . . 11 ⊢ (𝐵 ∈ (-π[,]π) → 𝐵 ≤ π)
35	21, 34	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ≤ π)
36	35	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ≤ π)
37	9, 30, 7, 32, 36	ltletrd 11337	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < π)
38	9, 7, 37	ltled 11325	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≤ π)
39	6, 7, 9, 29, 38	eliccd 46041	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (-π[,]π))
40	39	ex 416	. . . . 5 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ (-π[,]π)))
41	40	ssrdv 3940	. . . 4 ⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (-π[,]π))
42	41	resmptd 6025	. . 3 ⊢ (𝜑 → ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))))
43		eleq1 2849	. . . . . . . . 9 ⊢ (𝑠 = 0 → (𝑠 ∈ (𝐴(,)𝐵) ↔ 0 ∈ (𝐴(,)𝐵)))
44	43	biimpac 482	. . . . . . . 8 ⊢ ((𝑠 ∈ (𝐴(,)𝐵) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵))
45	44	adantll 724	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵))
46		fourierdlem40.nxelab	. . . . . . . 8 ⊢ (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
47	46	ad2antrr 736	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → ¬ 0 ∈ (𝐴(,)𝐵))
48	45, 47	pm2.65da 826	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 = 0)
49	48	iffalsed 4488	. . . . 5 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))
50		fourierdlem40.f	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:ℝ⟶ℝ)
51	50	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐹:ℝ⟶ℝ)
52		fourierdlem40.x	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑋 ∈ ℝ)
53	52	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑋 ∈ ℝ)
54	53, 9	readdcld 11205	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ℝ)
55	51, 54	ffvelcdmd 7061	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ)
56		fourierdlem40.y	. . . . . . . . . 10 ⊢ (𝜑 → 𝑌 ∈ ℝ)
57		fourierdlem40.w	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ ℝ)
58	56, 57	ifcld 4524	. . . . . . . . 9 ⊢ (𝜑 → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
59	58	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
60	55, 59	resubcld 11609	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℝ)
61	60	recnd 11204	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℂ)
62	9	recnd 11204	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℂ)
63	48	neqned 2963	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≠ 0)
64	61, 62, 63	divrecd 11964	. . . . 5 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠)))
65	49, 64	eqtrd 2796	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠)))
66	65	mpteq2dva 5190	. . 3 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))))
67	3, 42, 66	3eqtrd 2800	. 2 ⊢ (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))))
68	55	recnd 11204	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
69	59	recnd 11204	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℂ)
70	68, 69	negsubd 11542	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊)) = ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)))
71	70	eqcomd 2767	. . . . 5 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) = ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊)))
72	71	mpteq2dva 5190	. . . 4 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊))))
73	14, 52	readdcld 11205	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 𝑋) ∈ ℝ)
74	73	rexrd 11226	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 + 𝑋) ∈ ℝ^*)
75	74	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) ∈ ℝ^*)
76	22, 52	readdcld 11205	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵 + 𝑋) ∈ ℝ)
77	76	rexrd 11226	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 + 𝑋) ∈ ℝ^*)
78	77	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐵 + 𝑋) ∈ ℝ^*)
79	14	recnd 11204	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ ℂ)
80	52	recnd 11204	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑋 ∈ ℂ)
81	79, 80	addcomd 11379	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 𝑋) = (𝑋 + 𝐴))
82	81	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) = (𝑋 + 𝐴))
83	15, 9, 53, 27	ltadd2dd 11336	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) < (𝑋 + 𝑠))
84	82, 83	eqbrtrd 5119	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) < (𝑋 + 𝑠))
85	9, 30, 53, 32	ltadd2dd 11336	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝑋 + 𝐵))
86	22	recnd 11204	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ ℂ)
87	80, 86	addcomd 11379	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑋 + 𝐵) = (𝐵 + 𝑋))
88	87	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐵) = (𝐵 + 𝑋))
89	85, 88	breqtrd 5123	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝐵 + 𝑋))
90	75, 78, 54, 84, 89	eliood 46035	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))
91		fvres 6881	. . . . . . . . 9 ⊢ ((𝑋 + 𝑠) ∈ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) → ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑠)))
92	90, 91	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑠)))
93	92	eqcomd 2767	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) = ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)))
94	93	mpteq2dva 5190	. . . . . 6 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠))))
95		ioosscn 13406	. . . . . . . 8 ⊢ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) ⊆ ℂ
96	95	a1i 11	. . . . . . 7 ⊢ (𝜑 → ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) ⊆ ℂ)
97		fourierdlem40.fcn	. . . . . . 7 ⊢ (𝜑 → (𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋))) ∈ (((𝐴 + 𝑋)(,)(𝐵 + 𝑋))–cn→ℂ))
98		ioosscn 13406	. . . . . . . 8 ⊢ (𝐴(,)𝐵) ⊆ ℂ
99	98	a1i 11	. . . . . . 7 ⊢ (𝜑 → (𝐴(,)𝐵) ⊆ ℂ)
100	96, 97, 99, 80, 90	fourierdlem23 46665	. . . . . 6 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
101	94, 100	eqeltrd 2861	. . . . 5 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
102		0red 11178	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
103	14	ad2antrr 736	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
104	8	adantl 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
105		simplr 778	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ≤ 𝐴)
106	27	adantlr 725	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
107	102, 103, 104, 105, 106	lelttrd 11335	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 < 𝑠)
108	107	iftrued 4485	. . . . . . . . 9 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑌)
109	108	negeqd 11418	. . . . . . . 8 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -if(0 < 𝑠, 𝑌, 𝑊) = -𝑌)
110	109	mpteq2dva 5190	. . . . . . 7 ⊢ ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌))
111	56	renegcld 11608	. . . . . . . . . 10 ⊢ (𝜑 → -𝑌 ∈ ℝ)
112	111	recnd 11204	. . . . . . . . 9 ⊢ (𝜑 → -𝑌 ∈ ℂ)
113		ssid 3956	. . . . . . . . . 10 ⊢ ℂ ⊆ ℂ
114	113	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → ℂ ⊆ ℂ)
115	99, 112, 114	constcncfg 46407	. . . . . . . 8 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌) ∈ ((𝐴(,)𝐵)–cn→ℂ))
116	115	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌) ∈ ((𝐴(,)𝐵)–cn→ℂ))
117	110, 116	eqeltrd 2861	. . . . . 6 ⊢ ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
118	14	rexrd 11226	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℝ^*)
119	118	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐴 ∈ ℝ^*)
120	23	ad2antrr 736	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐵 ∈ ℝ^*)
121		0red 11178	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 ∈ ℝ)
122		simpr 488	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → ¬ 0 ≤ 𝐴)
123	14	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐴 ∈ ℝ)
124		0red 11178	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 0 ∈ ℝ)
125	123, 124	ltnled 11324	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → (𝐴 < 0 ↔ ¬ 0 ≤ 𝐴))
126	122, 125	mpbird 259	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐴 < 0)
127	126	adantr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐴 < 0)
128		simpr 488	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → ¬ 𝐵 ≤ 0)
129		0red 11178	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 0 ∈ ℝ)
130	22	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 𝐵 ∈ ℝ)
131	129, 130	ltnled 11324	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → (0 < 𝐵 ↔ ¬ 𝐵 ≤ 0))
132	128, 131	mpbird 259	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 0 < 𝐵)
133	132	adantlr 725	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 < 𝐵)
134	119, 120, 121, 127, 133	eliood 46035	. . . . . . . 8 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 ∈ (𝐴(,)𝐵))
135	46	ad2antrr 736	. . . . . . . 8 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → ¬ 0 ∈ (𝐴(,)𝐵))
136	134, 135	condan 827	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐵 ≤ 0)
137	8	adantl 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
138		0red 11178	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
139	22	ad2antrr 736	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
140	32	adantlr 725	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
141		simplr 778	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ≤ 0)
142	137, 139, 138, 140, 141	ltletrd 11337	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 0)
143	137, 138, 142	ltnsymd 11326	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 0 < 𝑠)
144	143	iffalsed 4488	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑊)
145	144	negeqd 11418	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -if(0 < 𝑠, 𝑌, 𝑊) = -𝑊)
146	145	mpteq2dva 5190	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊))
147	57	recnd 11204	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ ℂ)
148	147	negcld 11523	. . . . . . . . . 10 ⊢ (𝜑 → -𝑊 ∈ ℂ)
149	99, 148, 114	constcncfg 46407	. . . . . . . . 9 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊) ∈ ((𝐴(,)𝐵)–cn→ℂ))
150	149	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊) ∈ ((𝐴(,)𝐵)–cn→ℂ))
151	146, 150	eqeltrd 2861	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
152	136, 151	syldan 600	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
153	117, 152	pm2.61dan 822	. . . . 5 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
154	101, 153	addcncf 25494	. . . 4 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
155	72, 154	eqeltrd 2861	. . 3 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
156		eqid 2761	. . . 4 ⊢ (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) = (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠))
157		1cnd 11169	. . . . 5 ⊢ (𝜑 → 1 ∈ ℂ)
158	156	cdivcncf 24971	. . . . 5 ⊢ (1 ∈ ℂ → (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) ∈ ((ℂ ∖ {0})–cn→ℂ))
159	157, 158	syl 17	. . . 4 ⊢ (𝜑 → (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) ∈ ((ℂ ∖ {0})–cn→ℂ))
160		velsn 4595	. . . . . . . 8 ⊢ (𝑠 ∈ {0} ↔ 𝑠 = 0)
161	48, 160	sylnibr 331	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 ∈ {0})
162	62, 161	eldifd 3913	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (ℂ ∖ {0}))
163	162	ralrimiva 3153	. . . . 5 ⊢ (𝜑 → ∀𝑠 ∈ (𝐴(,)𝐵)𝑠 ∈ (ℂ ∖ {0}))
164		dfss3 3923	. . . . 5 ⊢ ((𝐴(,)𝐵) ⊆ (ℂ ∖ {0}) ↔ ∀𝑠 ∈ (𝐴(,)𝐵)𝑠 ∈ (ℂ ∖ {0}))
165	163, 164	sylibr 236	. . . 4 ⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (ℂ ∖ {0}))
166	9, 63	rereccld 12012	. . . . 5 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (1 / 𝑠) ∈ ℝ)
167	166	recnd 11204	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (1 / 𝑠) ∈ ℂ)
168	156, 159, 165, 114, 167	cncfmptssg 46406	. . 3 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (1 / 𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
169	155, 168	mulcncf 25496	. 2 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
170	67, 169	eqeltrd 2861	1 ⊢ (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 399 = wceq 1559 ∈ wcel 2141 ∀wral 3075 ∖ cdif 3899 ⊆ wss 3902 ifcif 4477 {csn 4579 class class class wbr 5097 ↦ cmpt 5178 ↾ cres 5645 ⟶wf 6512 ‘cfv 6516 (class class class)co 7391 ℂcc 11065 ℝcr 11066 0cc0 11067 1c1 11068 + caddc 11070 · cmul 11072 ℝ^*cxr 11209 < clt 11210 ≤ cle 11211 − cmin 11408 -cneg 11409 / cdiv 11838 (,)cioo 13343 [,]cicc 13346 πcpi 16087 –cn→ccncf 24926

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1814 ax-4 1828 ax-5 1929 ax-6 1986 ax-7 2027 ax-8 2143 ax-9 2151 ax-10 2174 ax-11 2190 ax-12 2211 ax-ext 2733 ax-rep 5224 ax-sep 5243 ax-nul 5253 ax-pow 5319 ax-pr 5387 ax-un 7713 ax-inf2 9590 ax-cnex 11123 ax-resscn 11124 ax-1cn 11125 ax-icn 11126 ax-addcl 11127 ax-addrcl 11128 ax-mulcl 11129 ax-mulrcl 11130 ax-mulcom 11131 ax-addass 11132 ax-mulass 11133 ax-distr 11134 ax-i2m1 11135 ax-1ne0 11136 ax-1rid 11137 ax-rnegex 11138 ax-rrecex 11139 ax-cnre 11140 ax-pre-lttri 11141 ax-pre-lttrn 11142 ax-pre-ltadd 11143 ax-pre-mulgt0 11144 ax-pre-sup 11145 ax-addf 11146

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1098 df-3an 1099 df-tru 1562 df-fal 1572 df-ex 1799 df-nf 1803 df-sb 2090 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3061 df-ral 3076 df-rex 3086 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3455 df-sbc 3743 df-csb 3851 df-dif 3905 df-un 3907 df-in 3909 df-ss 3919 df-pss 3922 df-nul 4284 df-if 4478 df-pw 4554 df-sn 4580 df-pr 4582 df-tp 4584 df-op 4586 df-uni 4863 df-int 4903 df-iun 4948 df-iin 4949 df-br 5098 df-opab 5160 df-mpt 5179 df-tr 5205 df-id 5538 df-eprel 5543 df-po 5551 df-so 5552 df-fr 5596 df-se 5597 df-we 5598 df-xp 5649 df-rel 5650 df-cnv 5651 df-co 5652 df-dm 5653 df-rn 5654 df-res 5655 df-ima 5656 df-pred 6283 df-ord 6344 df-on 6345 df-lim 6346 df-suc 6347 df-iota 6472 df-fun 6518 df-fn 6519 df-f 6520 df-f1 6521 df-fo 6522 df-f1o 6523 df-fv 6524 df-isom 6525 df-riota 7348 df-ov 7394 df-oprab 7395 df-mpo 7396 df-of 7655 df-om 7842 df-1st 7965 df-2nd 7966 df-supp 8135 df-frecs 8256 df-wrecs 8287 df-recs 8336 df-rdg 8375 df-1o 8431 df-2o 8432 df-er 8672 df-map 8804 df-pm 8805 df-ixp 8874 df-en 8922 df-dom 8923 df-sdom 8924 df-fin 8925 df-fsupp 9302 df-fi 9351 df-sup 9382 df-inf 9383 df-oi 9452 df-card 9891 df-pnf 11212 df-mnf 11213 df-xr 11214 df-ltxr 11215 df-le 11216 df-sub 11410 df-neg 11411 df-div 11839 df-nn 12205 df-2 12274 df-3 12275 df-4 12276 df-5 12277 df-6 12278 df-7 12279 df-8 12280 df-9 12281 df-n0 12476 df-z 12563 df-dec 12683 df-uz 12834 df-q 12944 df-rp 12988 df-xneg 13108 df-xadd 13109 df-xmul 13110 df-ioo 13347 df-ioc 13348 df-ico 13349 df-icc 13350 df-fz 13507 df-fzo 13654 df-fl 13796 df-seq 14009 df-exp 14069 df-fac 14281 df-bc 14310 df-hash 14338 df-shft 15074 df-cj 15117 df-re 15118 df-im 15119 df-sqrt 15253 df-abs 15254 df-limsup 15489 df-clim 15506 df-rlim 15507 df-sum 15705 df-ef 16088 df-sin 16090 df-cos 16091 df-pi 16093 df-struct 17174 df-sets 17191 df-slot 17209 df-ndx 17221 df-base 17237 df-ress 17258 df-plusg 17290 df-mulr 17291 df-starv 17292 df-sca 17293 df-vsca 17294 df-ip 17295 df-tset 17296 df-ple 17297 df-ds 17299 df-unif 17300 df-hom 17301 df-cco 17302 df-rest 17442 df-topn 17443 df-0g 17461 df-gsum 17462 df-topgen 17463 df-pt 17464 df-prds 17467 df-xrs 17523 df-qtop 17528 df-imas 17529 df-xps 17531 df-mre 17605 df-mrc 17606 df-acs 17608 df-mgm 18665 df-sgrp 18744 df-mnd 18760 df-submnd 18809 df-mulg 19101 df-cntz 19348 df-cmn 19813 df-psmet 21404 df-xmet 21405 df-met 21406 df-bl 21407 df-mopn 21408 df-fbas 21409 df-fg 21410 df-cnfld 21413 df-top 22942 df-topon 22959 df-topsp 22981 df-bases 22994 df-cld 23067 df-ntr 23068 df-cls 23069 df-nei 23146 df-lp 23184 df-perf 23185 df-cn 23275 df-cnp 23276 df-haus 23363 df-tx 23610 df-hmeo 23803 df-fil 23894 df-fm 23986 df-flim 23987 df-flf 23988 df-xms 24368 df-ms 24369 df-tms 24370 df-cncf 24928 df-limc 25916 df-dv 25917

This theorem is referenced by: fourierdlem103 46744 fourierdlem104 46745

W3C validator