itgioocnicc - Mathbox for Glauco Siliprandi

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

Theorem itgioocnicc 45598

Description: The integral of a piecewise continuous function 𝐹 on an open interval is equal to the integral of the continuous function 𝐺, in the corresponding closed interval. 𝐺 is equal to 𝐹 on the open interval, but it is continuous at the two boundaries, also. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

**Hypotheses**
Ref	Expression
itgioocnicc.a	⊢ (𝜑 → 𝐴 ∈ ℝ)
itgioocnicc.b	⊢ (𝜑 → 𝐵 ∈ ℝ)
itgioocnicc.f	⊢ (𝜑 → 𝐹:dom 𝐹⟶ℂ)
itgioocnicc.fcn	⊢ (𝜑 → (𝐹 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
itgioocnicc.fdom	⊢ (𝜑 → (𝐴[,]𝐵) ⊆ dom 𝐹)
itgioocnicc.r	⊢ (𝜑 → 𝑅 ∈ ((𝐹 ↾ (𝐴(,)𝐵)) lim_ℂ 𝐴))
itgioocnicc.l	⊢ (𝜑 → 𝐿 ∈ ((𝐹 ↾ (𝐴(,)𝐵)) lim_ℂ 𝐵))
itgioocnicc.g	⊢ 𝐺 = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))))

**Assertion**
Ref	Expression
itgioocnicc	⊢ (𝜑 → (𝐺 ∈ 𝐿¹ ∧ ∫(𝐴[,]𝐵)(𝐺‘𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹‘𝑥) d𝑥))

Distinct variable groups: 𝑥,𝐴 𝑥,𝐵 𝑥,𝐹 𝑥,𝐿 𝑥,𝑅 𝜑,𝑥 Allowed substitution hint: 𝐺(𝑥)

