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 43317

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 5836	. . . 4 ⊢ (𝐻 ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵))
3	2	a1i 11	. . 3 ⊢ (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵)))
4		pire 25320	. . . . . . . . 9 ⊢ π ∈ ℝ
5	4	renegcli 11122	. . . . . . . 8 ⊢ -π ∈ ℝ
6	5	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -π ∈ ℝ)
7	4	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → π ∈ ℝ)
8		elioore 12948	. . . . . . . 8 ⊢ (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℝ)
9	8	adantl 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
10	5	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → -π ∈ ℝ)
11	4	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → π ∈ ℝ)
12	10, 11	iccssred 13005	. . . . . . . . . . 11 ⊢ (𝜑 → (-π[,]π) ⊆ ℝ)
13		fourierdlem40.a	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐴 ∈ (-π[,]π))
14	12, 13	sseldd 3892	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℝ)
15	14	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
16	5, 4	elicc2i 12984	. . . . . . . . . . . 12 ⊢ (𝐴 ∈ (-π[,]π) ↔ (𝐴 ∈ ℝ ∧ -π ≤ 𝐴 ∧ 𝐴 ≤ π))
17	16	simp2bi 1148	. . . . . . . . . . 11 ⊢ (𝐴 ∈ (-π[,]π) → -π ≤ 𝐴)
18	13, 17	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → -π ≤ 𝐴)
19	18	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -π ≤ 𝐴)
20	15	rexrd 10866	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ^*)
21		fourierdlem40.b	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ (-π[,]π))
22	12, 21	sseldd 3892	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐵 ∈ ℝ)
23	22	rexrd 10866	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐵 ∈ ℝ^*)
24	23	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ^*)
25		simpr 488	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴(,)𝐵))
26		ioogtlb 42660	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
27	20, 24, 25, 26	syl3anc 1373	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
28	6, 15, 9, 19, 27	lelttrd 10973	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -π < 𝑠)
29	6, 9, 28	ltled 10963	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -π ≤ 𝑠)
30	22	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
31		iooltub 42675	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
32	20, 24, 25, 31	syl3anc 1373	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
33	5, 4	elicc2i 12984	. . . . . . . . . . . 12 ⊢ (𝐵 ∈ (-π[,]π) ↔ (𝐵 ∈ ℝ ∧ -π ≤ 𝐵 ∧ 𝐵 ≤ π))
34	33	simp3bi 1149	. . . . . . . . . . 11 ⊢ (𝐵 ∈ (-π[,]π) → 𝐵 ≤ π)
35	21, 34	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ≤ π)
36	35	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ≤ π)
37	9, 30, 7, 32, 36	ltletrd 10975	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < π)
38	9, 7, 37	ltled 10963	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≤ π)
39	6, 7, 9, 29, 38	eliccd 42669	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (-π[,]π))
40	39	ex 416	. . . . 5 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ (-π[,]π)))
41	40	ssrdv 3897	. . . 4 ⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (-π[,]π))
42	41	resmptd 5897	. . 3 ⊢ (𝜑 → ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))))
43		eleq1 2821	. . . . . . . . 9 ⊢ (𝑠 = 0 → (𝑠 ∈ (𝐴(,)𝐵) ↔ 0 ∈ (𝐴(,)𝐵)))
44	43	biimpac 482	. . . . . . . 8 ⊢ ((𝑠 ∈ (𝐴(,)𝐵) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵))
45	44	adantll 714	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵))
46		fourierdlem40.nxelab	. . . . . . . 8 ⊢ (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
47	46	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → ¬ 0 ∈ (𝐴(,)𝐵))
48	45, 47	pm2.65da 817	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 = 0)
49	48	iffalsed 4440	. . . . 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 10845	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ℝ)
55	51, 54	ffvelrnd 6894	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ)
56		fourierdlem40.y	. . . . . . . . . 10 ⊢ (𝜑 → 𝑌 ∈ ℝ)
57		fourierdlem40.w	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ ℝ)
58	56, 57	ifcld 4475	. . . . . . . . 9 ⊢ (𝜑 → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
59	58	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
60	55, 59	resubcld 11243	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℝ)
61	60	recnd 10844	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℂ)
62	9	recnd 10844	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℂ)
63	48	neqned 2942	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≠ 0)
64	61, 62, 63	divrecd 11594	. . . . 5 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠)))
65	49, 64	eqtrd 2774	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠)))
66	65	mpteq2dva 5139	. . 3 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))))
67	3, 42, 66	3eqtrd 2778	. 2 ⊢ (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))))
68	55	recnd 10844	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
69	59	recnd 10844	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℂ)
70	68, 69	negsubd 11178	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊)) = ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)))
71	70	eqcomd 2740	. . . . 5 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) = ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊)))
72	71	mpteq2dva 5139	. . . 4 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊))))
73	14, 52	readdcld 10845	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 𝑋) ∈ ℝ)
74	73	rexrd 10866	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐴 + 𝑋) ∈ ℝ^*)
75	74	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) ∈ ℝ^*)
76	22, 52	readdcld 10845	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐵 + 𝑋) ∈ ℝ)
77	76	rexrd 10866	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐵 + 𝑋) ∈ ℝ^*)
78	77	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐵 + 𝑋) ∈ ℝ^*)
79	14	recnd 10844	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐴 ∈ ℂ)
80	52	recnd 10844	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑋 ∈ ℂ)
81	79, 80	addcomd 11017	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐴 + 𝑋) = (𝑋 + 𝐴))
82	81	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) = (𝑋 + 𝐴))
83	15, 9, 53, 27	ltadd2dd 10974	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) < (𝑋 + 𝑠))
84	82, 83	eqbrtrd 5065	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) < (𝑋 + 𝑠))
85	9, 30, 53, 32	ltadd2dd 10974	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝑋 + 𝐵))
86	22	recnd 10844	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ ℂ)
87	80, 86	addcomd 11017	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑋 + 𝐵) = (𝐵 + 𝑋))
88	87	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐵) = (𝐵 + 𝑋))
89	85, 88	breqtrd 5069	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝐵 + 𝑋))
90	75, 78, 54, 84, 89	eliood 42663	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))
91		fvres 6725	. . . . . . . . 9 ⊢ ((𝑋 + 𝑠) ∈ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) → ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑠)))
92	90, 91	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑠)))
93	92	eqcomd 2740	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) = ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)))
94	93	mpteq2dva 5139	. . . . . 6 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠))))
95		ioosscn 12980	. . . . . . . 8 ⊢ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) ⊆ ℂ
96	95	a1i 11	. . . . . . 7 ⊢ (𝜑 → ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) ⊆ ℂ)
97		fourierdlem40.fcn	. . . . . . 7 ⊢ (𝜑 → (𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋))) ∈ (((𝐴 + 𝑋)(,)(𝐵 + 𝑋))–cn→ℂ))
98		ioosscn 12980	. . . . . . . 8 ⊢ (𝐴(,)𝐵) ⊆ ℂ
99	98	a1i 11	. . . . . . 7 ⊢ (𝜑 → (𝐴(,)𝐵) ⊆ ℂ)
100	96, 97, 99, 80, 90	fourierdlem23 43300	. . . . . 6 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
101	94, 100	eqeltrd 2834	. . . . 5 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
102		0red 10819	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
103	14	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
104	8	adantl 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
105		simplr 769	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ≤ 𝐴)
106	27	adantlr 715	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
107	102, 103, 104, 105, 106	lelttrd 10973	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 < 𝑠)
108	107	iftrued 4437	. . . . . . . . 9 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑌)
109	108	negeqd 11055	. . . . . . . 8 ⊢ (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -if(0 < 𝑠, 𝑌, 𝑊) = -𝑌)
110	109	mpteq2dva 5139	. . . . . . 7 ⊢ ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌))
111	56	renegcld 11242	. . . . . . . . . 10 ⊢ (𝜑 → -𝑌 ∈ ℝ)
112	111	recnd 10844	. . . . . . . . 9 ⊢ (𝜑 → -𝑌 ∈ ℂ)
113		ssid 3913	. . . . . . . . . 10 ⊢ ℂ ⊆ ℂ
114	113	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → ℂ ⊆ ℂ)
115	99, 112, 114	constcncfg 43042	. . . . . . . 8 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌) ∈ ((𝐴(,)𝐵)–cn→ℂ))
116	115	adantr 484	. . . . . . 7 ⊢ ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌) ∈ ((𝐴(,)𝐵)–cn→ℂ))
117	110, 116	eqeltrd 2834	. . . . . 6 ⊢ ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
118	14	rexrd 10866	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℝ^*)
119	118	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐴 ∈ ℝ^*)
120	23	ad2antrr 726	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐵 ∈ ℝ^*)
121		0red 10819	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 ∈ ℝ)
122		simpr 488	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → ¬ 0 ≤ 𝐴)
123	14	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐴 ∈ ℝ)
124		0red 10819	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 0 ∈ ℝ)
125	123, 124	ltnled 10962	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → (𝐴 < 0 ↔ ¬ 0 ≤ 𝐴))
126	122, 125	mpbird 260	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐴 < 0)
127	126	adantr 484	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐴 < 0)
128		simpr 488	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → ¬ 𝐵 ≤ 0)
129		0red 10819	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 0 ∈ ℝ)
130	22	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 𝐵 ∈ ℝ)
131	129, 130	ltnled 10962	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → (0 < 𝐵 ↔ ¬ 𝐵 ≤ 0))
132	128, 131	mpbird 260	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 0 < 𝐵)
133	132	adantlr 715	. . . . . . . . 9 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 < 𝐵)
134	119, 120, 121, 127, 133	eliood 42663	. . . . . . . 8 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 ∈ (𝐴(,)𝐵))
135	46	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → ¬ 0 ∈ (𝐴(,)𝐵))
136	134, 135	condan 818	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐵 ≤ 0)
137	8	adantl 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
138		0red 10819	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
139	22	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
140	32	adantlr 715	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
141		simplr 769	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ≤ 0)
142	137, 139, 138, 140, 141	ltletrd 10975	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 0)
143	137, 138, 142	ltnsymd 10964	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 0 < 𝑠)
144	143	iffalsed 4440	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑊)
145	144	negeqd 11055	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -if(0 < 𝑠, 𝑌, 𝑊) = -𝑊)
146	145	mpteq2dva 5139	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊))
147	57	recnd 10844	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ ℂ)
148	147	negcld 11159	. . . . . . . . . 10 ⊢ (𝜑 → -𝑊 ∈ ℂ)
149	99, 148, 114	constcncfg 43042	. . . . . . . . 9 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊) ∈ ((𝐴(,)𝐵)–cn→ℂ))
150	149	adantr 484	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊) ∈ ((𝐴(,)𝐵)–cn→ℂ))
151	146, 150	eqeltrd 2834	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
152	136, 151	syldan 594	. . . . . 6 ⊢ ((𝜑 ∧ ¬ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
153	117, 152	pm2.61dan 813	. . . . 5 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
154	101, 153	addcncf 24313	. . . 4 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
155	72, 154	eqeltrd 2834	. . 3 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
156		eqid 2734	. . . 4 ⊢ (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) = (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠))
157		1cnd 10811	. . . . 5 ⊢ (𝜑 → 1 ∈ ℂ)
158	156	cdivcncf 23790	. . . . 5 ⊢ (1 ∈ ℂ → (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) ∈ ((ℂ ∖ {0})–cn→ℂ))
159	157, 158	syl 17	. . . 4 ⊢ (𝜑 → (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) ∈ ((ℂ ∖ {0})–cn→ℂ))
160		velsn 4547	. . . . . . . 8 ⊢ (𝑠 ∈ {0} ↔ 𝑠 = 0)
161	48, 160	sylnibr 332	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 ∈ {0})
162	62, 161	eldifd 3868	. . . . . 6 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (ℂ ∖ {0}))
163	162	ralrimiva 3098	. . . . 5 ⊢ (𝜑 → ∀𝑠 ∈ (𝐴(,)𝐵)𝑠 ∈ (ℂ ∖ {0}))
164		dfss3 3879	. . . . 5 ⊢ ((𝐴(,)𝐵) ⊆ (ℂ ∖ {0}) ↔ ∀𝑠 ∈ (𝐴(,)𝐵)𝑠 ∈ (ℂ ∖ {0}))
165	163, 164	sylibr 237	. . . 4 ⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (ℂ ∖ {0}))
166	9, 63	rereccld 11642	. . . . 5 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (1 / 𝑠) ∈ ℝ)
167	166	recnd 10844	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (1 / 𝑠) ∈ ℂ)
168	156, 159, 165, 114, 167	cncfmptssg 43041	. . 3 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (1 / 𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
169	155, 168	mulcncf 24315	. 2 ⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
170	67, 169	eqeltrd 2834	1 ⊢ (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 399 = wceq 1543 ∈ wcel 2110 ∀wral 3054 ∖ cdif 3854 ⊆ wss 3857 ifcif 4429 {csn 4531 class class class wbr 5043 ↦ cmpt 5124 ↾ cres 5542 ⟶wf 6365 ‘cfv 6369 (class class class)co 7202 ℂcc 10710 ℝcr 10711 0cc0 10712 1c1 10713 + caddc 10715 · cmul 10717 ℝ^*cxr 10849 < clt 10850 ≤ cle 10851 − cmin 11045 -cneg 11046 / cdiv 11472 (,)cioo 12918 [,]cicc 12921 πcpi 15609 –cn→ccncf 23745

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1803 ax-4 1817 ax-5 1918 ax-6 1976 ax-7 2016 ax-8 2112 ax-9 2120 ax-10 2141 ax-11 2158 ax-12 2175 ax-ext 2706 ax-rep 5168 ax-sep 5181 ax-nul 5188 ax-pow 5247 ax-pr 5311 ax-un 7512 ax-inf2 9245 ax-cnex 10768 ax-resscn 10769 ax-1cn 10770 ax-icn 10771 ax-addcl 10772 ax-addrcl 10773 ax-mulcl 10774 ax-mulrcl 10775 ax-mulcom 10776 ax-addass 10777 ax-mulass 10778 ax-distr 10779 ax-i2m1 10780 ax-1ne0 10781 ax-1rid 10782 ax-rnegex 10783 ax-rrecex 10784 ax-cnre 10785 ax-pre-lttri 10786 ax-pre-lttrn 10787 ax-pre-ltadd 10788 ax-pre-mulgt0 10789 ax-pre-sup 10790 ax-addf 10791 ax-mulf 10792

This theorem depends on definitions: df-bi 210 df-an 400 df-or 848 df-3or 1090 df-3an 1091 df-tru 1546 df-fal 1556 df-ex 1788 df-nf 1792 df-sb 2071 df-mo 2537 df-eu 2566 df-clab 2713 df-cleq 2726 df-clel 2812 df-nfc 2882 df-ne 2936 df-nel 3040 df-ral 3059 df-rex 3060 df-reu 3061 df-rmo 3062 df-rab 3063 df-v 3403 df-sbc 3688 df-csb 3803 df-dif 3860 df-un 3862 df-in 3864 df-ss 3874 df-pss 3876 df-nul 4228 df-if 4430 df-pw 4505 df-sn 4532 df-pr 4534 df-tp 4536 df-op 4538 df-uni 4810 df-int 4850 df-iun 4896 df-iin 4897 df-br 5044 df-opab 5106 df-mpt 5125 df-tr 5151 df-id 5444 df-eprel 5449 df-po 5457 df-so 5458 df-fr 5498 df-se 5499 df-we 5500 df-xp 5546 df-rel 5547 df-cnv 5548 df-co 5549 df-dm 5550 df-rn 5551 df-res 5552 df-ima 5553 df-pred 6149 df-ord 6205 df-on 6206 df-lim 6207 df-suc 6208 df-iota 6327 df-fun 6371 df-fn 6372 df-f 6373 df-f1 6374 df-fo 6375 df-f1o 6376 df-fv 6377 df-isom 6378 df-riota 7159 df-ov 7205 df-oprab 7206 df-mpo 7207 df-of 7458 df-om 7634 df-1st 7750 df-2nd 7751 df-supp 7893 df-wrecs 8036 df-recs 8097 df-rdg 8135 df-1o 8191 df-2o 8192 df-er 8380 df-map 8499 df-pm 8500 df-ixp 8568 df-en 8616 df-dom 8617 df-sdom 8618 df-fin 8619 df-fsupp 8975 df-fi 9016 df-sup 9047 df-inf 9048 df-oi 9115 df-card 9538 df-pnf 10852 df-mnf 10853 df-xr 10854 df-ltxr 10855 df-le 10856 df-sub 11047 df-neg 11048 df-div 11473 df-nn 11814 df-2 11876 df-3 11877 df-4 11878 df-5 11879 df-6 11880 df-7 11881 df-8 11882 df-9 11883 df-n0 12074 df-z 12160 df-dec 12277 df-uz 12422 df-q 12528 df-rp 12570 df-xneg 12687 df-xadd 12688 df-xmul 12689 df-ioo 12922 df-ioc 12923 df-ico 12924 df-icc 12925 df-fz 13079 df-fzo 13222 df-fl 13350 df-seq 13558 df-exp 13619 df-fac 13823 df-bc 13852 df-hash 13880 df-shft 14613 df-cj 14645 df-re 14646 df-im 14647 df-sqrt 14781 df-abs 14782 df-limsup 15015 df-clim 15032 df-rlim 15033 df-sum 15233 df-ef 15610 df-sin 15612 df-cos 15613 df-pi 15615 df-struct 16686 df-ndx 16687 df-slot 16688 df-base 16690 df-sets 16691 df-ress 16692 df-plusg 16780 df-mulr 16781 df-starv 16782 df-sca 16783 df-vsca 16784 df-ip 16785 df-tset 16786 df-ple 16787 df-ds 16789 df-unif 16790 df-hom 16791 df-cco 16792 df-rest 16899 df-topn 16900 df-0g 16918 df-gsum 16919 df-topgen 16920 df-pt 16921 df-prds 16924 df-xrs 16979 df-qtop 16984 df-imas 16985 df-xps 16987 df-mre 17061 df-mrc 17062 df-acs 17064 df-mgm 18086 df-sgrp 18135 df-mnd 18146 df-submnd 18191 df-mulg 18461 df-cntz 18683 df-cmn 19144 df-psmet 20327 df-xmet 20328 df-met 20329 df-bl 20330 df-mopn 20331 df-fbas 20332 df-fg 20333 df-cnfld 20336 df-top 21763 df-topon 21780 df-topsp 21802 df-bases 21815 df-cld 21888 df-ntr 21889 df-cls 21890 df-nei 21967 df-lp 22005 df-perf 22006 df-cn 22096 df-cnp 22097 df-haus 22184 df-tx 22431 df-hmeo 22624 df-fil 22715 df-fm 22807 df-flim 22808 df-flf 22809 df-xms 23190 df-ms 23191 df-tms 23192 df-cncf 23747 df-limc 24735 df-dv 24736

This theorem is referenced by: fourierdlem103 43379 fourierdlem104 43380

W3C validator