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

Theorem itgioocnicc 41693
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 (𝜑 → (𝐺 ∈ 𝐿1 ∧ ∫(𝐴[,]𝐵)(𝐺𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝐹   𝑥,𝐿   𝑥,𝑅   𝜑,𝑥
Allowed substitution hint:   𝐺(𝑥)

Proof of Theorem itgioocnicc
StepHypRef Expression
1 itgioocnicc.a . . 3 (𝜑𝐴 ∈ ℝ)
2 itgioocnicc.b . . 3 (𝜑𝐵 ∈ ℝ)
3 itgioocnicc.g . . . . 5 𝐺 = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))))
4 iftrue 4357 . . . . . . . . 9 (𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = 𝑅)
5 iftrue 4357 . . . . . . . . 9 (𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))) = 𝑅)
64, 5eqtr4d 2817 . . . . . . . 8 (𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
76adantl 474 . . . . . . 7 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
8 iftrue 4357 . . . . . . . . . . . 12 (𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)) = 𝐿)
9 iftrue 4357 . . . . . . . . . . . 12 (𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)) = 𝐿)
108, 9eqtr4d 2817 . . . . . . . . . . 11 (𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)) = if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))
1110adantl 474 . . . . . . . . . 10 ((¬ 𝑥 = 𝐴𝑥 = 𝐵) → if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)) = if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))
1211ifeq2d 4370 . . . . . . . . 9 ((¬ 𝑥 = 𝐴𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
1312adantll 701 . . . . . . . 8 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
14 iffalse 4360 . . . . . . . . . 10 𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)))
1514ad2antlr 714 . . . . . . . . 9 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)))
16 iffalse 4360 . . . . . . . . . 10 𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)) = (𝐹𝑥))
1716adantl 474 . . . . . . . . 9 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)) = (𝐹𝑥))
18 iffalse 4360 . . . . . . . . . . 11 𝑥 = 𝐴 → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))) = if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))
1918ad2antlr 714 . . . . . . . . . 10 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))) = if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))
20 iffalse 4360 . . . . . . . . . . 11 𝑥 = 𝐵 → if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)) = ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))
2120adantl 474 . . . . . . . . . 10 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)) = ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))
221adantr 473 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐴 ∈ ℝ)
2322rexrd 10492 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐴 ∈ ℝ*)
2423ad2antrr 713 . . . . . . . . . . . 12 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝐴 ∈ ℝ*)
252rexrd 10492 . . . . . . . . . . . . 13 (𝜑𝐵 ∈ ℝ*)
2625ad3antrrr 717 . . . . . . . . . . . 12 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝐵 ∈ ℝ*)
272adantr 473 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐵 ∈ ℝ)
28 simpr 477 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ (𝐴[,]𝐵))
29 eliccre 41213 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ ℝ)
3022, 27, 28, 29syl3anc 1351 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ ℝ)
3130ad2antrr 713 . . . . . . . . . . . 12 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝑥 ∈ ℝ)
321ad2antrr 713 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝐴 ∈ ℝ)
3330adantr 473 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝑥 ∈ ℝ)
3425adantr 473 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐵 ∈ ℝ*)
35 iccgelb 12612 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑥 ∈ (𝐴[,]𝐵)) → 𝐴𝑥)
3623, 34, 28, 35syl3anc 1351 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐴𝑥)
3736adantr 473 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝐴𝑥)
38 neqne 2975 . . . . . . . . . . . . . . 15 𝑥 = 𝐴𝑥𝐴)
3938adantl 474 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝑥𝐴)
4032, 33, 37, 39leneltd 10596 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → 𝐴 < 𝑥)
4140adantr 473 . . . . . . . . . . . 12 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝐴 < 𝑥)
4230adantr 473 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝑥 ∈ ℝ)
432ad2antrr 713 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝐵 ∈ ℝ)
44 iccleub 12611 . . . . . . . . . . . . . . . 16 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑥 ∈ (𝐴[,]𝐵)) → 𝑥𝐵)
4523, 34, 28, 44syl3anc 1351 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝑥𝐵)
4645adantr 473 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝑥𝐵)
47 eqcom 2785 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝐵𝐵 = 𝑥)
4847notbii 312 . . . . . . . . . . . . . . . . 17 𝑥 = 𝐵 ↔ ¬ 𝐵 = 𝑥)
4948biimpi 208 . . . . . . . . . . . . . . . 16 𝑥 = 𝐵 → ¬ 𝐵 = 𝑥)
5049neqned 2974 . . . . . . . . . . . . . . 15 𝑥 = 𝐵𝐵𝑥)
5150adantl 474 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝐵𝑥)
5242, 43, 46, 51leneltd 10596 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐵) → 𝑥 < 𝐵)
5352adantlr 702 . . . . . . . . . . . 12 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝑥 < 𝐵)
5424, 26, 31, 41, 53eliood 41205 . . . . . . . . . . 11 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → 𝑥 ∈ (𝐴(,)𝐵))
55 fvres 6520 . . . . . . . . . . 11 (𝑥 ∈ (𝐴(,)𝐵) → ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥) = (𝐹𝑥))
5654, 55syl 17 . . . . . . . . . 10 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥) = (𝐹𝑥))
5719, 21, 563eqtrrd 2819 . . . . . . . . 9 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → (𝐹𝑥) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
5815, 17, 573eqtrd 2818 . . . . . . . 8 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
5913, 58pm2.61dan 800 . . . . . . 7 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
607, 59pm2.61dan 800 . . . . . 6 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
6160mpteq2dva 5023 . . . . 5 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)))) = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))))
623, 61syl5eq 2826 . . . 4 (𝜑𝐺 = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))))
63 nfv 1873 . . . . 5 𝑥𝜑
64 eqid 2778 . . . . 5 (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))) = (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))))
65 itgioocnicc.fcn . . . . 5 (𝜑 → (𝐹 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
66 itgioocnicc.l . . . . 5 (𝜑𝐿 ∈ ((𝐹 ↾ (𝐴(,)𝐵)) lim 𝐵))
67 itgioocnicc.r . . . . 5 (𝜑𝑅 ∈ ((𝐹 ↾ (𝐴(,)𝐵)) lim 𝐴))
6863, 64, 1, 2, 65, 66, 67cncfiooicc 41608 . . . 4 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥)))) ∈ ((𝐴[,]𝐵)–cn→ℂ))
6962, 68eqeltrd 2866 . . 3 (𝜑𝐺 ∈ ((𝐴[,]𝐵)–cn→ℂ))
70 cniccibl 24147 . . 3 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐺 ∈ ((𝐴[,]𝐵)–cn→ℂ)) → 𝐺 ∈ 𝐿1)
711, 2, 69, 70syl3anc 1351 . 2 (𝜑𝐺 ∈ 𝐿1)
724adantl 474 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = 𝑅)
73 limccl 24179 . . . . . . . . . . 11 ((𝐹 ↾ (𝐴(,)𝐵)) lim 𝐴) ⊆ ℂ
7473, 67sseldi 3858 . . . . . . . . . 10 (𝜑𝑅 ∈ ℂ)
7574ad2antrr 713 . . . . . . . . 9 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑥 = 𝐴) → 𝑅 ∈ ℂ)
7672, 75eqeltrd 2866 . . . . . . . 8 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) ∈ ℂ)
7714, 8sylan9eq 2834 . . . . . . . . . . 11 ((¬ 𝑥 = 𝐴𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = 𝐿)
7877adantll 701 . . . . . . . . . 10 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = 𝐿)
79 limccl 24179 . . . . . . . . . . . 12 ((𝐹 ↾ (𝐴(,)𝐵)) lim 𝐵) ⊆ ℂ
8079, 66sseldi 3858 . . . . . . . . . . 11 (𝜑𝐿 ∈ ℂ)
8180ad3antrrr 717 . . . . . . . . . 10 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ 𝑥 = 𝐵) → 𝐿 ∈ ℂ)
8278, 81eqeltrd 2866 . . . . . . . . 9 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) ∈ ℂ)
8314, 16sylan9eq 2834 . . . . . . . . . . 11 ((¬ 𝑥 = 𝐴 ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = (𝐹𝑥))
8483adantll 701 . . . . . . . . . 10 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = (𝐹𝑥))
8556eqcomd 2784 . . . . . . . . . . 11 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → (𝐹𝑥) = ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥))
86 cncff 23207 . . . . . . . . . . . . . 14 ((𝐹 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ) → (𝐹 ↾ (𝐴(,)𝐵)):(𝐴(,)𝐵)⟶ℂ)
8765, 86syl 17 . . . . . . . . . . . . 13 (𝜑 → (𝐹 ↾ (𝐴(,)𝐵)):(𝐴(,)𝐵)⟶ℂ)
8887ad3antrrr 717 . . . . . . . . . . . 12 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → (𝐹 ↾ (𝐴(,)𝐵)):(𝐴(,)𝐵)⟶ℂ)
8988, 54ffvelrnd 6679 . . . . . . . . . . 11 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → ((𝐹 ↾ (𝐴(,)𝐵))‘𝑥) ∈ ℂ)
9085, 89eqeltrd 2866 . . . . . . . . . 10 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → (𝐹𝑥) ∈ ℂ)
9184, 90eqeltrd 2866 . . . . . . . . 9 ((((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) ∧ ¬ 𝑥 = 𝐵) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) ∈ ℂ)
9282, 91pm2.61dan 800 . . . . . . . 8 (((𝜑𝑥 ∈ (𝐴[,]𝐵)) ∧ ¬ 𝑥 = 𝐴) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) ∈ ℂ)
9376, 92pm2.61dan 800 . . . . . . 7 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) ∈ ℂ)
943fvmpt2 6607 . . . . . . 7 ((𝑥 ∈ (𝐴[,]𝐵) ∧ if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) ∈ ℂ) → (𝐺𝑥) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))))
9528, 93, 94syl2anc 576 . . . . . 6 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → (𝐺𝑥) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))))
9695, 93eqeltrd 2866 . . . . 5 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → (𝐺𝑥) ∈ ℂ)
971, 2, 96itgioo 24122 . . . 4 (𝜑 → ∫(𝐴(,)𝐵)(𝐺𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐺𝑥) d𝑥)
9897eqcomd 2784 . . 3 (𝜑 → ∫(𝐴[,]𝐵)(𝐺𝑥) d𝑥 = ∫(𝐴(,)𝐵)(𝐺𝑥) d𝑥)
99 ioossicc 12641 . . . . . . 7 (𝐴(,)𝐵) ⊆ (𝐴[,]𝐵)
10099sseli 3856 . . . . . 6 (𝑥 ∈ (𝐴(,)𝐵) → 𝑥 ∈ (𝐴[,]𝐵))
101100, 95sylan2 583 . . . . 5 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (𝐺𝑥) = if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))))
1021adantr 473 . . . . . . . 8 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
103 eliooord 12615 . . . . . . . . . 10 (𝑥 ∈ (𝐴(,)𝐵) → (𝐴 < 𝑥𝑥 < 𝐵))
104103simpld 487 . . . . . . . . 9 (𝑥 ∈ (𝐴(,)𝐵) → 𝐴 < 𝑥)
105104adantl 474 . . . . . . . 8 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑥)
106102, 105gtned 10577 . . . . . . 7 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑥𝐴)
107106neneqd 2972 . . . . . 6 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → ¬ 𝑥 = 𝐴)
108107, 14syl 17 . . . . 5 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → if(𝑥 = 𝐴, 𝑅, if(𝑥 = 𝐵, 𝐿, (𝐹𝑥))) = if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)))
109100, 30sylan2 583 . . . . . . . 8 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 ∈ ℝ)
110103simprd 488 . . . . . . . . 9 (𝑥 ∈ (𝐴(,)𝐵) → 𝑥 < 𝐵)
111110adantl 474 . . . . . . . 8 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 < 𝐵)
112109, 111ltned 10578 . . . . . . 7 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑥𝐵)
113112neneqd 2972 . . . . . 6 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → ¬ 𝑥 = 𝐵)
114113, 16syl 17 . . . . 5 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → if(𝑥 = 𝐵, 𝐿, (𝐹𝑥)) = (𝐹𝑥))
115101, 108, 1143eqtrd 2818 . . . 4 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (𝐺𝑥) = (𝐹𝑥))
116115itgeq2dv 24088 . . 3 (𝜑 → ∫(𝐴(,)𝐵)(𝐺𝑥) d𝑥 = ∫(𝐴(,)𝐵)(𝐹𝑥) d𝑥)
117 itgioocnicc.f . . . . . 6 (𝜑𝐹:dom 𝐹⟶ℂ)
118117adantr 473 . . . . 5 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐹:dom 𝐹⟶ℂ)
119 itgioocnicc.fdom . . . . . 6 (𝜑 → (𝐴[,]𝐵) ⊆ dom 𝐹)
120119sselda 3860 . . . . 5 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ dom 𝐹)
121118, 120ffvelrnd 6679 . . . 4 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
1221, 2, 121itgioo 24122 . . 3 (𝜑 → ∫(𝐴(,)𝐵)(𝐹𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
12398, 116, 1223eqtrd 2818 . 2 (𝜑 → ∫(𝐴[,]𝐵)(𝐺𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
12471, 123jca 504 1 (𝜑 → (𝐺 ∈ 𝐿1 ∧ ∫(𝐴[,]𝐵)(𝐺𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 387   = wceq 1507  wcel 2050  wne 2967  wss 3831  ifcif 4351   class class class wbr 4930  cmpt 5009  dom cdm 5408  cres 5410  wf 6186  cfv 6190  (class class class)co 6978  cc 10335  cr 10336  *cxr 10475   < clt 10476  cle 10477  (,)cioo 12557  [,]cicc 12560  cnccncf 23190  𝐿1cibl 23924  citg 23925   lim climc 24166
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2750  ax-rep 5050  ax-sep 5061  ax-nul 5068  ax-pow 5120  ax-pr 5187  ax-un 7281  ax-inf2 8900  ax-cc 9657  ax-cnex 10393  ax-resscn 10394  ax-1cn 10395  ax-icn 10396  ax-addcl 10397  ax-addrcl 10398  ax-mulcl 10399  ax-mulrcl 10400  ax-mulcom 10401  ax-addass 10402  ax-mulass 10403  ax-distr 10404  ax-i2m1 10405  ax-1ne0 10406  ax-1rid 10407  ax-rnegex 10408  ax-rrecex 10409  ax-cnre 10410  ax-pre-lttri 10411  ax-pre-lttrn 10412  ax-pre-ltadd 10413  ax-pre-mulgt0 10414  ax-pre-sup 10415  ax-addf 10416  ax-mulf 10417
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-fal 1520  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2583  df-clab 2759  df-cleq 2771  df-clel 2846  df-nfc 2918  df-ne 2968  df-nel 3074  df-ral 3093  df-rex 3094  df-reu 3095  df-rmo 3096  df-rab 3097  df-v 3417  df-sbc 3684  df-csb 3789  df-dif 3834  df-un 3836  df-in 3838  df-ss 3845  df-pss 3847  df-symdif 4108  df-nul 4181  df-if 4352  df-pw 4425  df-sn 4443  df-pr 4445  df-tp 4447  df-op 4449  df-uni 4714  df-int 4751  df-iun 4795  df-iin 4796  df-disj 4899  df-br 4931  df-opab 4993  df-mpt 5010  df-tr 5032  df-id 5313  df-eprel 5318  df-po 5327  df-so 5328  df-fr 5367  df-se 5368  df-we 5369  df-xp 5414  df-rel 5415  df-cnv 5416  df-co 5417  df-dm 5418  df-rn 5419  df-res 5420  df-ima 5421  df-pred 5988  df-ord 6034  df-on 6035  df-lim 6036  df-suc 6037  df-iota 6154  df-fun 6192  df-fn 6193  df-f 6194  df-f1 6195  df-fo 6196  df-f1o 6197  df-fv 6198  df-isom 6199  df-riota 6939  df-ov 6981  df-oprab 6982  df-mpo 6983  df-of 7229  df-ofr 7230  df-om 7399  df-1st 7503  df-2nd 7504  df-supp 7636  df-wrecs 7752  df-recs 7814  df-rdg 7852  df-1o 7907  df-2o 7908  df-oadd 7911  df-omul 7912  df-er 8091  df-map 8210  df-pm 8211  df-ixp 8262  df-en 8309  df-dom 8310  df-sdom 8311  df-fin 8312  df-fsupp 8631  df-fi 8672  df-sup 8703  df-inf 8704  df-oi 8771  df-dju 9126  df-card 9164  df-acn 9167  df-cda 9390  df-pnf 10478  df-mnf 10479  df-xr 10480  df-ltxr 10481  df-le 10482  df-sub 10674  df-neg 10675  df-div 11101  df-nn 11442  df-2 11506  df-3 11507  df-4 11508  df-5 11509  df-6 11510  df-7 11511  df-8 11512  df-9 11513  df-n0 11711  df-z 11797  df-dec 11915  df-uz 12062  df-q 12166  df-rp 12208  df-xneg 12327  df-xadd 12328  df-xmul 12329  df-ioo 12561  df-ioc 12562  df-ico 12563  df-icc 12564  df-fz 12712  df-fzo 12853  df-fl 12980  df-mod 13056  df-seq 13188  df-exp 13248  df-hash 13509  df-cj 14322  df-re 14323  df-im 14324  df-sqrt 14458  df-abs 14459  df-limsup 14692  df-clim 14709  df-rlim 14710  df-sum 14907  df-struct 16344  df-ndx 16345  df-slot 16346  df-base 16348  df-sets 16349  df-ress 16350  df-plusg 16437  df-mulr 16438  df-starv 16439  df-sca 16440  df-vsca 16441  df-ip 16442  df-tset 16443  df-ple 16444  df-ds 16446  df-unif 16447  df-hom 16448  df-cco 16449  df-rest 16555  df-topn 16556  df-0g 16574  df-gsum 16575  df-topgen 16576  df-pt 16577  df-prds 16580  df-xrs 16634  df-qtop 16639  df-imas 16640  df-xps 16642  df-mre 16718  df-mrc 16719  df-acs 16721  df-mgm 17713  df-sgrp 17755  df-mnd 17766  df-submnd 17807  df-mulg 18015  df-cntz 18221  df-cmn 18671  df-psmet 20242  df-xmet 20243  df-met 20244  df-bl 20245  df-mopn 20246  df-cnfld 20251  df-top 21209  df-topon 21226  df-topsp 21248  df-bases 21261  df-cld 21334  df-ntr 21335  df-cls 21336  df-cn 21542  df-cnp 21543  df-cmp 21702  df-tx 21877  df-hmeo 22070  df-xms 22636  df-ms 22637  df-tms 22638  df-cncf 23192  df-ovol 23771  df-vol 23772  df-mbf 23926  df-itg1 23927  df-itg2 23928  df-ibl 23929  df-itg 23930  df-0p 23977  df-limc 24170
This theorem is referenced by:  fourierdlem81  41904
  Copyright terms: Public domain W3C validator