**Proof of Theorem itgioocnicc**
Step	Hyp	Ref	Expression
1		itgioocnicc.a	. . 3 ⊢ (𝜑 → 𝐴 ∈ ℝ)
2		itgioocnicc.b	. . 3 ⊢ (𝜑 → 𝐵 ∈ ℝ)
3		itgioocnicc.g	. . . . 5 ⊢ 𝐺 = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))))
4		iftrue 4539	. . . . . . . . 9 ⊢ (𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = 𝑅)
5		iftrue 4539	. . . . . . . . 9 ⊢ (𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))) = 𝑅)
6	4, 5	eqtr4d 2769	. . . . . . . 8 ⊢ (𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
7	6	adantl 480	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
8		iftrue 4539	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)) = 𝐿)
9		iftrue 4539	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)) = 𝐿)
10	8, 9	eqtr4d 2769	. . . . . . . . . . 11 ⊢ (𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)) = if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))
11	10	adantl 480	. . . . . . . . . 10 ⊢ ((¬ 𝑥 = 𝐴 ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)) = if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))
12	11	ifeq2d 4553	. . . . . . . . 9 ⊢ ((¬ 𝑥 = 𝐴 ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
13	12	adantll 712	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
14		iffalse 4542	. . . . . . . . . 10 ⊢ (¬ 𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)))
15	14	ad2antlr 725	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)))
16		iffalse 4542	. . . . . . . . . 10 ⊢ (¬ 𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)) = (𝐹‘𝑥))
17	16	adantl 480	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)) = (𝐹‘𝑥))
18		iffalse 4542	. . . . . . . . . . 11 ⊢ (¬ 𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))) = if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))
19	18	ad2antlr 725	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))) = if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))
20		iffalse 4542	. . . . . . . . . . 11 ⊢ (¬ 𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)) = ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))
21	20	adantl 480	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)) = ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))
22	1	adantr 479	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝐴 ∈ ℝ)
23	22	rexrd 11314	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝐴 ∈ ℝ^*)
24	23	ad2antrr 724	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝐴 ∈ ℝ^*)
25	2	rexrd 11314	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵 ∈ ℝ^*)
26	25	ad3antrrr 728	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝐵 ∈ ℝ^*)
27	2	adantr 479	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝐵 ∈ ℝ)
28		simpr 483	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ (𝐴[,]𝐵))
29		eliccre 45123	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ ℝ)
30	22, 27, 28, 29	syl3anc 1368	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ ℝ)
31	30	ad2antrr 724	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝑥 ∈ ℝ)
32	1	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝐴 ∈ ℝ)
33	30	adantr 479	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝑥 ∈ ℝ)
34	25	adantr 479	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝐵 ∈ ℝ^*)
35		iccgelb 13434	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝐴 ≤ 𝑥)
36	23, 34, 28, 35	syl3anc 1368	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝐴 ≤ 𝑥)
37	36	adantr 479	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝐴 ≤ 𝑥)
38		neqne 2938	. . . . . . . . . . . . . . 15 ⊢ (¬ 𝑥 = 𝐴 → 𝑥 ≠ 𝐴)
39	38	adantl 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝑥 ≠ 𝐴)
40	32, 33, 37, 39	leneltd 11418	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝐴 < 𝑥)
41	40	adantr 479	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝐴 < 𝑥)
42	30	adantr 479	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝑥 ∈ ℝ)
43	2	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝐵 ∈ ℝ)
44		iccleub 13433	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℝ^* ∧ 𝐵 ∈ ℝ^* ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ≤ 𝐵)
45	23, 34, 28, 44	syl3anc 1368	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ≤ 𝐵)
46	45	adantr 479	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝑥 ≤ 𝐵)
47		eqcom 2733	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 = 𝐵 ↔ 𝐵 = 𝑥)
48	47	notbii 319	. . . . . . . . . . . . . . . . 17 ⊢ (¬ 𝑥 = 𝐵 ↔ ¬ 𝐵 = 𝑥)
49	48	biimpi 215	. . . . . . . . . . . . . . . 16 ⊢ (¬ 𝑥 = 𝐵 → ¬ 𝐵 = 𝑥)
50	49	neqned 2937	. . . . . . . . . . . . . . 15 ⊢ (¬ 𝑥 = 𝐵 → 𝐵 ≠ 𝑥)
51	50	adantl 480	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝐵 ≠ 𝑥)
52	42, 43, 46, 51	leneltd 11418	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝑥 < 𝐵)
53	52	adantlr 713	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝑥 < 𝐵)
54	24, 26, 31, 41, 53	eliood 45116	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝑥 ∈ (𝐴(,)𝐵))
55		fvres 6920	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (𝐴(,)𝐵) → ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥) = (𝐹‘𝑥))
56	54, 55	syl 17	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥) = (𝐹‘𝑥))
57	19, 21, 56	3eqtrrd 2771	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → (𝐹‘𝑥) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
58	15, 17, 57	3eqtrd 2770	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
59	13, 58	pm2.61dan 811	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
60	7, 59	pm2.61dan 811	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
61	60	mpteq2dva 5253	. . . . 5 ⊢ (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)))) = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))))
62	3, 61	eqtrid 2778	. . . 4 ⊢ (𝜑 → 𝐺 = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))))
63		nfv 1910	. . . . 5 ⊢ Ⅎ𝑥𝜑
64		eqid 2726	. . . . 5 ⊢ (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))) = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
65		itgioocnicc.fcn	. . . . 5 ⊢ (𝜑 → (𝐹 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
66		itgioocnicc.l	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ ((𝐹 ↾ (𝐴(,)𝐵)) lim_ℂ 𝐵))
67		itgioocnicc.r	. . . . 5 ⊢ (𝜑 → 𝑅 ∈ ((𝐹 ↾ (𝐴(,)𝐵)) lim_ℂ 𝐴))
68	63, 64, 1, 2, 65, 66, 67	cncfiooicc 45515	. . . 4 ⊢ (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))) ∈ ((𝐴[,]𝐵)–cn→ℂ))
69	62, 68	eqeltrd 2826	. . 3 ⊢ (𝜑 → 𝐺 ∈ ((𝐴[,]𝐵)–cn→ℂ))
70		cniccibl 25861	. . 3 ⊢ ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐺 ∈ ((𝐴[,]𝐵)–cn→ℂ)) → 𝐺 ∈ 𝐿¹)
71	1, 2, 69, 70	syl3anc 1368	. 2 ⊢ (𝜑 → 𝐺 ∈ 𝐿¹)
72	4	adantl 480	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = 𝑅)
73		limccl 25895	. . . . . . . . . . 11 ⊢ ((𝐹 ↾ (𝐴(,)𝐵)) lim_ℂ 𝐴) ⊆ ℂ
74	73, 67	sselid 3977	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ ℂ)
75	74	ad2antrr 724	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑥 = 𝐴) → 𝑅 ∈ ℂ)
76	72, 75	eqeltrd 2826	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) ∈ ℂ)
77	14, 8	sylan9eq 2786	. . . . . . . . . . 11 ⊢ ((¬ 𝑥 = 𝐴 ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = 𝐿)
78	77	adantll 712	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = 𝐿)
79		limccl 25895	. . . . . . . . . . . 12 ⊢ ((𝐹 ↾ (𝐴(,)𝐵)) lim_ℂ 𝐵) ⊆ ℂ
80	79, 66	sselid 3977	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐿 ∈ ℂ)
81	80	ad3antrrr 728	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ 𝑥 = 𝐵) → 𝐿 ∈ ℂ)
82	78, 81	eqeltrd 2826	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) ∈ ℂ)
83	14, 16	sylan9eq 2786	. . . . . . . . . . 11 ⊢ ((¬ 𝑥 = 𝐴 ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = (𝐹‘𝑥))
84	83	adantll 712	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = (𝐹‘𝑥))
85	56	eqcomd 2732	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → (𝐹‘𝑥) = ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))
86		cncff 24904	. . . . . . . . . . . . . 14 ⊢ ((𝐹 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ) → (𝐹 ↾ (𝐴(,)𝐵)):(𝐴(,)𝐵)⟶ℂ)
87	65, 86	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐹 ↾ (𝐴(,)𝐵)):(𝐴(,)𝐵)⟶ℂ)
88	87	ad3antrrr 728	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → (𝐹 ↾ (𝐴(,)𝐵)):(𝐴(,)𝐵)⟶ℂ)
89	88, 54	ffvelcdmd 7099	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥) ∈ ℂ)
90	85, 89	eqeltrd 2826	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → (𝐹‘𝑥) ∈ ℂ)
91	84, 90	eqeltrd 2826	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) ∈ ℂ)
92	82, 91	pm2.61dan 811	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) ∈ ℂ)
93	76, 92	pm2.61dan 811	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) ∈ ℂ)
94	3	fvmpt2 7020	. . . . . . 7 ⊢ ((𝑥 ∈ (𝐴[,]𝐵) ∧ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) ∈ ℂ) → (𝐺‘𝑥) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))))
95	28, 93, 94	syl2anc 582	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → (𝐺‘𝑥) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))))
96	95, 93	eqeltrd 2826	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → (𝐺‘𝑥) ∈ ℂ)
97	1, 2, 96	itgioo 25836	. . . 4 ⊢ (𝜑 → ∫(𝐴(,)𝐵)(𝐺‘𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐺‘𝑥) d𝑥)
98	97	eqcomd 2732	. . 3 ⊢ (𝜑 → ∫(𝐴[,]𝐵)(𝐺‘𝑥) d𝑥 = ∫(𝐴(,)𝐵)(𝐺‘𝑥) d𝑥)
99		ioossicc 13464	. . . . . . 7 ⊢ (𝐴(,)𝐵) ⊆ (𝐴[,]𝐵)
100	99	sseli 3975	. . . . . 6 ⊢ (𝑥 ∈ (𝐴(,)𝐵) → 𝑥 ∈ (𝐴[,]𝐵))
101	100, 95	sylan2 591	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → (𝐺‘𝑥) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))))
102	1	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
103		eliooord 13437	. . . . . . . . . 10 ⊢ (𝑥 ∈ (𝐴(,)𝐵) → (𝐴 < 𝑥 ∧ 𝑥 < 𝐵))
104	103	simpld 493	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝐴(,)𝐵) → 𝐴 < 𝑥)
105	104	adantl 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑥)
106	102, 105	gtned 11399	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 ≠ 𝐴)
107	106	neneqd 2935	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → ¬ 𝑥 = 𝐴)
108	107, 14	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥))) = if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)))
109	100, 30	sylan2 591	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 ∈ ℝ)
110	103	simprd 494	. . . . . . . . 9 ⊢ (𝑥 ∈ (𝐴(,)𝐵) → 𝑥 < 𝐵)
111	110	adantl 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 < 𝐵)
112	109, 111	ltned 11400	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 ≠ 𝐵)
113	112	neneqd 2935	. . . . . 6 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → ¬ 𝑥 = 𝐵)
114	113, 16	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → if(𝑥 = 𝐵, 𝐿, (𝐹‘𝑥)) = (𝐹‘𝑥))
115	101, 108, 114	3eqtrd 2770	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴(,)𝐵)) → (𝐺‘𝑥) = (𝐹‘𝑥))
116	115	itgeq2dv 25802	. . 3 ⊢ (𝜑 → ∫(𝐴(,)𝐵)(𝐺‘𝑥) d𝑥 = ∫(𝐴(,)𝐵)(𝐹‘𝑥) d𝑥)
117		itgioocnicc.f	. . . . . 6 ⊢ (𝜑 → 𝐹:dom 𝐹⟶ℂ)
118	117	adantr 479	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝐹:dom 𝐹⟶ℂ)
119		itgioocnicc.fdom	. . . . . 6 ⊢ (𝜑 → (𝐴[,]𝐵) ⊆ dom 𝐹)
120	119	sselda 3979	. . . . 5 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ dom 𝐹)
121	118, 120	ffvelcdmd 7099	. . . 4 ⊢ ((𝜑 ∧ 𝑥 ∈ (𝐴[,]𝐵)) → (𝐹‘𝑥) ∈ ℂ)
122	1, 2, 121	itgioo 25836	. . 3 ⊢ (𝜑 → ∫(𝐴(,)𝐵)(𝐹‘𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹‘𝑥) d𝑥)
123	98, 116, 122	3eqtrd 2770	. 2 ⊢ (𝜑 → ∫(𝐴[,]𝐵)(𝐺‘𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹‘𝑥) d𝑥)
124	71, 123	jca 510	1 ⊢ (𝜑 → (𝐺 ∈ 𝐿¹ ∧ ∫(𝐴[,]𝐵)(𝐺‘𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹‘𝑥) d𝑥))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 394 = wceq 1534 ∈ wcel 2099 ≠ wne 2930 ⊆ wss 3947 ifcif 4533 class class class wbr 5153 ↦ cmpt 5236 dom cdm 5682 ↾ cres 5684 ⟶wf 6550 ‘cfv 6554 (class class class)co 7424 ℂcc 11156 ℝcr 11157 ℝ^*cxr 11297 < clt 11298 ≤ cle 11299 (,)cioo 13378 [,]cicc 13381 –cn→ccncf 24887 𝐿¹cibl 25637 ∫citg 25638 lim_ℂ climc 25882

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1790 ax-4 1804 ax-5 1906 ax-6 1964 ax-7 2004 ax-8 2101 ax-9 2109 ax-10 2130 ax-11 2147 ax-12 2167 ax-ext 2697 ax-rep 5290 ax-sep 5304 ax-nul 5311 ax-pow 5369 ax-pr 5433 ax-un 7746 ax-inf2 9684 ax-cc 10478 ax-cnex 11214 ax-resscn 11215 ax-1cn 11216 ax-icn 11217 ax-addcl 11218 ax-addrcl 11219 ax-mulcl 11220 ax-mulrcl 11221 ax-mulcom 11222 ax-addass 11223 ax-mulass 11224 ax-distr 11225 ax-i2m1 11226 ax-1ne0 11227 ax-1rid 11228 ax-rnegex 11229 ax-rrecex 11230 ax-cnre 11231 ax-pre-lttri 11232 ax-pre-lttrn 11233 ax-pre-ltadd 11234 ax-pre-mulgt0 11235 ax-pre-sup 11236 ax-addf 11237

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1537 df-fal 1547 df-ex 1775 df-nf 1779 df-sb 2061 df-mo 2529 df-eu 2558 df-clab 2704 df-cleq 2718 df-clel 2803 df-nfc 2878 df-ne 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3364 df-reu 3365 df-rab 3420 df-v 3464 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-pss 3967 df-symdif 4244 df-nul 4326 df-if 4534 df-pw 4609 df-sn 4634 df-pr 4636 df-tp 4638 df-op 4640 df-uni 4914 df-int 4955 df-iun 5003 df-iin 5004 df-disj 5119 df-br 5154 df-opab 5216 df-mpt 5237 df-tr 5271 df-id 5580 df-eprel 5586 df-po 5594 df-so 5595 df-fr 5637 df-se 5638 df-we 5639 df-xp 5688 df-rel 5689 df-cnv 5690 df-co 5691 df-dm 5692 df-rn 5693 df-res 5694 df-ima 5695 df-pred 6312 df-ord 6379 df-on 6380 df-lim 6381 df-suc 6382 df-iota 6506 df-fun 6556 df-fn 6557 df-f 6558 df-f1 6559 df-fo 6560 df-f1o 6561 df-fv 6562 df-isom 6563 df-riota 7380 df-ov 7427 df-oprab 7428 df-mpo 7429 df-of 7690 df-ofr 7691 df-om 7877 df-1st 8003 df-2nd 8004 df-supp 8175 df-frecs 8296 df-wrecs 8327 df-recs 8401 df-rdg 8440 df-1o 8496 df-2o 8497 df-oadd 8500 df-omul 8501 df-er 8734 df-map 8857 df-pm 8858 df-ixp 8927 df-en 8975 df-dom 8976 df-sdom 8977 df-fin 8978 df-fsupp 9406 df-fi 9454 df-sup 9485 df-inf 9486 df-oi 9553 df-dju 9944 df-card 9982 df-acn 9985 df-pnf 11300 df-mnf 11301 df-xr 11302 df-ltxr 11303 df-le 11304 df-sub 11496 df-neg 11497 df-div 11922 df-nn 12265 df-2 12327 df-3 12328 df-4 12329 df-5 12330 df-6 12331 df-7 12332 df-8 12333 df-9 12334 df-n0 12525 df-z 12611 df-dec 12730 df-uz 12875 df-q 12985 df-rp 13029 df-xneg 13146 df-xadd 13147 df-xmul 13148 df-ioo 13382 df-ioc 13383 df-ico 13384 df-icc 13385 df-fz 13539 df-fzo 13682 df-fl 13812 df-mod 13890 df-seq 14022 df-exp 14082 df-hash 14348 df-cj 15104 df-re 15105 df-im 15106 df-sqrt 15240 df-abs 15241 df-limsup 15473 df-clim 15490 df-rlim 15491 df-sum 15691 df-struct 17149 df-sets 17166 df-slot 17184 df-ndx 17196 df-base 17214 df-ress 17243 df-plusg 17279 df-mulr 17280 df-starv 17281 df-sca 17282 df-vsca 17283 df-ip 17284 df-tset 17285 df-ple 17286 df-ds 17288 df-unif 17289 df-hom 17290 df-cco 17291 df-rest 17437 df-topn 17438 df-0g 17456 df-gsum 17457 df-topgen 17458 df-pt 17459 df-prds 17462 df-xrs 17517 df-qtop 17522 df-imas 17523 df-xps 17525 df-mre 17599 df-mrc 17600 df-acs 17602 df-mgm 18633 df-sgrp 18712 df-mnd 18728 df-submnd 18774 df-mulg 19062 df-cntz 19311 df-cmn 19780 df-psmet 21335 df-xmet 21336 df-met 21337 df-bl 21338 df-mopn 21339 df-cnfld 21344 df-top 22887 df-topon 22904 df-topsp 22926 df-bases 22940 df-cld 23014 df-ntr 23015 df-cls 23016 df-cn 23222 df-cnp 23223 df-cmp 23382 df-tx 23557 df-hmeo 23750 df-xms 24317 df-ms 24318 df-tms 24319 df-cncf 24889 df-ovol 25484 df-vol 25485 df-mbf 25639 df-itg1 25640 df-itg2 25641 df-ibl 25642 df-itg 25643 df-0p 25690 df-limc 25886

This theorem is referenced by: fourierdlem81 45808

W3C validator