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

Theorem iblabsr 25194
Description: A measurable function is integrable iff its absolute value is integrable. (See iblabs 25193 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 4539 . . . . . . 7 if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) = if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0)
3 iblabsr.1 . . . . . . . . . . . . . . 15 ((𝜑𝑥𝐴) → 𝐵𝑉)
41, 3mbfmptcl 25000 . . . . . . . . . . . . . 14 ((𝜑𝑥𝐴) → 𝐵 ∈ ℂ)
54adantlr 713 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝐵 ∈ ℂ)
6 ax-icn 11110 . . . . . . . . . . . . . 14 i ∈ ℂ
7 ine0 11590 . . . . . . . . . . . . . 14 i ≠ 0
8 elfzelz 13441 . . . . . . . . . . . . . . 15 (𝑘 ∈ (0...3) → 𝑘 ∈ ℤ)
98ad2antlr 725 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝑘 ∈ ℤ)
10 expclz 13990 . . . . . . . . . . . . . 14 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ∈ ℂ)
116, 7, 9, 10mp3an12i 1465 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (i↑𝑘) ∈ ℂ)
12 expne0i 14000 . . . . . . . . . . . . . 14 ((i ∈ ℂ ∧ i ≠ 0 ∧ 𝑘 ∈ ℤ) → (i↑𝑘) ≠ 0)
136, 7, 9, 12mp3an12i 1465 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (i↑𝑘) ≠ 0)
145, 11, 13divcld 11931 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (𝐵 / (i↑𝑘)) ∈ ℂ)
1514recld 15079 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (ℜ‘(𝐵 / (i↑𝑘))) ∈ ℝ)
16 0re 11157 . . . . . . . . . . 11 0 ∈ ℝ
17 ifcl 4531 . . . . . . . . . . 11 (((ℜ‘(𝐵 / (i↑𝑘))) ∈ ℝ ∧ 0 ∈ ℝ) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ ℝ)
1815, 16, 17sylancl 586 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ ℝ)
1918rexrd 11205 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ ℝ*)
20 max1 13104 . . . . . . . . . 10 ((0 ∈ ℝ ∧ (ℜ‘(𝐵 / (i↑𝑘))) ∈ ℝ) → 0 ≤ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0))
2116, 15, 20sylancr 587 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 0 ≤ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0))
22 elxrge0 13374 . . . . . . . . 9 (if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ (0[,]+∞) ↔ (if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ ℝ* ∧ 0 ≤ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0)))
2319, 21, 22sylanbrc 583 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ (0[,]+∞))
24 0e0iccpnf 13376 . . . . . . . . 9 0 ∈ (0[,]+∞)
2524a1i 11 . . . . . . . 8 (((𝜑𝑘 ∈ (0...3)) ∧ ¬ 𝑥𝐴) → 0 ∈ (0[,]+∞))
2623, 25ifclda 4521 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ∈ (0[,]+∞))
272, 26eqeltrid 2842 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ (0[,]+∞))
2827adantr 481 . . . . 5 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥 ∈ ℝ) → if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ∈ (0[,]+∞))
2928fmpttd 7063 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)):ℝ⟶(0[,]+∞))
30 iblabsr.3 . . . . . . 7 (𝜑 → (𝑥𝐴 ↦ (abs‘𝐵)) ∈ 𝐿1)
314abscld 15321 . . . . . . . 8 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ ℝ)
324absge0d 15329 . . . . . . . 8 ((𝜑𝑥𝐴) → 0 ≤ (abs‘𝐵))
3331, 32iblpos 25157 . . . . . . 7 (𝜑 → ((𝑥𝐴 ↦ (abs‘𝐵)) ∈ 𝐿1 ↔ ((𝑥𝐴 ↦ (abs‘𝐵)) ∈ MblFn ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)))
3430, 33mpbid 231 . . . . . 6 (𝜑 → ((𝑥𝐴 ↦ (abs‘𝐵)) ∈ MblFn ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ))
3534simprd 496 . . . . 5 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)
3635adantr 481 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)
3731rexrd 11205 . . . . . . . . . 10 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ ℝ*)
38 elxrge0 13374 . . . . . . . . . 10 ((abs‘𝐵) ∈ (0[,]+∞) ↔ ((abs‘𝐵) ∈ ℝ* ∧ 0 ≤ (abs‘𝐵)))
3937, 32, 38sylanbrc 583 . . . . . . . . 9 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ (0[,]+∞))
4024a1i 11 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑥𝐴) → 0 ∈ (0[,]+∞))
4139, 40ifclda 4521 . . . . . . . 8 (𝜑 → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
4241adantr 481 . . . . . . 7 ((𝜑𝑥 ∈ ℝ) → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
4342fmpttd 7063 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞))
4443adantr 481 . . . . 5 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞))
4514releabsd 15336 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (ℜ‘(𝐵 / (i↑𝑘))) ≤ (abs‘(𝐵 / (i↑𝑘))))
465, 11, 13absdivd 15340 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘(𝐵 / (i↑𝑘))) = ((abs‘𝐵) / (abs‘(i↑𝑘))))
47 elfznn0 13534 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ (0...3) → 𝑘 ∈ ℕ0)
4847ad2antlr 725 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 𝑘 ∈ ℕ0)
49 absexp 15189 . . . . . . . . . . . . . . . . 17 ((i ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (abs‘(i↑𝑘)) = ((abs‘i)↑𝑘))
506, 48, 49sylancr 587 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘(i↑𝑘)) = ((abs‘i)↑𝑘))
51 absi 15171 . . . . . . . . . . . . . . . . . 18 (abs‘i) = 1
5251oveq1i 7367 . . . . . . . . . . . . . . . . 17 ((abs‘i)↑𝑘) = (1↑𝑘)
53 1exp 13997 . . . . . . . . . . . . . . . . . 18 (𝑘 ∈ ℤ → (1↑𝑘) = 1)
549, 53syl 17 . . . . . . . . . . . . . . . . 17 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (1↑𝑘) = 1)
5552, 54eqtrid 2788 . . . . . . . . . . . . . . . 16 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → ((abs‘i)↑𝑘) = 1)
5650, 55eqtrd 2776 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘(i↑𝑘)) = 1)
5756oveq2d 7373 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → ((abs‘𝐵) / (abs‘(i↑𝑘))) = ((abs‘𝐵) / 1))
5831recnd 11183 . . . . . . . . . . . . . . . 16 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ ℂ)
5958adantlr 713 . . . . . . . . . . . . . . 15 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘𝐵) ∈ ℂ)
6059div1d 11923 . . . . . . . . . . . . . 14 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → ((abs‘𝐵) / 1) = (abs‘𝐵))
6146, 57, 603eqtrd 2780 . . . . . . . . . . . . 13 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘(𝐵 / (i↑𝑘))) = (abs‘𝐵))
6245, 61breqtrd 5131 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (ℜ‘(𝐵 / (i↑𝑘))) ≤ (abs‘𝐵))
635absge0d 15329 . . . . . . . . . . . 12 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → 0 ≤ (abs‘𝐵))
64 breq1 5108 . . . . . . . . . . . . 13 ((ℜ‘(𝐵 / (i↑𝑘))) = if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) → ((ℜ‘(𝐵 / (i↑𝑘))) ≤ (abs‘𝐵) ↔ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ (abs‘𝐵)))
65 breq1 5108 . . . . . . . . . . . . 13 (0 = if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) → (0 ≤ (abs‘𝐵) ↔ if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ (abs‘𝐵)))
6664, 65ifboth 4525 . . . . . . . . . . . 12 (((ℜ‘(𝐵 / (i↑𝑘))) ≤ (abs‘𝐵) ∧ 0 ≤ (abs‘𝐵)) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ (abs‘𝐵))
6762, 63, 66syl2anc 584 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ (abs‘𝐵))
68 iftrue 4492 . . . . . . . . . . . 12 (𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0))
6968adantl 482 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) = if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0))
70 iftrue 4492 . . . . . . . . . . . 12 (𝑥𝐴 → if(𝑥𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
7170adantl 482 . . . . . . . . . . 11 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
7267, 69, 713brtr4d 5137 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
7372ex 413 . . . . . . . . 9 ((𝜑𝑘 ∈ (0...3)) → (𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0)))
74 0le0 12254 . . . . . . . . . . 11 0 ≤ 0
7574a1i 11 . . . . . . . . . 10 𝑥𝐴 → 0 ≤ 0)
76 iffalse 4495 . . . . . . . . . 10 𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) = 0)
77 iffalse 4495 . . . . . . . . . 10 𝑥𝐴 → if(𝑥𝐴, (abs‘𝐵), 0) = 0)
7875, 76, 773brtr4d 5137 . . . . . . . . 9 𝑥𝐴 → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
7973, 78pm2.61d1 180 . . . . . . . 8 ((𝜑𝑘 ∈ (0...3)) → if(𝑥𝐴, if(0 ≤ (ℜ‘(𝐵 / (i↑𝑘))), (ℜ‘(𝐵 / (i↑𝑘))), 0), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
802, 79eqbrtrid 5140 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
8180ralrimivw 3147 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → ∀𝑥 ∈ ℝ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0))
82 reex 11142 . . . . . . . 8 ℝ ∈ V
8382a1i 11 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → ℝ ∈ V)
8437adantlr 713 . . . . . . . . . 10 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘𝐵) ∈ ℝ*)
8584, 63, 38sylanbrc 583 . . . . . . . . 9 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥𝐴) → (abs‘𝐵) ∈ (0[,]+∞))
8685, 25ifclda 4521 . . . . . . . 8 ((𝜑𝑘 ∈ (0...3)) → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
8786adantr 481 . . . . . . 7 (((𝜑𝑘 ∈ (0...3)) ∧ 𝑥 ∈ ℝ) → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
88 eqidd 2737 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)))
89 eqidd 2737 . . . . . . 7 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)))
9083, 28, 87, 88, 89ofrfval2 7638 . . . . . 6 ((𝜑𝑘 ∈ (0...3)) → ((𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) ∘r ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)) ↔ ∀𝑥 ∈ ℝ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0) ≤ if(𝑥𝐴, (abs‘𝐵), 0)))
9181, 90mpbird 256 . . . . 5 ((𝜑𝑘 ∈ (0...3)) → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) ∘r ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)))
92 itg2le 25104 . . . . 5 (((𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) ∘r ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))))
9329, 44, 91, 92syl3anc 1371 . . . 4 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))))
94 itg2lecl 25103 . . . 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 1371 . . 3 ((𝜑𝑘 ∈ (0...3)) → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ∈ ℝ)
9695ralrimiva 3143 . 2 (𝜑 → ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ∈ ℝ)
97 eqidd 2737 . . 3 (𝜑 → (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)) = (𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0)))
98 eqidd 2737 . . 3 ((𝜑𝑥𝐴) → (ℜ‘(𝐵 / (i↑𝑘))) = (ℜ‘(𝐵 / (i↑𝑘))))
9997, 98, 3isibl2 25131 . 2 (𝜑 → ((𝑥𝐴𝐵) ∈ 𝐿1 ↔ ((𝑥𝐴𝐵) ∈ MblFn ∧ ∀𝑘 ∈ (0...3)(∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 / (i↑𝑘)))), (ℜ‘(𝐵 / (i↑𝑘))), 0))) ∈ ℝ)))
1001, 96, 99mpbir2and 711 1 (𝜑 → (𝑥𝐴𝐵) ∈ 𝐿1)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 396   = wceq 1541  wcel 2106  wne 2943  wral 3064  Vcvv 3445  ifcif 4486   class class class wbr 5105  cmpt 5188  wf 6492  cfv 6496  (class class class)co 7357  r cofr 7616  cc 11049  cr 11050  0cc0 11051  1c1 11052  ici 11053  +∞cpnf 11186  *cxr 11188  cle 11190   / cdiv 11812  3c3 12209  0cn0 12413  cz 12499  [,]cicc 13267  ...cfz 13424  cexp 13967  cre 14982  abscabs 15119  MblFncmbf 24978  2citg2 24980  𝐿1cibl 24981
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-inf2 9577  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129  ax-addf 11130
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-disj 5071  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-of 7617  df-ofr 7618  df-om 7803  df-1st 7921  df-2nd 7922  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-2o 8413  df-er 8648  df-map 8767  df-pm 8768  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-sup 9378  df-inf 9379  df-oi 9446  df-dju 9837  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-n0 12414  df-z 12500  df-uz 12764  df-q 12874  df-rp 12916  df-xadd 13034  df-ioo 13268  df-ico 13270  df-icc 13271  df-fz 13425  df-fzo 13568  df-fl 13697  df-seq 13907  df-exp 13968  df-hash 14231  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121  df-clim 15370  df-sum 15571  df-xmet 20789  df-met 20790  df-ovol 24828  df-vol 24829  df-mbf 24983  df-itg1 24984  df-itg2 24985  df-ibl 24986  df-0p 25034
This theorem is referenced by:  bddmulibl  25203
  Copyright terms: Public domain W3C validator