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

Theorem iblabs 24135
Description: The absolute value of an integrable function is integrable. (Contributed by Mario Carneiro, 25-Aug-2014.)
Hypotheses
Ref Expression
iblabs.1 ((𝜑𝑥𝐴) → 𝐵𝑉)
iblabs.2 (𝜑 → (𝑥𝐴𝐵) ∈ 𝐿1)
Assertion
Ref Expression
iblabs (𝜑 → (𝑥𝐴 ↦ (abs‘𝐵)) ∈ 𝐿1)
Distinct variable groups:   𝑥,𝐴   𝜑,𝑥
Allowed substitution hints:   𝐵(𝑥)   𝑉(𝑥)

Proof of Theorem iblabs
StepHypRef Expression
1 absf 14561 . . . . 5 abs:ℂ⟶ℝ
21a1i 11 . . . 4 (𝜑 → abs:ℂ⟶ℝ)
3 iblabs.2 . . . . . 6 (𝜑 → (𝑥𝐴𝐵) ∈ 𝐿1)
4 iblmbf 24074 . . . . . 6 ((𝑥𝐴𝐵) ∈ 𝐿1 → (𝑥𝐴𝐵) ∈ MblFn)
53, 4syl 17 . . . . 5 (𝜑 → (𝑥𝐴𝐵) ∈ MblFn)
6 iblabs.1 . . . . 5 ((𝜑𝑥𝐴) → 𝐵𝑉)
75, 6mbfmptcl 23943 . . . 4 ((𝜑𝑥𝐴) → 𝐵 ∈ ℂ)
82, 7cofmpt 6719 . . 3 (𝜑 → (abs ∘ (𝑥𝐴𝐵)) = (𝑥𝐴 ↦ (abs‘𝐵)))
97fmpttd 6704 . . . 4 (𝜑 → (𝑥𝐴𝐵):𝐴⟶ℂ)
10 ax-resscn 10394 . . . . . . 7 ℝ ⊆ ℂ
11 ssid 3881 . . . . . . 7 ℂ ⊆ ℂ
12 cncfss 23213 . . . . . . 7 ((ℝ ⊆ ℂ ∧ ℂ ⊆ ℂ) → (ℂ–cn→ℝ) ⊆ (ℂ–cn→ℂ))
1310, 11, 12mp2an 679 . . . . . 6 (ℂ–cn→ℝ) ⊆ (ℂ–cn→ℂ)
14 abscncf 23215 . . . . . 6 abs ∈ (ℂ–cn→ℝ)
1513, 14sselii 3857 . . . . 5 abs ∈ (ℂ–cn→ℂ)
1615a1i 11 . . . 4 (𝜑 → abs ∈ (ℂ–cn→ℂ))
17 cncombf 23965 . . . 4 (((𝑥𝐴𝐵) ∈ MblFn ∧ (𝑥𝐴𝐵):𝐴⟶ℂ ∧ abs ∈ (ℂ–cn→ℂ)) → (abs ∘ (𝑥𝐴𝐵)) ∈ MblFn)
185, 9, 16, 17syl3anc 1351 . . 3 (𝜑 → (abs ∘ (𝑥𝐴𝐵)) ∈ MblFn)
198, 18eqeltrrd 2867 . 2 (𝜑 → (𝑥𝐴 ↦ (abs‘𝐵)) ∈ MblFn)
207abscld 14660 . . . . . . . 8 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ ℝ)
2120rexrd 10492 . . . . . . 7 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ ℝ*)
227absge0d 14668 . . . . . . 7 ((𝜑𝑥𝐴) → 0 ≤ (abs‘𝐵))
23 elxrge0 12664 . . . . . . 7 ((abs‘𝐵) ∈ (0[,]+∞) ↔ ((abs‘𝐵) ∈ ℝ* ∧ 0 ≤ (abs‘𝐵)))
2421, 22, 23sylanbrc 575 . . . . . 6 ((𝜑𝑥𝐴) → (abs‘𝐵) ∈ (0[,]+∞))
25 0e0iccpnf 12666 . . . . . . 7 0 ∈ (0[,]+∞)
2625a1i 11 . . . . . 6 ((𝜑 ∧ ¬ 𝑥𝐴) → 0 ∈ (0[,]+∞))
2724, 26ifclda 4385 . . . . 5 (𝜑 → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
2827adantr 473 . . . 4 ((𝜑𝑥 ∈ ℝ) → if(𝑥𝐴, (abs‘𝐵), 0) ∈ (0[,]+∞))
2928fmpttd 6704 . . 3 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞))
30 reex 10428 . . . . . . . . 9 ℝ ∈ V
3130a1i 11 . . . . . . . 8 (𝜑 → ℝ ∈ V)
327recld 14417 . . . . . . . . . . . . 13 ((𝜑𝑥𝐴) → (ℜ‘𝐵) ∈ ℝ)
3332recnd 10470 . . . . . . . . . . . 12 ((𝜑𝑥𝐴) → (ℜ‘𝐵) ∈ ℂ)
3433abscld 14660 . . . . . . . . . . 11 ((𝜑𝑥𝐴) → (abs‘(ℜ‘𝐵)) ∈ ℝ)
3533absge0d 14668 . . . . . . . . . . 11 ((𝜑𝑥𝐴) → 0 ≤ (abs‘(ℜ‘𝐵)))
36 elrege0 12661 . . . . . . . . . . 11 ((abs‘(ℜ‘𝐵)) ∈ (0[,)+∞) ↔ ((abs‘(ℜ‘𝐵)) ∈ ℝ ∧ 0 ≤ (abs‘(ℜ‘𝐵))))
3734, 35, 36sylanbrc 575 . . . . . . . . . 10 ((𝜑𝑥𝐴) → (abs‘(ℜ‘𝐵)) ∈ (0[,)+∞))
38 0e0icopnf 12665 . . . . . . . . . . 11 0 ∈ (0[,)+∞)
3938a1i 11 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑥𝐴) → 0 ∈ (0[,)+∞))
4037, 39ifclda 4385 . . . . . . . . 9 (𝜑 → if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) ∈ (0[,)+∞))
4140adantr 473 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) ∈ (0[,)+∞))
427imcld 14418 . . . . . . . . . . . . 13 ((𝜑𝑥𝐴) → (ℑ‘𝐵) ∈ ℝ)
4342recnd 10470 . . . . . . . . . . . 12 ((𝜑𝑥𝐴) → (ℑ‘𝐵) ∈ ℂ)
4443abscld 14660 . . . . . . . . . . 11 ((𝜑𝑥𝐴) → (abs‘(ℑ‘𝐵)) ∈ ℝ)
4543absge0d 14668 . . . . . . . . . . 11 ((𝜑𝑥𝐴) → 0 ≤ (abs‘(ℑ‘𝐵)))
46 elrege0 12661 . . . . . . . . . . 11 ((abs‘(ℑ‘𝐵)) ∈ (0[,)+∞) ↔ ((abs‘(ℑ‘𝐵)) ∈ ℝ ∧ 0 ≤ (abs‘(ℑ‘𝐵))))
4744, 45, 46sylanbrc 575 . . . . . . . . . 10 ((𝜑𝑥𝐴) → (abs‘(ℑ‘𝐵)) ∈ (0[,)+∞))
4847, 39ifclda 4385 . . . . . . . . 9 (𝜑 → if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0) ∈ (0[,)+∞))
4948adantr 473 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0) ∈ (0[,)+∞))
50 eqidd 2779 . . . . . . . 8 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)))
51 eqidd 2779 . . . . . . . 8 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)))
5231, 41, 49, 50, 51offval2 7246 . . . . . . 7 (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘𝑓 + (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0))) = (𝑥 ∈ ℝ ↦ (if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0))))
53 iftrue 4357 . . . . . . . . . . 11 (𝑥𝐴 → if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) = (abs‘(ℜ‘𝐵)))
54 iftrue 4357 . . . . . . . . . . 11 (𝑥𝐴 → if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0) = (abs‘(ℑ‘𝐵)))
5553, 54oveq12d 6996 . . . . . . . . . 10 (𝑥𝐴 → (if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
56 iftrue 4357 . . . . . . . . . 10 (𝑥𝐴 → if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
5755, 56eqtr4d 2817 . . . . . . . . 9 (𝑥𝐴 → (if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
58 00id 10617 . . . . . . . . . 10 (0 + 0) = 0
59 iffalse 4360 . . . . . . . . . . 11 𝑥𝐴 → if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) = 0)
60 iffalse 4360 . . . . . . . . . . 11 𝑥𝐴 → if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0) = 0)
6159, 60oveq12d 6996 . . . . . . . . . 10 𝑥𝐴 → (if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) = (0 + 0))
62 iffalse 4360 . . . . . . . . . 10 𝑥𝐴 → if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = 0)
6358, 61, 623eqtr4a 2840 . . . . . . . . 9 𝑥𝐴 → (if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
6457, 63pm2.61i 177 . . . . . . . 8 (if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) = if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)
6564mpteq2i 5020 . . . . . . 7 (𝑥 ∈ ℝ ↦ (if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0) + if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0))) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
6652, 65syl6req 2831 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) = ((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘𝑓 + (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0))))
6766fveq2d 6505 . . . . 5 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) = (∫2‘((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘𝑓 + (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)))))
68 eqid 2778 . . . . . . . 8 (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0))
697iblcn 24105 . . . . . . . . . 10 (𝜑 → ((𝑥𝐴𝐵) ∈ 𝐿1 ↔ ((𝑥𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿1 ∧ (𝑥𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿1)))
703, 69mpbid 224 . . . . . . . . 9 (𝜑 → ((𝑥𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿1 ∧ (𝑥𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿1))
7170simpld 487 . . . . . . . 8 (𝜑 → (𝑥𝐴 ↦ (ℜ‘𝐵)) ∈ 𝐿1)
726, 3, 68, 71, 32iblabslem 24134 . . . . . . 7 (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)) ∈ MblFn ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0))) ∈ ℝ))
7372simpld 487 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)) ∈ MblFn)
7441fmpttd 6704 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)):ℝ⟶(0[,)+∞))
7572simprd 488 . . . . . 6 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0))) ∈ ℝ)
76 eqid 2778 . . . . . . . 8 (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0))
7770simprd 488 . . . . . . . 8 (𝜑 → (𝑥𝐴 ↦ (ℑ‘𝐵)) ∈ 𝐿1)
786, 3, 76, 77, 42iblabslem 24134 . . . . . . 7 (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) ∈ MblFn ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0))) ∈ ℝ))
7978simpld 487 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)) ∈ MblFn)
8049fmpttd 6704 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)):ℝ⟶(0[,)+∞))
8178simprd 488 . . . . . 6 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0))) ∈ ℝ)
8273, 74, 75, 79, 80, 81itg2add 24066 . . . . 5 (𝜑 → (∫2‘((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0)) ∘𝑓 + (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)))) = ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)))))
8367, 82eqtrd 2814 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) = ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)))))
8475, 81readdcld 10471 . . . 4 (𝜑 → ((∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℜ‘𝐵)), 0))) + (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘(ℑ‘𝐵)), 0)))) ∈ ℝ)
8583, 84eqeltrd 2866 . . 3 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) ∈ ℝ)
8634, 44readdcld 10471 . . . . . . . . 9 ((𝜑𝑥𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ)
8786rexrd 10492 . . . . . . . 8 ((𝜑𝑥𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ*)
8834, 44, 35, 45addge0d 11019 . . . . . . . 8 ((𝜑𝑥𝐴) → 0 ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
89 elxrge0 12664 . . . . . . . 8 (((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ (0[,]+∞) ↔ (((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ ℝ* ∧ 0 ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵)))))
9087, 88, 89sylanbrc 575 . . . . . . 7 ((𝜑𝑥𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) ∈ (0[,]+∞))
9190, 26ifclda 4385 . . . . . 6 (𝜑 → if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) ∈ (0[,]+∞))
9291adantr 473 . . . . 5 ((𝜑𝑥 ∈ ℝ) → if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) ∈ (0[,]+∞))
9392fmpttd 6704 . . . 4 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)):ℝ⟶(0[,]+∞))
94 ax-icn 10396 . . . . . . . . . . . 12 i ∈ ℂ
95 mulcl 10421 . . . . . . . . . . . 12 ((i ∈ ℂ ∧ (ℑ‘𝐵) ∈ ℂ) → (i · (ℑ‘𝐵)) ∈ ℂ)
9694, 43, 95sylancr 578 . . . . . . . . . . 11 ((𝜑𝑥𝐴) → (i · (ℑ‘𝐵)) ∈ ℂ)
9733, 96abstrid 14680 . . . . . . . . . 10 ((𝜑𝑥𝐴) → (abs‘((ℜ‘𝐵) + (i · (ℑ‘𝐵)))) ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(i · (ℑ‘𝐵)))))
987replimd 14420 . . . . . . . . . . 11 ((𝜑𝑥𝐴) → 𝐵 = ((ℜ‘𝐵) + (i · (ℑ‘𝐵))))
9998fveq2d 6505 . . . . . . . . . 10 ((𝜑𝑥𝐴) → (abs‘𝐵) = (abs‘((ℜ‘𝐵) + (i · (ℑ‘𝐵)))))
100 absmul 14518 . . . . . . . . . . . . 13 ((i ∈ ℂ ∧ (ℑ‘𝐵) ∈ ℂ) → (abs‘(i · (ℑ‘𝐵))) = ((abs‘i) · (abs‘(ℑ‘𝐵))))
10194, 43, 100sylancr 578 . . . . . . . . . . . 12 ((𝜑𝑥𝐴) → (abs‘(i · (ℑ‘𝐵))) = ((abs‘i) · (abs‘(ℑ‘𝐵))))
102 absi 14510 . . . . . . . . . . . . . 14 (abs‘i) = 1
103102oveq1i 6988 . . . . . . . . . . . . 13 ((abs‘i) · (abs‘(ℑ‘𝐵))) = (1 · (abs‘(ℑ‘𝐵)))
10444recnd 10470 . . . . . . . . . . . . . 14 ((𝜑𝑥𝐴) → (abs‘(ℑ‘𝐵)) ∈ ℂ)
105104mulid2d 10460 . . . . . . . . . . . . 13 ((𝜑𝑥𝐴) → (1 · (abs‘(ℑ‘𝐵))) = (abs‘(ℑ‘𝐵)))
106103, 105syl5eq 2826 . . . . . . . . . . . 12 ((𝜑𝑥𝐴) → ((abs‘i) · (abs‘(ℑ‘𝐵))) = (abs‘(ℑ‘𝐵)))
107101, 106eqtr2d 2815 . . . . . . . . . . 11 ((𝜑𝑥𝐴) → (abs‘(ℑ‘𝐵)) = (abs‘(i · (ℑ‘𝐵))))
108107oveq2d 6994 . . . . . . . . . 10 ((𝜑𝑥𝐴) → ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))) = ((abs‘(ℜ‘𝐵)) + (abs‘(i · (ℑ‘𝐵)))))
10997, 99, 1083brtr4d 4962 . . . . . . . . 9 ((𝜑𝑥𝐴) → (abs‘𝐵) ≤ ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
110 iftrue 4357 . . . . . . . . . 10 (𝑥𝐴 → if(𝑥𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
111110adantl 474 . . . . . . . . 9 ((𝜑𝑥𝐴) → if(𝑥𝐴, (abs‘𝐵), 0) = (abs‘𝐵))
11256adantl 474 . . . . . . . . 9 ((𝜑𝑥𝐴) → if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0) = ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))))
113109, 111, 1123brtr4d 4962 . . . . . . . 8 ((𝜑𝑥𝐴) → if(𝑥𝐴, (abs‘𝐵), 0) ≤ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
114113ex 405 . . . . . . 7 (𝜑 → (𝑥𝐴 → if(𝑥𝐴, (abs‘𝐵), 0) ≤ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
115 0le0 11551 . . . . . . . . 9 0 ≤ 0
116115a1i 11 . . . . . . . 8 𝑥𝐴 → 0 ≤ 0)
117 iffalse 4360 . . . . . . . 8 𝑥𝐴 → if(𝑥𝐴, (abs‘𝐵), 0) = 0)
118116, 117, 623brtr4d 4962 . . . . . . 7 𝑥𝐴 → if(𝑥𝐴, (abs‘𝐵), 0) ≤ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
119114, 118pm2.61d1 173 . . . . . 6 (𝜑 → if(𝑥𝐴, (abs‘𝐵), 0) ≤ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
120119ralrimivw 3133 . . . . 5 (𝜑 → ∀𝑥 ∈ ℝ if(𝑥𝐴, (abs‘𝐵), 0) ≤ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))
121 eqidd 2779 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)))
122 eqidd 2779 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) = (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
12331, 28, 92, 121, 122ofrfval2 7247 . . . . 5 (𝜑 → ((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)) ∘𝑟 ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)) ↔ ∀𝑥 ∈ ℝ if(𝑥𝐴, (abs‘𝐵), 0) ≤ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
124120, 123mpbird 249 . . . 4 (𝜑 → (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)) ∘𝑟 ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))
125 itg2le 24046 . . . 4 (((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)):ℝ⟶(0[,]+∞) ∧ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)) ∘𝑟 ≤ (𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))))
12629, 93, 124, 125syl3anc 1351 . . 3 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))))
127 itg2lecl 24045 . . 3 (((𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0)):ℝ⟶(0[,]+∞) ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ≤ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, ((abs‘(ℜ‘𝐵)) + (abs‘(ℑ‘𝐵))), 0)))) → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)
12829, 85, 126, 127syl3anc 1351 . 2 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)
12920, 22iblpos 24099 . 2 (𝜑 → ((𝑥𝐴 ↦ (abs‘𝐵)) ∈ 𝐿1 ↔ ((𝑥𝐴 ↦ (abs‘𝐵)) ∈ MblFn ∧ (∫2‘(𝑥 ∈ ℝ ↦ if(𝑥𝐴, (abs‘𝐵), 0))) ∈ ℝ)))
13019, 128, 129mpbir2and 700 1 (𝜑 → (𝑥𝐴 ↦ (abs‘𝐵)) ∈ 𝐿1)
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 387   = wceq 1507  wcel 2050  wral 3088  Vcvv 3415  wss 3831  ifcif 4351   class class class wbr 4930  cmpt 5009  ccom 5412  wf 6186  cfv 6190  (class class class)co 6978  𝑓 cof 7227  𝑟 cofr 7228  cc 10335  cr 10336  0cc0 10337  1c1 10338  ici 10339   + caddc 10340   · cmul 10342  +∞cpnf 10473  *cxr 10475  cle 10477  [,)cico 12559  [,]cicc 12560  cre 14320  cim 14321  abscabs 14457  cnccncf 23190  MblFncmbf 23921  2citg2 23923  𝐿1cibl 23924
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-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-seq 13188  df-exp 13248  df-hash 13509  df-cj 14322  df-re 14323  df-im 14324  df-sqrt 14458  df-abs 14459  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-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-0p 23977
This theorem is referenced by:  iblmulc2  24137  itgabs  24141  bddmulibl  24145  itgcn  24149  ftc1a  24340  ftc1lem4  24342  itgulm  24702  fourierdlem47  41870  fourierdlem87  41910  etransclem23  41974
  Copyright terms: Public domain W3C validator