Mathbox for Brendan Leahy < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ibladdnc Structured version   Visualization version   GIF version

 Description: Choice-free analogue of itgadd 23397. A measurability hypothesis is necessitated by the loss of mbfadd 23234; for large classes of functions, such as continuous functions, it should be relatively easy to show. (Contributed by Brendan Leahy, 1-Nov-2017.)
Hypotheses
Ref Expression
ibladdnc.2 (𝜑 → (𝑥𝐴𝐵) ∈ 𝐿1)
ibladdnc.4 (𝜑 → (𝑥𝐴𝐶) ∈ 𝐿1)
ibladdnc.m (𝜑 → (𝑥𝐴 ↦ (𝐵 + 𝐶)) ∈ MblFn)
Assertion
Ref Expression
ibladdnc (𝜑 → (𝑥𝐴 ↦ (𝐵 + 𝐶)) ∈ 𝐿1)
Distinct variable groups:   𝑥,𝐴   𝑥,𝑉   𝜑,𝑥
Allowed substitution hints:   𝐵(𝑥)   𝐶(𝑥)

StepHypRef Expression
1 ibladdnc.m . 2 (𝜑 → (𝑥𝐴 ↦ (𝐵 + 𝐶)) ∈ MblFn)
2 ibladdnc.2 . . . . . . 7 (𝜑 → (𝑥𝐴𝐵) ∈ 𝐿1)
3 iblmbf 23340 . . . . . . 7 ((𝑥𝐴𝐵) ∈ 𝐿1 → (𝑥𝐴𝐵) ∈ MblFn)
42, 3syl 17 . . . . . 6 (𝜑 → (𝑥𝐴𝐵) ∈ MblFn)
5 ibladdnc.1 . . . . . 6 ((𝜑𝑥𝐴) → 𝐵𝑉)
64, 5mbfmptcl 23210 . . . . 5 ((𝜑𝑥𝐴) → 𝐵 ∈ ℂ)
76recld 13782 . . . 4 ((𝜑𝑥𝐴) → (ℜ‘𝐵) ∈ ℝ)
8 ibladdnc.4 . . . . . . 7 (𝜑 → (𝑥𝐴𝐶) ∈ 𝐿1)
9 iblmbf 23340 . . . . . . 7 ((𝑥𝐴𝐶) ∈ 𝐿1 → (𝑥𝐴𝐶) ∈ MblFn)
108, 9syl 17 . . . . . 6 (𝜑 → (𝑥𝐴𝐶) ∈ MblFn)
11 ibladdnc.3 . . . . . 6 ((𝜑𝑥𝐴) → 𝐶𝑉)
1210, 11mbfmptcl 23210 . . . . 5 ((𝜑𝑥𝐴) → 𝐶 ∈ ℂ)
1312recld 13782 . . . 4 ((𝜑𝑥𝐴) → (ℜ‘𝐶) ∈ ℝ)
146, 12readdd 13802 . . . 4 ((𝜑𝑥𝐴) → (ℜ‘(𝐵 + 𝐶)) = ((ℜ‘𝐵) + (ℜ‘𝐶)))
156ismbfcn2 23212 . . . . . 6 (𝜑 → ((𝑥𝐴𝐵) ∈ MblFn ↔ ((𝑥𝐴 ↦ (ℜ‘𝐵)) ∈ MblFn ∧ (𝑥𝐴 ↦ (ℑ‘𝐵)) ∈ MblFn)))
164, 15mpbid 221 . . . . 5 (𝜑 → ((𝑥𝐴 ↦ (ℜ‘𝐵)) ∈ MblFn ∧ (𝑥𝐴 ↦ (ℑ‘𝐵)) ∈ MblFn))
1716simpld 474 . . . 4 (𝜑 → (𝑥𝐴 ↦ (ℜ‘𝐵)) ∈ MblFn)
18 eqid 2610 . . . . . . . 8 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐵)), (ℜ‘𝐵), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐵)), (ℜ‘𝐵), 0)))
19 eqid 2610 . . . . . . . 8 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐵)), -(ℜ‘𝐵), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐵)), -(ℜ‘𝐵), 0)))
20 eqid 2610 . . . . . . . 8 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐵)), (ℑ‘𝐵), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐵)), (ℑ‘𝐵), 0)))
21 eqid 2610 . . . . . . . 8 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐵)), -(ℑ‘𝐵), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐵)), -(ℑ‘𝐵), 0)))
2218, 19, 20, 21, 5iblcnlem 23361 . . . . . . 7 (𝜑 → ((𝑥𝐴𝐵) ∈ 𝐿1 ↔ ((𝑥𝐴𝐵) ∈ MblFn ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐵)), (ℜ‘𝐵), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐵)), -(ℜ‘𝐵), 0))) ∈ ℝ) ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐵)), (ℑ‘𝐵), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐵)), -(ℑ‘𝐵), 0))) ∈ ℝ))))
232, 22mpbid 221 . . . . . 6 (𝜑 → ((𝑥𝐴𝐵) ∈ MblFn ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐵)), (ℜ‘𝐵), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐵)), -(ℜ‘𝐵), 0))) ∈ ℝ) ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐵)), (ℑ‘𝐵), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐵)), -(ℑ‘𝐵), 0))) ∈ ℝ)))
2423simp2d 1067 . . . . 5 (𝜑 → ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐵)), (ℜ‘𝐵), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐵)), -(ℜ‘𝐵), 0))) ∈ ℝ))
2524simpld 474 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐵)), (ℜ‘𝐵), 0))) ∈ ℝ)
26 eqid 2610 . . . . . . . 8 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐶)), (ℜ‘𝐶), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐶)), (ℜ‘𝐶), 0)))
27 eqid 2610 . . . . . . . 8 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐶)), -(ℜ‘𝐶), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐶)), -(ℜ‘𝐶), 0)))
28 eqid 2610 . . . . . . . 8 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐶)), (ℑ‘𝐶), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐶)), (ℑ‘𝐶), 0)))
29 eqid 2610 . . . . . . . 8 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐶)), -(ℑ‘𝐶), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐶)), -(ℑ‘𝐶), 0)))
3026, 27, 28, 29, 11iblcnlem 23361 . . . . . . 7 (𝜑 → ((𝑥𝐴𝐶) ∈ 𝐿1 ↔ ((𝑥𝐴𝐶) ∈ MblFn ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐶)), (ℜ‘𝐶), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐶)), -(ℜ‘𝐶), 0))) ∈ ℝ) ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐶)), (ℑ‘𝐶), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐶)), -(ℑ‘𝐶), 0))) ∈ ℝ))))
318, 30mpbid 221 . . . . . 6 (𝜑 → ((𝑥𝐴𝐶) ∈ MblFn ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐶)), (ℜ‘𝐶), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐶)), -(ℜ‘𝐶), 0))) ∈ ℝ) ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐶)), (ℑ‘𝐶), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐶)), -(ℑ‘𝐶), 0))) ∈ ℝ)))
3231simp2d 1067 . . . . 5 (𝜑 → ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐶)), (ℜ‘𝐶), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐶)), -(ℜ‘𝐶), 0))) ∈ ℝ))
3332simpld 474 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘𝐶)), (ℜ‘𝐶), 0))) ∈ ℝ)
347, 13, 14, 17, 25, 33ibladdnclem 32636 . . 3 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 + 𝐶))), (ℜ‘(𝐵 + 𝐶)), 0))) ∈ ℝ)
357renegcld 10336 . . . 4 ((𝜑𝑥𝐴) → -(ℜ‘𝐵) ∈ ℝ)
3613renegcld 10336 . . . 4 ((𝜑𝑥𝐴) → -(ℜ‘𝐶) ∈ ℝ)
3714negeqd 10154 . . . . 5 ((𝜑𝑥𝐴) → -(ℜ‘(𝐵 + 𝐶)) = -((ℜ‘𝐵) + (ℜ‘𝐶)))
387recnd 9947 . . . . . 6 ((𝜑𝑥𝐴) → (ℜ‘𝐵) ∈ ℂ)
3913recnd 9947 . . . . . 6 ((𝜑𝑥𝐴) → (ℜ‘𝐶) ∈ ℂ)
4038, 39negdid 10284 . . . . 5 ((𝜑𝑥𝐴) → -((ℜ‘𝐵) + (ℜ‘𝐶)) = (-(ℜ‘𝐵) + -(ℜ‘𝐶)))
4137, 40eqtrd 2644 . . . 4 ((𝜑𝑥𝐴) → -(ℜ‘(𝐵 + 𝐶)) = (-(ℜ‘𝐵) + -(ℜ‘𝐶)))
427, 17mbfneg 23223 . . . 4 (𝜑 → (𝑥𝐴 ↦ -(ℜ‘𝐵)) ∈ MblFn)
4324simprd 478 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐵)), -(ℜ‘𝐵), 0))) ∈ ℝ)
4432simprd 478 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘𝐶)), -(ℜ‘𝐶), 0))) ∈ ℝ)
4535, 36, 41, 42, 43, 44ibladdnclem 32636 . . 3 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘(𝐵 + 𝐶))), -(ℜ‘(𝐵 + 𝐶)), 0))) ∈ ℝ)
4634, 45jca 553 . 2 (𝜑 → ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 + 𝐶))), (ℜ‘(𝐵 + 𝐶)), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘(𝐵 + 𝐶))), -(ℜ‘(𝐵 + 𝐶)), 0))) ∈ ℝ))
476imcld 13783 . . . 4 ((𝜑𝑥𝐴) → (ℑ‘𝐵) ∈ ℝ)
4812imcld 13783 . . . 4 ((𝜑𝑥𝐴) → (ℑ‘𝐶) ∈ ℝ)
496, 12imaddd 13803 . . . 4 ((𝜑𝑥𝐴) → (ℑ‘(𝐵 + 𝐶)) = ((ℑ‘𝐵) + (ℑ‘𝐶)))
5016simprd 478 . . . 4 (𝜑 → (𝑥𝐴 ↦ (ℑ‘𝐵)) ∈ MblFn)
5123simp3d 1068 . . . . 5 (𝜑 → ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐵)), (ℑ‘𝐵), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐵)), -(ℑ‘𝐵), 0))) ∈ ℝ))
5251simpld 474 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐵)), (ℑ‘𝐵), 0))) ∈ ℝ)
5331simp3d 1068 . . . . 5 (𝜑 → ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐶)), (ℑ‘𝐶), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐶)), -(ℑ‘𝐶), 0))) ∈ ℝ))
5453simpld 474 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘𝐶)), (ℑ‘𝐶), 0))) ∈ ℝ)
5547, 48, 49, 50, 52, 54ibladdnclem 32636 . . 3 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘(𝐵 + 𝐶))), (ℑ‘(𝐵 + 𝐶)), 0))) ∈ ℝ)
5647renegcld 10336 . . . 4 ((𝜑𝑥𝐴) → -(ℑ‘𝐵) ∈ ℝ)
5748renegcld 10336 . . . 4 ((𝜑𝑥𝐴) → -(ℑ‘𝐶) ∈ ℝ)
5849negeqd 10154 . . . . 5 ((𝜑𝑥𝐴) → -(ℑ‘(𝐵 + 𝐶)) = -((ℑ‘𝐵) + (ℑ‘𝐶)))
5947recnd 9947 . . . . . 6 ((𝜑𝑥𝐴) → (ℑ‘𝐵) ∈ ℂ)
6048recnd 9947 . . . . . 6 ((𝜑𝑥𝐴) → (ℑ‘𝐶) ∈ ℂ)
6159, 60negdid 10284 . . . . 5 ((𝜑𝑥𝐴) → -((ℑ‘𝐵) + (ℑ‘𝐶)) = (-(ℑ‘𝐵) + -(ℑ‘𝐶)))
6258, 61eqtrd 2644 . . . 4 ((𝜑𝑥𝐴) → -(ℑ‘(𝐵 + 𝐶)) = (-(ℑ‘𝐵) + -(ℑ‘𝐶)))
6347, 50mbfneg 23223 . . . 4 (𝜑 → (𝑥𝐴 ↦ -(ℑ‘𝐵)) ∈ MblFn)
6451simprd 478 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐵)), -(ℑ‘𝐵), 0))) ∈ ℝ)
6553simprd 478 . . . 4 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘𝐶)), -(ℑ‘𝐶), 0))) ∈ ℝ)
6656, 57, 62, 63, 64, 65ibladdnclem 32636 . . 3 (𝜑 → (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘(𝐵 + 𝐶))), -(ℑ‘(𝐵 + 𝐶)), 0))) ∈ ℝ)
6755, 66jca 553 . 2 (𝜑 → ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘(𝐵 + 𝐶))), (ℑ‘(𝐵 + 𝐶)), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘(𝐵 + 𝐶))), -(ℑ‘(𝐵 + 𝐶)), 0))) ∈ ℝ))
68 eqid 2610 . . 3 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 + 𝐶))), (ℜ‘(𝐵 + 𝐶)), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 + 𝐶))), (ℜ‘(𝐵 + 𝐶)), 0)))
69 eqid 2610 . . 3 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘(𝐵 + 𝐶))), -(ℜ‘(𝐵 + 𝐶)), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘(𝐵 + 𝐶))), -(ℜ‘(𝐵 + 𝐶)), 0)))
70 eqid 2610 . . 3 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘(𝐵 + 𝐶))), (ℑ‘(𝐵 + 𝐶)), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘(𝐵 + 𝐶))), (ℑ‘(𝐵 + 𝐶)), 0)))
71 eqid 2610 . . 3 (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘(𝐵 + 𝐶))), -(ℑ‘(𝐵 + 𝐶)), 0))) = (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘(𝐵 + 𝐶))), -(ℑ‘(𝐵 + 𝐶)), 0)))
72 ovex 6577 . . . 4 (𝐵 + 𝐶) ∈ V
7372a1i 11 . . 3 ((𝜑𝑥𝐴) → (𝐵 + 𝐶) ∈ V)
7468, 69, 70, 71, 73iblcnlem 23361 . 2 (𝜑 → ((𝑥𝐴 ↦ (𝐵 + 𝐶)) ∈ 𝐿1 ↔ ((𝑥𝐴 ↦ (𝐵 + 𝐶)) ∈ MblFn ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℜ‘(𝐵 + 𝐶))), (ℜ‘(𝐵 + 𝐶)), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℜ‘(𝐵 + 𝐶))), -(ℜ‘(𝐵 + 𝐶)), 0))) ∈ ℝ) ∧ ((∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ (ℑ‘(𝐵 + 𝐶))), (ℑ‘(𝐵 + 𝐶)), 0))) ∈ ℝ ∧ (∫2‘(𝑥 ∈ ℝ ↦ if((𝑥𝐴 ∧ 0 ≤ -(ℑ‘(𝐵 + 𝐶))), -(ℑ‘(𝐵 + 𝐶)), 0))) ∈ ℝ))))
751, 46, 67, 74mpbir3and 1238 1 (𝜑 → (𝑥𝐴 ↦ (𝐵 + 𝐶)) ∈ 𝐿1)