MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  iblabsr Structured version   Visualization version   GIF version

Theorem iblabsr 24127
Description: A measurable function is integrable iff its absolute value is integrable. (See iblabs 24126 for the forward implication.) (Contributed by Mario Carneiro, 25-Aug-2014.)
Hypotheses
Ref Expression
iblabsr.1 ((𝜑𝑥𝐴) → 𝐵𝑉)
iblabsr.2 (𝜑 → (𝑥𝐴𝐵) ∈ MblFn)
iblabsr.3 (𝜑 → (𝑥𝐴 ↦ (abs‘𝐵)) ∈ 𝐿1)
Assertion
Ref Expression
iblabsr (𝜑 → (𝑥𝐴𝐵) ∈ 𝐿1)
Distinct variable groups:   𝑥,𝐴   𝜑,𝑥   𝑥,𝑉
Allowed substitution hint:   𝐵(𝑥)

Proof of Theorem iblabsr
Dummy variable 𝑘 is distinct from all other variables.
StepHypRef Expression
1 iblabsr.2 . 2 (𝜑 → (𝑥𝐴𝐵) ∈ MblFn)
2 ifan 4399 . . . . . . 7 if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0)
3 iblabsr.1 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝐴) → 𝐵𝑉)
41, 3mbfmptcl 23934 . . . . . . . . . . . . . 14 ((𝜑𝑥𝐴) → 𝐵 ∈ ℂ)
54adantlr 702 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝐵 ∈ ℂ)
6 ax-icn 10390 . . . . . . . . . . . . . 14 i ∈ ℂ
7 ine0 10872 . . . . . . . . . . . . . 14 i ≠ 0
8 elfzelz 12721 . . . . . . . . . . . . . . 15 (𝑘 ∈ (0...3) → 𝑘 ∈ ℤ)
98ad2antlr 714 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝑘 ∈ ℤ)
10 expclz 13266 . . . . . . . . . . . . . 14 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ∈ ℂ)
116, 7, 9, 10mp3an12i 1444 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (i↑𝑘) ∈ ℂ)
12 expne0i 13273 . . . . . . . . . . . . . 14 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ≠ 0)
136, 7, 9, 12mp3an12i 1444 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (i↑𝑘) ≠ 0)
145, 11, 13divcld 11213 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (𝐵 / (i↑𝑘)) ∈ ℂ)
1514recld 14408 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (ℜ‘(𝐵 / (i↑𝑘))) ∈ ℝ)
16 0re 10437 . . . . . . . . . . 11 0 ∈ ℝ
17 ifcl 4392 . . . . . . . . . . 11 (((ℜ‘(𝐵 / (i↑𝑘))) ∈ ℝ ∧ 0 ∈ ℝ) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ ℝ)
1815, 16, 17sylancl 577 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ ℝ)
1918rexrd 10486 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ ℝ*)
20 max1 12392 . . . . . . . . . 10 ((0 ∈ ℝ ∧ (ℜ‘(𝐵 / (i↑𝑘))) ∈ ℝ) → 0 ≤ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0))
2116, 15, 20sylancr 578 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 0 ≤ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0))
22 elxrge0 12658 . . . . . . . . 9 (if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ (0[,]+∞) ↔ (if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ ℝ* ∧ 0 ≤ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0)))
2319, 21, 22sylanbrc 575 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ (0[,]+∞))
24 0e0iccpnf 12660 . . . . . . . . 9 0 ∈ (0[,]+∞)
2524a1i 11 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → 0 ∈ (0[,]+∞))
2623, 25ifclda 4382 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ∈ (0[,]+∞))
272, 26syl5eqel 2867 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ (0[,]+∞))
2827adantr 473 . . . . 5 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥 ∈ ℝ) → if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ (0[,]+∞))
2928fmpttd 6700 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)):ℝ⟶(0[,]+∞))
30 iblabsr.3 . . . . . . 7 (𝜑 → (𝑥𝐴 ↦ (abs‘𝐵)) ∈ 𝐿1)
314abscld 14651 . . . . . . . 8 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ ℝ)
324absge0d 14659 . . . . . . . 8 ((𝜑𝑥𝐴) → 0 ≤ (abs‘𝐵))
3331, 32iblpos 24090 . . . . . . 7 (𝜑 → ((𝑥𝐴 ↦ (abs‘𝐵)) ∈ 𝐿1 ↔ ((𝑥𝐴 ↦ (abs‘𝐵)) ∈ MblFn ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)))
3430, 33mpbid 224 . . . . . 6 (𝜑 → ((𝑥𝐴 ↦ (abs‘𝐵)) ∈ MblFn ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ))
3534simprd 488 . . . . 5 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)
3635adantr 473 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)
3731rexrd 10486 . . . . . . . . . 10 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ ℝ*)
38 elxrge0 12658 . . . . . . . . . 10 ((abs‘𝐵) ∈ (0[,]+∞) ↔ ((abs‘𝐵) ∈ ℝ* ∧ 0 ≤ (abs‘𝐵)))
3937, 32, 38sylanbrc 575 . . . . . . . . 9 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ (0[,]+∞))
4024a1i 11 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑥𝐴) → 0 ∈ (0[,]+∞))
4139, 40ifclda 4382 . . . . . . . 8 (𝜑 → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
4241adantr 473 . . . . . . 7 ((𝜑𝑥 ∈ ℝ) → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
4342fmpttd 6700 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞))
4443adantr 473 . . . . 5 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞))
4514releabsd 14666 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (ℜ‘(𝐵 / (i↑𝑘))) ≤ (abs‘(𝐵 / (i↑𝑘))))
465, 11, 13absdivd 14670 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘(𝐵 / (i↑𝑘))) = ((abs‘𝐵) / (abs‘(i↑𝑘))))
47 elfznn0 12813 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ (0...3) → 𝑘 ∈ ℕ0)
4847ad2antlr 714 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝑘 ∈ ℕ0)
49 absexp 14519 . . . . . . . . . . . . . . . . 17 ((i ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (abs‘(i↑𝑘)) = ((abs‘i)↑𝑘))
506, 48, 49sylancr 578 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘(i↑𝑘)) = ((abs‘i)↑𝑘))
51 absi 14501 . . . . . . . . . . . . . . . . . 18 (abs‘i) = 1
5251oveq1i 6984 . . . . . . . . . . . . . . . . 17 ((abs‘i)↑𝑘) = (1↑𝑘)
53 1exp 13270 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℤ → (1↑𝑘) = 1)
549, 53syl 17 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (1↑𝑘) = 1)
5552, 54syl5eq 2823 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → ((abs‘i)↑𝑘) = 1)
5650, 55eqtrd 2811 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘(i↑𝑘)) = 1)
5756oveq2d 6990 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → ((abs‘𝐵) / (abs‘(i↑𝑘))) = ((abs‘𝐵) / 1))
5831recnd 10464 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ ℂ)
5958adantlr 702 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘𝐵) ∈ ℂ)
6059div1d 11205 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → ((abs‘𝐵) / 1) = (abs‘𝐵))
6146, 57, 603eqtrd 2815 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘(𝐵 / (i↑𝑘))) = (abs‘𝐵))
6245, 61breqtrd 4953 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (ℜ‘(𝐵 / (i↑𝑘))) ≤ (abs‘𝐵))
635absge0d 14659 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 0 ≤ (abs‘𝐵))
64 breq1 4930 . . . . . . . . . . . . 13 ((ℜ‘(𝐵 / (i↑𝑘))) = if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) → ((ℜ‘(𝐵 / (i↑𝑘))) ≤ (abs‘𝐵) ↔ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ (abs‘𝐵)))
65 breq1 4930 . . . . . . . . . . . . 13 (0 = if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) → (0 ≤ (abs‘𝐵) ↔ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ (abs‘𝐵)))
6664, 65ifboth 4386 . . . . . . . . . . . 12 (((ℜ‘(𝐵 / (i↑𝑘))) ≤ (abs‘𝐵) ∧ 0 ≤ (abs‘𝐵)) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ (abs‘𝐵))
6762, 63, 66syl2anc 576 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ (abs‘𝐵))
68 iftrue 4354 . . . . . . . . . . . 12 (𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0))
6968adantl 474 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0))
70 iftrue 4354 . . . . . . . . . . . 12 (𝑥𝐴 → if(𝑥𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
7170adantl 474 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
7267, 69, 713brtr4d 4959 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
7372ex 405 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...3)) → (𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0)))
74 0le0 11545 . . . . . . . . . . 11 0 ≤ 0
7574a1i 11 . . . . . . . . . 10 𝑥𝐴 → 0 ≤ 0)
76 iffalse 4357 . . . . . . . . . 10 𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) = 0)
77 iffalse 4357 . . . . . . . . . 10 𝑥𝐴 → if(𝑥𝐴, (abs‘𝐵), 0) = 0)
7875, 76, 773brtr4d 4959 . . . . . . . . 9 𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
7973, 78pm2.61d1 173 . . . . . . . 8 ((𝜑𝑘 ∈ (0...3)) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
802, 79syl5eqbr 4962 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
8180ralrimivw 3130 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → ∀𝑥 ∈ ℝ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
82 reex 10422 . . . . . . . 8 ℝ ∈ V
8382a1i 11 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → ℝ ∈ V)
8437adantlr 702 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘𝐵) ∈ ℝ*)
8584, 63, 38sylanbrc 575 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘𝐵) ∈ (0[,]+∞))
8685, 25ifclda 4382 . . . . . . . 8 ((𝜑𝑘 ∈ (0...3)) → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
8786adantr 473 . . . . . . 7 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥 ∈ ℝ) → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
88 eqidd 2776 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)))
89 eqidd 2776 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)))
9083, 28, 87, 88, 89ofrfval2 7243 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → ((𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) ∘𝑟 ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)) ↔ ∀𝑥 ∈ ℝ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0)))
9181, 90mpbird 249 . . . . 5 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) ∘𝑟 ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)))
92 itg2le 24037 . . . . 5 (((𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) ∘𝑟 ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))))
9329, 44, 91, 92syl3anc 1351 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))))
94 itg2lecl 24036 . . . 4 (((𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)):ℝ⟶(0[,]+∞) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)))) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ∈ ℝ)
9529, 36, 93, 94syl3anc 1351 . . 3 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ∈ ℝ)
9695ralrimiva 3129 . 2 (𝜑 → ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ∈ ℝ)
97 eqidd 2776 . . 3 (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)))
98 eqidd 2776 . . 3 ((𝜑𝑥𝐴) → (ℜ‘(𝐵 / (i↑𝑘))) = (ℜ‘(𝐵 / (i↑𝑘))))
9997, 98, 3isibl2 24064 . 2 (𝜑 → ((𝑥𝐴𝐵) ∈ 𝐿1 ↔ ((𝑥𝐴𝐵) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ∈ ℝ)))
1001, 96, 99mpbir2and 700 1 (𝜑 → (𝑥𝐴𝐵) ∈ 𝐿1)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 387   = wceq 1507  wcel 2048  wne 2964  wral 3085  Vcvv 3412  ifcif 4348   class class class wbr 4927  cmpt 5006  wf 6182  cfv 6186  (class class class)co 6974  𝑟 cofr 7224  cc 10329  cr 10330  0cc0 10331  1c1 10332  ici 10333  +∞cpnf 10467  *cxr 10469  cle 10471   / cdiv 11094  3c3 11493  0cn0 11704  cz 11790  [,]cicc 12554  ...cfz 12705  cexp 13241  cre 14311  abscabs 14448  MblFncmbf 23912  2citg2 23914  𝐿1cibl 23915
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 1964  ax-8 2050  ax-9 2057  ax-10 2077  ax-11 2091  ax-12 2104  ax-13 2299  ax-ext 2747  ax-rep 5047  ax-sep 5058  ax-nul 5065  ax-pow 5117  ax-pr 5184  ax-un 7277  ax-inf2 8894  ax-cnex 10387  ax-resscn 10388  ax-1cn 10389  ax-icn 10390  ax-addcl 10391  ax-addrcl 10392  ax-mulcl 10393  ax-mulrcl 10394  ax-mulcom 10395  ax-addass 10396  ax-mulass 10397  ax-distr 10398  ax-i2m1 10399  ax-1ne0 10400  ax-1rid 10401  ax-rnegex 10402  ax-rrecex 10403  ax-cnre 10404  ax-pre-lttri 10405  ax-pre-lttrn 10406  ax-pre-ltadd 10407  ax-pre-mulgt0 10408  ax-pre-sup 10409  ax-addf 10410
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 2014  df-mo 2544  df-eu 2580  df-clab 2756  df-cleq 2768  df-clel 2843  df-nfc 2915  df-ne 2965  df-nel 3071  df-ral 3090  df-rex 3091  df-reu 3092  df-rmo 3093  df-rab 3094  df-v 3414  df-sbc 3681  df-csb 3786  df-dif 3831  df-un 3833  df-in 3835  df-ss 3842  df-pss 3844  df-nul 4178  df-if 4349  df-pw 4422  df-sn 4440  df-pr 4442  df-tp 4444  df-op 4446  df-uni 4711  df-int 4748  df-iun 4792  df-disj 4896  df-br 4928  df-opab 4990  df-mpt 5007  df-tr 5029  df-id 5309  df-eprel 5314  df-po 5323  df-so 5324  df-fr 5363  df-se 5364  df-we 5365  df-xp 5410  df-rel 5411  df-cnv 5412  df-co 5413  df-dm 5414  df-rn 5415  df-res 5416  df-ima 5417  df-pred 5984  df-ord 6030  df-on 6031  df-lim 6032  df-suc 6033  df-iota 6150  df-fun 6188  df-fn 6189  df-f 6190  df-f1 6191  df-fo 6192  df-f1o 6193  df-fv 6194  df-isom 6195  df-riota 6935  df-ov 6977  df-oprab 6978  df-mpo 6979  df-of 7225  df-ofr 7226  df-om 7395  df-1st 7498  df-2nd 7499  df-wrecs 7747  df-recs 7809  df-rdg 7847  df-1o 7901  df-2o 7902  df-oadd 7905  df-er 8085  df-map 8204  df-pm 8205  df-en 8303  df-dom 8304  df-sdom 8305  df-fin 8306  df-sup 8697  df-inf 8698  df-oi 8765  df-dju 9120  df-card 9158  df-pnf 10472  df-mnf 10473  df-xr 10474  df-ltxr 10475  df-le 10476  df-sub 10668  df-neg 10669  df-div 11095  df-nn 11436  df-2 11500  df-3 11501  df-n0 11705  df-z 11791  df-uz 12056  df-q 12160  df-rp 12202  df-xadd 12322  df-ioo 12555  df-ico 12557  df-icc 12558  df-fz 12706  df-fzo 12847  df-fl 12974  df-seq 13182  df-exp 13242  df-hash 13503  df-cj 14313  df-re 14314  df-im 14315  df-sqrt 14449  df-abs 14450  df-clim 14700  df-sum 14898  df-xmet 20234  df-met 20235  df-ovol 23762  df-vol 23763  df-mbf 23917  df-itg1 23918  df-itg2 23919  df-ibl 23920  df-0p 23968
This theorem is referenced by:  bddmulibl  24136
  Copyright terms: Public domain W3C validator